Én a következő kódot:

#!/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);
}

Nem lehet. És tényleg nincs elbocsátás a glob <> először megállapítja az összes fájl. Csv meghosszabbításról így nyitott nekik, a regexp majd elemzi azokat strings (a fájlneveket) a kivonat konkrétabb információk.

Nos, nem jön ki, de ez nem lehet olyan hatékony, mint amit el lehet, és még kevésbé hatékonyak, akkor a viszonyítási alap a kódokat tudni, ami tényleg jobb.

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);
}

Köszönöm a választ, és nem kísérletezik ezen egy kicsit. A teljesítmény nyereség (vagy veszteség) is kisebb. Am még mindig dolgozik a beépített időzítőt, de a különbözet nem pusztán másodperc (ha van ilyen), a teljes test mintegy 200 kép és kombinált igénylő elérhetik a 40 MB méretet.

És a pont (.) Az a része, a fájl neve: W + hogy a szabványos fájlnév és d (6), hogy a 24hr idején, amikor letölt. Tehát egy fájl lenne a neve, mint például: scores.234506.csv

A dot kell majd megszökött, mint a többi pont a regexp:

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

Ha a fájl nevét mindig hasonló nevű scores.234506.csv, akkor csak használja megoszlani pontok, majd tömbelem 1. Ennek kell a számot. Könnyebb, mint a reguláris.

split () egy regexp.