Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: printing to STDOUT and a Logfile (cross-platform sub)

by ybiC (Prior)
on Oct 29, 2002 at 01:22 UTC ( #208650=note: print w/ replies, xml ) Need Help??


in reply to printing to STDOUT and a Logfile

Here's one cross-platform way to simultaneously print to STDOUT and a filehandle.

# print messages to both console and logfile sub PrintLogCon { print @_; print(LOG @_) or die "Error printing to $logfile: $!"; }

and you'd call it thusly:

use warnings; use strict; open(LOG, ">$logfile") or die "Error opening $logfile: $!"; ... ... ... do->stuff; do->it(again) or PrintLogCon("Error: $!"); do->stuff(more); ... ... ... close LOG or die "Error closing $logfile: $!"; __END__
Phat props to mad monk Petruchio for showing me this a while back.
    cheers,
    Don
    striving toward Perl Adept
    (it's pronounced "why-bick")

Update2: consistant-ized scalar for logfile
Update1: or use IO::Tee as shown by fine monk jsprat.


Comment on Re: printing to STDOUT and a Logfile (cross-platform sub)
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (15)
As of 2014-10-21 13:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (103 votes), past polls