Help for this page

Select Code to Download

Select or download this

my $now = time;
$log_start=scalar localtime $now -1 * 86400;
...
$log_start=~ s/^\w+\s+(\w+\s\d{1,2}\s\d{1,2}:\d{1,2}:\d{1,2})\s\d{4}$/
+$1/i;
 
print "Modified Log start = $1\n";

Select or download this

$log_start=~ s/^\w+\s+(\w+\s+\d{1,2}\s\d{1,2}:\d{1,2}:\d{1,2})\s\d{4}$
+/$1/i;