in reply to Re: Appending time to each line
in thread Appending time to each line

Thanks for the reply.. But how could I print date for Data::Dumper output in each line as shown in the example?

Replies are listed 'Best First'.
Re^3: Appending time to each line
by Corion (Patriarch) on May 21, 2013 at 10:58 UTC

    First capture the Data::Dumper output in a string, then prepend the timestamp:

    my $message= Dumper $myvar; $message=~ s!^!$timestamp !mg; print $message;
Re^3: Appending time to each line
by MidLifeXis (Monsignor) on May 21, 2013 at 13:05 UTC

    See the Data::Dumper $Data::Dumper::Pad configuration variable.

    --MidLifeXis

Re^3: Appending time to each line
by hdb (Monsignor) on May 21, 2013 at 13:49 UTC

    IMHO, it would make sense to encapsulate everything in a subroutine along the lines of

    use strict; use warnings; sub tprint { my $msg = join $,//'' ,@_; my $tstamp = localtime()." "; $msg =~ s/^/$tstamp/gm; print $msg; } tprint "something\nelse\n";

    BUT to completely replicate the interface of the print function is beyond my Perl skills. I have no idea how one could now provide a file handle to print into file.