#!/usr/bin/perl

use strict;
use warnings;
use IO::Tee;

open my $log, '>stdout.log' or warn "Can't write logfile: $!";
my $tee = new IO::Tee(\*STDOUT, $log);

# Use it like a file handle
print $tee "Just another perl hacker,\n";

# Use the print method of the IO::Tee object
$tee->print("Just another perl monk.\n");
$tee->flush;

__END__
Output:
C:\S\Test>iotee.pl
Just another perl hacker,
Just another perl monk.

C:\S\Test>type stdout.log
Just another perl hacker,
Just another perl monk.
[download]

Hope it's helpful,

Update: simplified the example

If you're on a Unix-like system, you can check out the 'tee' command:

$ man tee

NAME
       tee  - read from standard input and write to standard out-
       put and files

Another option, which I have never used, is Tie::FileHandle::MultiPlex.

Update: One way that I have used 'tee' in the past.

use constant TEE        => '| tee ';
use constant TO_PRINTER => "| lp -d lex_text";

my $file = REPORT_DIR . "cc_auth_$DATETIME";
open CCAUTH_REPORT, TEE . $file . TO_PRINTER or die $!;
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

Another option, which I have never used, is Tie::FileHandle::MultiPlex.

... and if you hunt around CPAN, you'll also find Filter::tee and IO::Tee, which look to be of a similar vein.

Read more... (928 Bytes)

Update: D'oh... shoulda tested the code in the <readmore> before posting. Although it prolly still could be made to work, ybiC's code is simpler.

    --k.

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: $!";
  }
[download]

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__
[download]

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

perl -e 'print "Hello\n";' | tee logfile
[download]

perl -e 'print "Hello\n;' >& logfile
[download]