#!/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);