Dateinamen durchsuchen (Allgemeines zu Perl)

[thread]14359[/thread]

Dateinamen durchsuchen

Leser: 25

Articles: hide open all | hide show old branches

+11 replies
gmafx

2009-12-10 21:06
User since
2009-11-19
47 Artikel
BenutzerIn
Hallo,

ich habe einen Ordner mit 37 files. Diese möchte ich eigentlich nur mittels "cat" miteinander vereinen. Allerdings muss dies in sortierter Reihenfolge passieren. Die Files in diesem Ordner heissen:

cluster0_gaf.txt
cluster10_gaf.txt
cluster11_gaf.txt
cluster12_gaf.txt
cluster13_gaf.txt
cluster14_gaf.txt

bis cluster 37.

Wenn ich die Dateinamen einlese bekomme ich sie nicht vernünftig sortiert (also logisch aufsteigend von 0-37).

Deswegen dachte ich an folgende Lösung:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

@clusters =(0..37); opendir (DIR, ".") or die "$!"; @files = grep {/cluster/} readdir DIR;print @files; for $clusters ( @clusters) { for $files (@files) { if ($files =~ /$clusters\_g/) { $file = $files; print "$clusters $file\n"; } } }
Ich bin absoluter Anfänger was das schriben von Skripts angeht, vergebt mir also bitte dii umständliche Art. Das Skript soll also einfach alle Dateien einlesen, die "cluster" im Namen beinhalten. Dann soll durch den den array $cluster (Zahlen von 0-37) gegangen werden und geschaut werden, wann diese Zahl in den eingelesenen Dateinamen vorkommt.

Da liegt mein Problem, also in der Abfrage (REGEX-Lernkurve ist bei mir sehr langsam):
die liefert lauter Mehrfachnennungen für z.B. "1" findet sie natürlich

1 cluster11_gaf.txt
1 cluster1_gaf.txt
1 cluster21_gaf.txt
1 cluster31_gaf.txt

statt nur cluster1_gaf.txt!

Das ganze nutze ich letztenendes, um einen Befehlsausdruck für "cat" mittels eines Systemcalls (system('cat $liste_der_dateien_in_richtiger_reihenfolge > neue.datei')) zu erzeugen.

Ok, wahrscheinlich ohnehin viel zu aufwendig. Mir wäre schon geholfen, wenn ich einen Tip bekäme, wie ich die Abfrage besser gestalten könnte.

Noch beser wäre natürlich ein "Einzeiler", der das Ganze etwas eleganter löst.

