Harry Putnam <[EMAIL PROTECTED]> writes:
> Note that the original example from perldoc IO::Tee
> has no opens in it:
>
> use IO::Tee;
>
> $tee = IO::Tee->new($handle1, $handle2);
> print $tee "foo", "bar";
> my $input = <$tee>;
>
>
Haa, I dug it up on google finally with
Advanced group search and
use IO::Tee; group:*perl*
Its easier than it seems:
use IO::Tee;
my $tee = IO::Tee->new(\*STDOUT, ">> log.txt", ">>log2.txt",
">>log3.txt");
print $tee "some line of text\n";
Just forgets all about the opens.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
