http://www.perlmonks.org?node_id=1044273


in reply to Re^2: Input Output Question
in thread Input Output Question

Simply use the foreach loop to parse each file and redirect the output to output directory

For Example:
my $output_dir = 'output/'; foreach my $file (@files) { print $file . "\n"; #Parse the file here open(FH, '>>', $output_dir.$file ) or die "Unable to open the +file: $!"; print FH "Output goes into output directory with the same file + name\n"; close(FH); }

All is well