Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re^2: Appending time to each line

by ajose (Acolyte)
on May 21, 2013 at 10:35 UTC ( #1034499=note: print w/replies, xml ) Need Help??

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 (Pope) 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.


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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1034499]
[jdporter]: one prog I have has a UI which allows to input a bit mask
[jdporter]: currently it expects the bitmask to be in the form of a hex number, e.g. 0x0101
[jdporter]: but I'd like to let the user specify it as individual bits, i.e. 0b0000000100000001
[jdporter]: there is no bit/binary equivalent of hex, right?
[jdporter]: I guess that the most direct way of doing it is with some magical incantation involving unpack or whatever

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2018-02-20 16:25 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (272 votes). Check out past polls.