Or make your test code print out the line that made it stop:last if $log_line =~ /^\d{4}-\d\d-\d\d \d\d:\d\d:\d\d/ && $log_line lt + $earliest;
if ($log_line lt $earliest) { use Data::Dumper; $Data::Dumper::Useqq = 1; print Dumper("stopped on $log_line"),"\n"; }
In reply to Re: Problem using File::ReadBackwards
by ysth
in thread Problem using File::ReadBackwards
by vxp
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |