print to both STDOUT and a file?

[Brian Volk]

Hi All,

Is there a way to print to both the STDOUT and a physical file. other than
./script.pl >>outfile.txt  ?  Here is what I have now, which works great,
but I would like to see the links (about 2,000) scroll. 

---- this works great, but the links don't scroll 
open STDOUT, ">>C:/perl/bin/output/links_1.txt"
 or die "Can't open links file: $!";

---- this is probably my first step  
open my $OUTFILE, ">>C:/perl/bin/output/links_test.txt"
 or die "Can't open links file: $!";

---- below is the loop

while (<>) {    
            print "$ARGV $1\n" and close(ARGV) and next
                if /$RE{URI}{HTTP}{-keep}/;
               }

Thanks!

Brian Volk 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>