Re: processing files

I'm not too sure what you want to achieve, but
if you mean that your filenames are stored in an array
you can do something like this:

my @files=qw(file1 file2) ; #or however you get your filenames
foreach my $filename (@files) {
    #do something with the file
    print "$filename \n";

}
[download]

si_lence

Comment on Re: processing files Download Code

Replies are listed 'Best First'.
Re^2: processing files by Anonymous Monk on Dec 06, 2004 at 18:38 UTC
I am using the follwing code, but obviously it is processing the first file twice. Do you have any idea why it is doing that and what is wrong with my code? `foreach $file (@files){ open(IN, "$file") or die ("Cannot open file $file!\n"); $promnum = 0; $stop = 0; while ($stop == 0){ while (<IN>) {....` [download]	[reply] [d/l]