Ich habe den folgenden Code ein:

#!/usr/bin/perl -w

@files = <*.csv>;
foreach $file (@files) {
  open(FH, $file) || die("Error: Cannot open file $file for reading.");
  my @dt = ($file =~ /^(\w+).(\d{6})\.csv$/);
  while (<FH>) { 
    print "@dt[0] $_\n";
  }
  close(FH);
}

Sie können nicht. Und es ist wirklich keine Redundanz als glob <> zunächst alle Dateien mit der Endung. Csv-Erweiterung, so können Sie sie, die regexp dann analysiert die Saiten (die Dateinamen) zu extrahieren mehr Informationen.

Nun, ich kam mit dieser, aber es kann nicht sein effizienter als das, was Sie hatten und vielleicht sogar weniger effizient wären, hätten Sie die beiden Benchmark-Codes, um zu wissen, ist wirklich besser.

my %files = map {/^(\w+).\d{6}\.csv$/; $_ => $1} <*.csv>;
print Dumper \%files;
foreach my $file (keys %files) {
  open(FH, $file) || die("Error: Cannot open file $file for reading.");
  while (<FH>) { 
    print "$files{$file} $_\n";
  }
  close(FH);
}

Vielen Dank für Ihre Antwort und haben ebenfalls versucht, mit dieser ein wenig. Performance-Gewinn (oder Verlust) ist gering. Bin immer noch auf einen eingebauten Timer, aber die Differenz ist nur Sekunden (wenn vorhanden) auf einer Gesamtfläche von etwa 200 Körper Dateien und kombiniert mit 40MB.

Und der Punkt (.) Ist der Teil der Datei-Name: w + ist die Standard-Dateinamen und d (6) als 24-Stunden-Zeit von der Zeit der Download. So eine Datei hätte einen Namen wie: scores.234506.csv

den Punkt zu entkommen dann, wie die anderen Punkt in der regexp:

my% files \u003d map (/ ^ (\ w +) \. \ d (6) \. csv $ /, $ _ \u003d> $ 1) <*. csv>;

Wenn die Datei-Namen sind immer Namen wie scores.234506.csv, können Sie einfach über die Punkte geteilt und dann Array element 1. Das sollte Ihre Nummer. Einfacher als regexp.

Split () ist eine regexp.