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


in reply to Re: Reading Multiple files
in thread Reading Multiple files

Here is sample:See if this can help you. 
opendir $dh, $dir_of_files or die "Couldn't open dir '$dir_of_files': 
+$!";
my @comparefiles= readdir $dh;
closedir $dh;
for each $file in @comparefiles
{
  read_write_subroutine($file);
}

sub read_write_subroutine
{
put your whole code here which is currently you are using
}

[download]

Replies are listed 'Best First'.
Re^3: Reading Multiple files
by maheshkumar (Sexton) on Aug 07, 2012 at 16:50 UTC

    Hoe to generate different file names for the output?

[reply]

      maheshkumar:

      Any way you like. You could do something like:

      my $output_filename="OUTPUT.001";

for my $filename (@filelist) {
    do_stuff($filename, $output_filename);
    ++$output;
}

      [download]

      But it would most likely be less confusing to just tack on a new suffix, or squirrel the file away in a different directory:

      for my $filename (@filelist) {
    my $output_filename = $filename . ".processed";
    do_stuff($filename, $output_filename);
}

      [download]

      ...roboticus

      When your only tool is a hammer, all problems look like your thumb.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom