or better yetforeach my $file (@filenames) { open (INFILE, "$file") || die ("Can't open file $file$!"); @all=<INFILE>; close (INFILE); print OUTFILE1 @all; }
foreach my $file (@filenames) { open (INFILE, "$file") || die ("Can't open file $file$!"); print OUTFILE1 <INFILE>; close (INFILE); }
-Mark
In reply to Re: Replicate file
by kvale
in thread Replicate file
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |