Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: script and its output on different handles

by drmrgd (Beadle)
on Nov 28, 2013 at 13:03 UTC ( #1064821=note: print w/ replies, xml ) Need Help??


in reply to script and its output on different handles

I've used IO::Tee to do this kind of thing in the past. In short, you use the module to create a file handle pointing to your log file and STDOUT kind of like this:

use warnings; use strict; use IO::Tee; open( my $log_fh, ">>", "mylog.txt" ) || die "Can't open the log for w +riting: $!"; my $output = IO::Tee->new( \*STDOUT, $log_fh ); print $output "Starting the script...\n";
That should print 'Starting the script...' to both the logfile and the screen. Also, since you now have a couple file handles at your disposal, you can just print to the screen or just print to '$log_fh' at will if you like.


Comment on Re: script and its output on different handles
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1064821]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2015-07-07 00:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (85 votes), past polls