in reply to How to output file data from files in an array to one singular file?

open (FILE, ">> $outfile") || die "Unable to open Write File! \n";
#print FILE @JanFiles;
do { local @ARGV = @JanFiles; print FILE $_ while <> };
close FILE;

[download]

untested...

  • Comment on Re: How to output file data from files in an array to one singular file?
  • Download Code

In Section Seekers of Perl Wisdom