Answer: Is it possible to write to 2 files, eg. print LOGFILE,TEMP 'hello'? contributed by nardo multiprint("hello\n", LOGFILE, TEMP); sub multiprint { my $text = shift; for my $fh (@_) { print $fh $text; } } [download]

Answer: Is it possible to write to 2 files, eg. print LOGFILE,TEMP 'hello'? contributed by belg4mit IO::Tee

Answer: Is it possible to write to 2 files, eg. print LOGFILE,TEMP 'hello'? contributed by davido From the Perl Cookbook. "If you don't mind forking, open a filehandle that's a pipe to a tee program:" And then an example adapted from the same section is: my ($file1, $file2, $file3) = qw/this.out that.out other.out/; my $fh; open $fh, "| tee $file1 $file2 $file3 > /dev/null" or die $!; print $fh "data\n" or die $!; close $fh or die $!; [download] Of course this will only be of value to those whos operating systems support tee (Linux / Unix, for example). The reason for the redirection to /dev/null is because tee typically copies its output on STDOUT. If you don't want that extra copy you redirect it to /dev/null (the garbage can).

Please (register and) log in if you wish to add an answer