reading multiple files into an array


Your skill will accomplish what the force of many cannot
	PerlMonks

reading multiple files into an array

by thatguy (Parson)

on Aug 27, 2001 at 20:09 UTC ( [id://108161]=note: print w/replies, xml )

Need Help??

in reply to Re: Re: Re: Re: Re: Re: Unix Perl and Html
in thread Unix Perl and Html

something like this will read in all the files listed in @files. It also cuts down on repetitive code and allows scalability.

my @files= qw| /path/to/file1 /path/to/file2 /path/to/file3 |;
my @allfiles;
for my $filename(@files){
     open(FILE," $filename") || die "Cannot  open $filename: $!\n";
     while(<FILE>) {
          push @allfiles, $_;
     }
     close(FILE);
}
[download]

-p

Comment on reading multiple files into an array Download Code

Replies are listed 'Best First'.

Re: reading multiple files into an array
by dragonchild (Archbishop) on Aug 27, 2001 at 20:46 UTC

my @files= qw| /path/to/file1 /path/to/file2 /path/to/file3 |;
my @allfiles;
for my $filename(@files){
    open FILE, $filename ||
        die "Cannot open $filename for reading: $!\n";
    push @allfiles, $_ while (<FILE>);
    close FILE;
}

# Or (and even more Perlish) ...

my @files= qw| /path/to/file1 /path/to/file2 /path/to/file3 |;
my @allfiles;
for my $filename(@files){
    open FILE, $filename ||
        die "Cannot open $filename for reading: $!\n";
    push @allfiles, <FILE>;
    close FILE;
}
[download]

------
/me wants to be the brightest bulb in the chandelier!

Vote paco for President!

[reply]
[d/l]

In Section Seekers of Perl Wisdom