Jag har följande kod:

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

Du kan inte. Och det är verkligen ingen redundans som Glob <> första hittar alla filer med. Csv förlängningen så att du kan öppna dem, regexp sedan analyserar dessa strängar (filnamnen) för att extrahera mer specifik information.

Tja, jag har kommit fram till detta, men det kan inte vara mer effektiva än vad ni hade och kanske vara mindre effektiv, du måste riktmärke både koder för att veta vilka som egentligen är bäst.

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

Tack för ditt svar och har experimenterat med det här lite. Prestanda vinst (eller förlust) är ringa. Am fortfarande arbetar med en inbyggd timer, men skillnaden är bara sekunder (om någon) på totalt kropp ungefär 200 filer och kombinerade kräver 40 MB.

Och punkt (.) Är den del av filnamnet: w + är standard filnamn och d (6) är 24hr Temne av tiden för hämtning. Så en fil skulle ha ett namn såsom scores.234506.csv

pricken bör flydde sedan, liksom de andra punkten i regexp:

min% filer \u003d karta (/ ^ (\ w +) \. \ d (6) \. csv $ /, $ _ \u003d> $ 1) <*. csv>;

om filnamnen är alltid namngivna gillar scores.234506.csv kan du bara använda delade på prickar och sedan få array element 1. Det borde vara ditt nummer. Lättare än regexp.

split () är ett regexp.