On Jul 30, Brian Volk said:
>I using IO::Tee and I think I'm getting close. The output is being sent to
>the screen and the phyical output file is being created... but I'm not sure
>how to send the @ARGV to the output.txt file as well.
You're not printing the right stuff!
>my $tee = IO::Tee->new( ">>C:/perl/bin/output/test.txt", \*STDOUT );
When you print to $tee, it will go to both of those places.
>while (<>) {
> print "$ARGV $1\n"
> and print $tee "\n"
You're not doing it properly above. You should have written
print $tee "$ARGV $1\n"
> and close(ARGV) and next
> if /$RE{URI}{HTTP}{-keep}/;
> }
--
Jeff "japhy" Pinyan % How can we ever be the sold short or
RPI Acacia Brother #734 % the cheated, we who for every service
http://japhy.perlmonk.org/ % have long ago been overpaid?
http://www.perlmonks.org/ % -- Meister Eckhart
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
