Dateien im verzeichnis der reihe nach abarbeiten (Allgemeines zu Perl)

[thread]16155[/thread]

Dateien im verzeichnis der reihe nach abarbeiten

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+11 replies
Gast Marc

2011-04-05 07:51

Hi,
in einem Verzeichnis habe ich Dateien der Form 10_foo.txt, 2_bar.txt und 1_foobar.txt liegen. Die ich der Reihe nach auslesen möchte, beginnend mit der größten (also 10, 2, 1).

Wie stelle ich so was am besten an.
Last edited: 2011-04-05 08:15:47 +0200 (CEST)
- GwenDragon
  
  2011-04-05 08:48
  User since
  2005-01-17
  14748 Artikel
  Admin1
  sort und glob sind deine nützliche Perl-Funktionen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  # Alle Dateinamen in ein Array einlesen my @files = sort { $b <=> $a } # numerisch sortieren glob qw(*.txt); # alle Textdateien des Verzeichnis # alle Dateien verarbeiten for my $filename(@files) { open($filename) or die "$filename: $!); # weitere Verarbeitung close($filename) or die "$filename: $!); }
  
  Last edited: 2011-04-05 09:00:48 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +9 replies
- rosti
  
  2011-04-05 08:49
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  Moin,
  
  zum Einlesen der Dir gibt es verschiedene Möglichkeiten, siehe File.pm. Ziel: die Dateien kommen auf eine Liste, die dann sortiert werden kann:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my @files = qw(3_xy.txt 10_foo.txt 2_bar.txt 1_foobar.txt); @files = map { $_->[0] } sort { $b->[0] <=> $a->[0] } map { [split(/_/, $_)] } @files; foreach my $file (@files){ print "$file\n"; }
  
  Das Sortierkriterium ist hier ein numerischer Wert vor dem "_" im Dateinamen. Ein split(/_/, $dateiname) liefert diesen Wert in [0] und danach wird in der Schwartzschen Transformation sortiert.
  
  Rolf
  - +2 replies
  - rosti
    
    2011-04-05 09:02
    User since
    2011-03-19
    3472 Artikel
    BenutzerIn
    
    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)
    - GwenDragon
      
      2011-04-05 09:09
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Du hättest auch deinen alten Beitrag nachträglich ändern können und mit Bemerkung versehen.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - GwenDragon
    
    2011-04-05 09:17
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Warum diese map-sort-map-Orgie?
    Der "Raumschiffoperator" <=> reicht doch hier auch für das numerische Sortieren.
    
    Erkläre doch bitte warum du das verwenden würdest.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +5 replies
    - rosti
      
      2011-04-05 09:31
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      2011-04-05T07:17:26 GwenDragon
      Warum diese map-sort-map-Orgie?
      Der "Raumschiffoperator" <=> reicht doch hier auch für das numerische Sortieren.
      
      Erkläre doch bitte warum du das verwenden würdest.
      
      Die Schwartzsche Transformation erkläre ich gerne und habe dazu meinen Beitrag editiert (danke für den Hinweis). Das eigentliche Ziel der Schwartzschen Transformation besteht darin, die Anzahl der Iterationen beim Sortieren mit sort() zu verringern: Mit der Schwartzschen Transofrmation wird _nur_ einmal über die Liste iteriert, wohingegen ein einfaches sort{$a <=> $b}@liste die Liste mehrfach durchläuft.
      
      Danke Randal Schwartz und Eike Grote:
      
      http://perl-seiten.homepage.t-online.de/html/perl_...
      
      Viele Grüße,
      Rolf
      - +4 replies
      - GwenDragon
        
        2011-04-05 09:41
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ich habe das mal getestet. Wenn die Schwarzsche Transformation verwendet wird, kann sich das im Vergleich zur numerischen Sortierung um den eine Verschnellerung von 10:1 handeln. Insofern ist die Verwendung sinnvoll.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        rosti
        
        2011-04-05 09:58
        
        User since
        2011-03-19
        3472 Artikel
        BenutzerIn
        
        2011-04-05T07:41:51 GwenDragon
        Ich habe das mal getestet. Wenn die Schwarzsche Transformation verwendet wird, kann sich das im Vergleich zur numerischen Sortierung um den eine Verschnellerung von 10:1 handeln. Insofern ist die Verwendung sinnvoll.
        
        Sehr schön, danke!!!
        
        Nach 'Schwartz' bietet sich hier förmlich an, damit ist auch der Code leicht geändert, wenn nach einem anderen Kriterium sortiert werden soll. Beispiel untenstehend sortiert nicht nach dem numerischen Wert, sondern aufsteigend nach dem Literal, was nach dem '_' steht:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        use warnings; use strict; my @files = qw( 3_xy.txt 10_foo.txt 2_bar.txt 1_foobar.txt 5_anton.txt 7_berta.txt 9_claus.txt ); @files = map { join('_', $_->[0], $_->[1]) } sort { $a->[1] cmp $b->[1] } map { [/^(.*)_(.*)$/] } @files; foreach my $file (@files){ print "$file\n"; }
        
        Anstelle split() eine Expression in Zeile 17.
        
        Edit:
        
        Auf den join() können wir auch verzichten:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        @files = map { $_->[0].'_'.$_->[1] } sort { $a->[1] cmp $b->[1] } map { [/^(.*)_(.*)$/] } @files;
        
        Viele Grüße,
        Rolf
        
        PS: Frühstück ;)
        Last edited: 2011-04-05 10:03:37 +0200 (CEST)
        
        +2 replies
        
        Taulmarill
        
        2011-04-05 10:17
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Es macht bei Schwartzscher Transformation übrigens IMHO Sinn, wenn man den ursprünglichen Wert im Original mit transportiert, dadurch werden Fehler beim wieder zusammenbauen vermieden:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        @files = map { $_->[1] } sort { $a->[0] cmp $b->[0] } map { [/_(\w+)\.txt$/, $_] } @files;
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        rosti
        
        2011-04-05 11:41
        
        User since
        2011-03-19
        3472 Artikel
        BenutzerIn
        
        2011-04-05T08:17:52 Taulmarill
        Es macht bei Schwartzscher Transformation übrigens IMHO Sinn, wenn man den ursprünglichen Wert im Original mit transportiert, dadurch werden Fehler beim wieder zusammenbauen vermieden:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        @files = map { $_->[1] } sort { $a->[0] cmp $b->[0] } map { [/_(\w+)\.txt$/, $_] } @files;
        
        Genial!!! Nur das Sortierkriterium extrahieren und den Rest ganzlassen, Cool.
        
        Oh, Dein Code ist schwer durchschaubar ;)
        Du map'st $1 auf ->[0] zum Sortieren, ok.
        Alles zusammen steht in [1], also ab Zeile 4:
        
        ['foo', '10_foo.txt']
        [0] [1]
        
        Freilich, geht auch, aber es ist schwer zu erkennen, wie das anomyme Array mit [0] und [1] entsteht.
        
        Nagut, wir alle machen möglicherweise Fehler. Idealerweise da, wo sie auch gefunden werden ;)
        
        Viele Grüße,
        Rolf
        
        Edit: Genau hingucken *g. Das Komma machts, hab ich nicht gleich gesehen ;)
        Danke Dir!!!!
        Last edited: 2011-04-05 13:12:57 +0200 (CEST)

View all threads created 2011-04-05 07:51.