SplitTraceLog

checkLTrace.pl

#!/usr/bin/perl
#Usage checkLTrace.pl [keyword] [filepath]
#use strict;
#use warnings;

if (@ARGV < 2) { exit(1); };

$grepword = $ARGV[0];
$filename = $ARGV[1];

open(IN, "< $filename");
read (IN, $buf, (-s "$filename"));
close IN;

@list = split(/\n[0-9][0-9]:[0-9][0-9]:[0-9][0-9] /, $buf);

@result = grep(/$grepword/, @list);

print "Latest $grepword --\n";
print "$result[$#result]\n";
print "End --\n";