Comment puis-je ouvrir un tableau de fichier en Perl?

En perl, j'ai lu dans les fichiers d'un répertoire, et je veux les ouvrir tous en même temps (mais ligne par ligne) afin que je puisse accomplir une fonction qui utilise la totalité de leur nième ensemble de lignes (par exemple, la concaténation).

my $text = `ls | grep ".txt"`;
my @temps = split(/\n/,$text);
my @files;
for my $i (0..$#temps) {
  my $file;
  open($file,"<",$temps[$i]);
  push(@files,$file);
}
my $concat;
for my $i (0..$#files) {
  my @blah = <$files[$i]>;
  $concat.=$blah;
}
print $concat;

J'ai tout un tas d'erreurs, l'utilisation de la valeur non initialisée, et GLOB(..) des erreurs. Alors, comment puis-je faire ce travail?

Always au - use strict; use warnings; au début d'un programme en Perl. Le faire jusqu'à ce que vous savez exactement pourquoi vous devriez le faire.
"Le faire jusqu'à ce que vous savez exactement pourquoi vous devriez le faire." Et puis continuer à le faire, sauf si vous avez une raison particulière de ne pas savoir exactement ce qui va se passer à cause de cela.

OriginalL'auteur Jeremy | 2009-09-30