in reply to Input Output Question

To read all the files in a directory use the directory functions: opendir(), closedir() and readdir(). 

opendir DIR, $dir or die "cannot open dir $dir: $!"; my @file= readdir
+ DIR; 
closedir DIR;

[download]
@file array will contains the files available in input directory parse each file and redirect output to output directory with the same file name.

All is well

Replies are listed 'Best First'.
Re^2: Input Output Question
by perlmonk007 (Novice) on Jul 15, 2013 at 04:56 UTC

    thanks, how do I output the files one by one? could you please give me an example?

[reply]

      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);
}

      [download]
      All is well
[reply]
[d/l]
[select]

        I tried it that way, it doesnt work, The three folders code, input and output are in the same level in the directory structure (The folders are in a single folder ) and I need to output the result of the pipeline into the output folder with the names unchanged. sadly the code you provided is not working.

[reply]

In Section Seekers of Perl Wisdom