Thread Dateien im verzeichnis der reihe nach abarbeiten (10 answers)
Opened by Marc at 2011-04-05 07:51

rosti
 2011-04-05 09:02
#147377 #147377
User since
2011-03-19
3476 Artikel
BenutzerIn
[Homepage]
user image
Mist, die Suffixe brauchen wir ja auch noch, hier sind sie:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12

use strict;

my @files = qw(3_xy.txt 10_foo.txt 2_bar.txt 1_foobar.txt);

my @meta =
        map  { join("_", $_->[0], $_->[1]) }
        sort { $b->[0] <=> $a->[0] }
        map  { [split "_"]  } @files;

foreach my $file (@meta){
        print "$file\n";
}


Edit: Zum Verständnis der Schwartzschen Transformation von unten nach oben lesen;

Zeile 8: filtert das Sortierkriterium, in diesem Fall den numerischen Wert. split '_', $_ erzeugt ein Array, die eckigen Klammern erzeugen eine Referenz auf dieses Array.

Zeile 7: sortiert mit Hilfe der Perl-internen Variablen $a und $b nach dem numerischen Wert, der in [0] zu finden ist.

Zeile 6: join '_', ... führt die Elemente des in Zeile 8 gesplitteten Arrays wieder zusammen und gibt das Array zurück.

--Rolf

Last edited: 2011-04-05 09:23:26 +0200 (CEST)

View full thread Dateien im verzeichnis der reihe nach abarbeiten