gma
- +3 replies
- renee
  
  2009-12-10 21:16
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Der Fehler an Deinem Regulären Ausdruck liegt darin, dass Du nicht sagst, was vor der Zahl kommen darf. Wenn Du es so machst, sollte es hinhauen: /cluster$clusters\_g/
  
  Ich persönlich würde das auf die Schnelle eher so machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #!/usr/bin/perl use strict; use warnings; use File::Find::Rule; # suche alle cluster-Dateien my @files = File::Find::Rule->file->name( "cluster*_gaf.txt" )->maxdepth(1)->in( '.' ); # sortiere mittels "Schwartzsche Transformation" my @sorted = map{ $_->[0] } sort{ $a->[1] <=> $b->[1] } map{ my ($i) = $_ =~ /cluster(\d+)/; [ $_, $i ] } @files; print $_,"\n" for @sorted;
  
  Die Schwartzsche Transformation sieht vielleicht etwas kryptisch aus, wenn Du Dich damit noch nicht beschäftigt hast, aber ich werde das morgen oder so mal ausformulieren...
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +2 replies
  - gmafx
    
    2009-12-10 21:27
    User since
    2009-11-19
    47 Artikel
    BenutzerIn
    
    Super,
    
    ersten: Lösung 1 funktioniert wunderbar, obwohl ich nicht verstehe, warum dass so sein muss!
    
    zweitens: vielen Dank für die prompte Hilfe, das rettet meinen Abend, denn dass war der letzte Schritt in Perl um eine Datei zu erzeugen, die jetzt in R weiterverarbeitet wird.
    
    drittens: Schwartzsche Trafo sieht natürlich wesentlich schicker aus, gucke ich mir gleich nochmals genauer an.
    
    viertens: das statement
    
    Code (perl): (dl )
    
    print $_,"\n" for @sorted;
    
    könnte ich auch in eine Datei schreiben? (print OUTPUTFILE .....)
    
    edit: ach ne, das ist ja nur der Filename! Ok, ich denke nochmals drüber nach!
    
    gma
    Last edited: 2009-12-10 21:38:21 +0100 (CET)
    - renee
      
      2009-12-10 23:07
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Da Du ja *eindeutige* Ergebnisse haben willst, musst Du auch einen Regulären Ausdruck schreiben, der das liefert.
      
      In dem ursprünglichen Ausdruck hast Du ja nur gesagt, dass eine Zahl (der Inhalt der Laufvariablen) und dann "_g" da sein muss. Das ist aber nicht sehr spezifisch, wie Du ja selbst festgestellt hast. Es ist ja nicht verboten, dass *vor* der Zahl noch weitere Zahlen stehen dürfen.
      
      Du hättest auch /[^\d]${counter}_g/ schreiben können. Damit hättest Du gesagt:
      
      Egal was, aber *keine* Zahl
      Inhalt der Laufvariablen
      _g
      
      Reguläre Ausdrücke sind ein sehr komplexes Thema. Folgendes empfohlenes Lesematerial gibt es dazu:
      
      http://regenechsen.de/
      http://p3rl.org/perlretut
      http://p3rl.org/perlrequick
      http://p3rl.org/perlreref
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
- +7 replies
- hlubenow
  
  2009-12-11 00:29
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  "Filenamen" ist jedenfalls schon mal ausgezeichnetes Denglisch ...
  - +2 replies
  - Gast Guest
    
    2009-12-11 14:56
    
    Dateibezeichnung ist ja wohl zu lang.
    - bianca
      
      2009-12-11 15:04
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Guest Guest
      Dateibezeichnung ist ja wohl zu lang.
      
      Und wie wär es mit Dateiname oder filename ?
      Und im Plural evtl. Dateinamen oder filenames aber eigentlich nicht Filenamen :)
      10 print "Hallo"
      20 goto 10
  - +4 replies
  - GwenDragon
    
    2009-12-11 15:10
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Modedit GwenDragon: Den Titel habe ich jedenfalls mal geändert.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - gmafx
      
      2009-12-12 11:20
      
      User since
      2009-11-19
      47 Artikel
      BenutzerIn
      
      Entschuldigt bitte mein "Denglisch", meine Literatur zum Thema EDV ist komplett in englischer Sprache verfasst. Zudem tue ich mich schon schwer, denn Sinn von Übersetzungen einzusehen - bei der fortschreitenden Anglifizierung.
      
      Wer weiss, wenn "Mails" als "deutsch" akzeptiert sind, dann kann es nicht mehr lange dauern, bis "Files" dies auch sein werden.
      
      Bis dahin verspreche ich Besserung!
      
      gma
      - Gast wer
        
        2009-12-12 12:15
        
        Ohne es bewerten zu wollen:
        "Filenamen" ist so was wie "Mailboxen" oder "WLane".
        Die verbreitete Meinung hier ist entweder nur Englisch oder nur Deutsch, nicht beides zusammen in einem Wort.
      - bianca
        
        2009-12-12 15:52
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-12-12T10:20:41 gmafx
        Entschuldigt bitte mein "Denglisch", meine Literatur zum Thema EDV ist komplett in englischer Sprache verfasst. Zudem tue ich mich schon schwer, denn Sinn von Übersetzungen einzusehen - bei der fortschreitenden Anglifizierung.
        
        Wer weiss, wenn "Mails" als "deutsch" akzeptiert sind, dann kann es nicht mehr lange dauern, bis "Files" dies auch sein werden.
        
        Bis dahin verspreche ich Besserung!
        
        Halb so schlimm :)))
        Aber für Mails gibt es kein gutes deutsches Äquivalent. Für filenames aber schon. Insofern nachvollziehbar, dass die E-Mail als solche im Duden steht, der engl. "filename" oder die dengl. "Filenamen" aber nicht.
        10 print "Hallo"
        20 goto 10

View all threads created 2009-12-10 21:06.