Adding timestamp before each STDOUT line

divyashree · 03-21-2014, 07:38 AM

In a perl script, I am capturing all the STDOUT and STDERR using the below code:

Code:

open STDOUT, '>>', "$log_file" or die "Can't redirect STDOUT: $!";
open STDERR, ">&STDOUT"  or die "Can't add to  STDOUT: $!";
main();

Here I am logging all those are generated from main() but how can I add a timestamp infront of each line of STDOUT ?

YankeePride13 · 03-21-2014, 08:33 AM

Whenever you have a print statement, prepend a timestamp to it. I.E.:

Code:

print "[" . $currentTimeStamp . "] blah blah blah\n";

If you don't feel like typing that out every time, you can write a function to prepend it and call the function every time you want to write to stdout.