#!/opt/local/bin/perl -w
#using strict;
open(LOG,"FileMon.LOG") or die "unable to open";
open(SNAG,">>snag") or die "unable to open";
#open(ASNAG,">>asnag") or die "unable to open";
my $acount = 0;
#my $in = 0;
while (<LOG>){
chomp;
if(/.*p4v.exe.*Error.*/) {
print SNAG $acount . ": " . "$_\n";
}
#if($in == 1) {
# print SNAG "$_\n";
#}
#if(/\sWSAECONNRESET\s/) {
# print ASNAG $acount . ":" . "$_\n";
#}
#if(/\s+2008\/09\/02\s15\:33.*/) {
# $in = 1;
#}
#if(/\s+2008\/09\/02\s16\:41.*/) {
# last;
#}
$acount += 1;
}
close(LOG);
close(SNAG);
#close(ASNAG);