Reading multiple files into array

[perlNinny]

This only seems to keep the last file read:

use FileHandle;

my @list;
my $file;
my @d = ("ds","DD","df");

foreach $type (@d){
   $file = "list_".$type.".txt";
   open (fh, "<$file");
   @list = <fh>;
   close fh;
}
foreach $output (@list){
chomp $output;
print $output."\n";
}

So how do I put ALL the lines from ALL the files into @list?

[philcrow]

When you say '@list = ...' the old value will be discarded and the new value will replace it. To get what you want, try push:

push @list, <fh>;

Phil

[perlNinny]

Quote the Homer: D'OH That did it.

[leocharre]

unix 'cat' could be of interest to you. Perl versions are available on cpan.