writing in 2 handles

[nagalenoj]

How could I write the same content in 2(or more) handles? I've a script where I want to write the same content to a file handle and a socket.

some thing like., print <more than one file handle> "Hello world";

what is the way to go?

[Corion]

IO::Tee

[cdarke]

# Create an array of file handles
my @fhs;
for my $file (qw (gash1.txt gasg2.txt gash3.txt) {
    open (my $fh, '>', $file) or die "Unable to open $file: $!";
    push @fhs, $fh
}

# Now for the print
print $_ "Some stuff\n" for @fhs;
print $_ "Some more stuff\n" for @fhs;

# Close the files
close $_ for @fhs;

[ambrus]

I usually use a subroutine similar to this,

open LOG, ">>", "/path/to/logfile" or die;
sub logme {
    print STDERR @_;
    print LOG @_;
}
logme "something interesting happened\n";

[Marshall]

For the Windows challenged: This will do pretty much all that is to be done. *inx has a standard tee function.

# tee program
# quick tool by Marshall  7/2007

use strict;
use warnings;

sub usage () 
{
print "TEE USAGE:\n tees stdout to a file and to stdout\n".
      " program | tee outfile\n".
      " sends stdout from program to outfile\n";
      exit;
}

my $filename = shift @ARGV;
usage unless $filename;

open (OUTFILE, ">$filename")
          or (die "Can't open OUTFILE: $!");

while (<>)
{
   print;
   print OUTFILE;
}
close OUTFILE;
1;
Adapt to your needs, re: different FILEHANDLES or use IO::Tee