Re: print out

Like this???

print OUT "one: $_" while (<ONE>);
print OUT "two: $_" while (<TWO>);
[download]

Comment on Re: print out Download Code

Replies are listed 'Best First'.
Re^2: print out by Anonymous Monk on Sep 23, 2004 at 20:50 UTC
i plan on dealing with a 1000 files so not necessary suitable, perhaps a way of using a counter??	[reply]
Re^3: print out by ikegami (Patriarch) on Sep 23, 2004 at 20:54 UTC
yes: `my $filename; my $counter; foreach $filename (@filelist) { open(IN, '<', $filename) or do { warn("Error opening $filename."); next; }; $counter++; print OUT ("${counter}: $_") while (<IN>); close(IN); }` [download]	[reply] [d/l]
Re^4: print out by Anonymous Monk on Sep 23, 2004 at 20:56 UTC
thanks came to a solution `while (<>) { my $i++; something open (OUT, ">newnames.$i");` [download]	[reply] [d/l]
Re^3: print out by Anonymous Monk on Sep 23, 2004 at 20:52 UTC
so output files would be named out1 out2 ... out100	[reply]
Re^4: print out by ikegami (Patriarch) on Sep 23, 2004 at 20:56 UTC
You lost me there. You have multiple input files AND multiple output files? What do you want in which output file?	[reply]