$FLAG = 0; # Get last timestamp if (-e "$OutputDir/$NAME/last_timestamp") { open LAST, "<$OutputDir/$NAME/last_timestamp"; $last_timestamp = ; chomp $last_timestamp; close LAST; } else { # Prime the Pump $data = `tail -1 $LOG`; @data = split(/\ /,$data); open LAST, ">$OutputDir/$NAME/last_timestamp"; print LAST "$data[3]"; close LAST; exit; } if (-e "$LOG") { open LOG, "<$LOG"; while () { @data = split(/\ /); next if (($data[3] ne $last_timestamp)&&($last_timestamp)&&(!$FLAG)); $FLAG=1; next if (($skip)&&($_ =~ m/$skip/)); $last_timestamp = $data[3]; $login_id{$data[2]}++; } close LOG; @Result = keys %login_id; print "USERS=$#Result\n"; open LAST, ">$OutputDir/$NAME/last_timestamp"; print LAST "$last_timestamp"; close LAST; } else { print "LOG FILE NOT FOUND\n"; }