processing files

Iho has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: processing files by si_lence (Deacon) on Dec 06, 2004 at 18:24 UTC
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	[reply] [d/l]
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]
Re: processing files by bass_warrior (Beadle) on Dec 06, 2004 at 18:26 UTC
`use strict; my $filelist = "/foo/bar/file.txt" open(FILE, $filelist) or die "$!\n"; while(<FILE>) { chomp; open(FILE2, $_) or die "$!\n"; <do whatever> close; } close;` [download] This is assuming one filename per line.	[reply] [d/l]
Re^2: processing files by chb (Deacon) on Dec 07, 2004 at 07:36 UTC
You should say `close(FILE2)` and `close(FILE)`, because `close` does not look at `$_` to see what should be closed, it closes the currently selected filehandle (`$_` gets clobbered in your while-loop, anyway).	[reply] [d/l] [select]