regex Dateinamen (solved) (Allgemeines zu Perl)

[thread]18402[/thread]

regex Dateinamen [solved]

Tags: perl5 Similar Threads

Readers: 25

Articles: hide open all | hide show old branches

+7 replies
rc27

2013-06-24 09:09

User since
2013-06-18
14 articles
BenutzerIn

Guten Morgen!

Ich versuche gerade Dateien anhand der Dateinamen zu sortieren und umzubenennen und steh mit regex noch am Anfang.

- Gesucht wird eine vierstellige Zahl, die am Anfang der Datei steht oder
- eine sechsstellige Zahl irgendwo im Dateinamen, wobei
- vor und nach der Zahl ein Zeichen stehen darf, was aber keine Zahl sein darf.

Ich habe erstmal mit der sechstelligen angefangen. Das funktioniert so nicht, weil so auch längere Zahlen gefunden werden.

$filename =~ /(\D?\d{6})\D?/

1234_120104_001234_435345345435.txt # 1234
20130307.1_000323_20130315110858.txt # 000323
002312._0201304113_xt_21.txt # 002312

Grüße
- +2 replies
- GwenDragon
  
  2013-06-24 09:44
  
  User since
  2005-01-17
  14942 articles
  Admin1
  
  Was vor und nach darf bedeutet, verstehe ich nicht.
  Es können also 6 Ziffern sein oder 1 Nichtziffer gefolgt von 6 Ziffern oder 6Ziffern gefolgt von 1 Nichtziffer oder 1 Nichtziffer gefolgt von 6 Ziffern gefolgt von 1 Nichtziffer.
  
  Ich denke du willst sowas?
  (^\d{4})|(\D?(\d{6})\D?)
  
  U:\>perl -E "'1234_120104_001234_435345345435.txt' =~ /(^\d{4})|(\D?(\d{6})\D?)/; say $1||$2" 1234 U:\>perl -E "'20130307.1_000323_20130315110858.txt' =~ /(^\d{4})|(\D?(\d{6})\D?)/; say $1||$2" 2013 U:\>perl -E "'002312._0201304113_xt_21.txt.txt' =~ /(^\d{4})|(\D?(\d{6})\D?)/; say $1||$2" 0023
  Last edited: 2013-06-24 09:48:11 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - GwenDragon
    
    2013-06-24 10:05
    
    User since
    2005-01-17
    14942 articles
    Admin1
    
    Der Regex (\D?(\d{6})\D?) matcht natürlich auch 10stellige Ziffern.
    Wie Muffi schon erklärte.
    Wenn du nur 6 Ziffern haben willst, müssen die "Grenzen" der Ziffernblöcke (bei dir war das \D (keine Ziffer)) angegeben werden.
    
    //EDIT: Erklär uns bitte nochmal was du brauchst, welcher Teil des Dateinamens das vorrangige Kriterium der Auswahl sein soll.
    Last edited: 2013-06-24 10:10:55 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- Muffi
  
  2013-06-24 09:54
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Wenn du im Kopf durchgehst was da passiert ist es logisch.
  
  Angenommen Du hast eine 8-Stellige Zahl und dein ...d{6})\D?
  Dann schaut er sich eine nach der anderen die ersten 6 Ziffern an.
  Danach kommt das \D?. Das heisst irgendwas was nicht Digit ist muss danach kommen ODER AUCH NICHT! (durch das ?)
  D.h. egal was danach kommt, auch die nächsten 2 Ziffern, es trifft immer.
  1 + 1 = 10
  - +3 replies
  - rc27
    
    2013-06-24 10:55
    User since
    2013-06-18
    14 articles
    BenutzerIn
    
    Erstmal vielen Dank für die Infos. Jetzt ist es schon um einiges klarer. Ich habe mir jetzt noch ein Großteil der Dateiennamen angeschaut und es ist noch um einiges komplizierter, als ich dachte.
    
    Ich habe mir jetzt erstmal die Bedingungen aufgeschrieben. Die von oben nach unten abgearbeitet werden müssen. Die Dateien sollen anhand der Nummer identifiziert werden und in den entsprechenden Ordner mit der Nummer verschoben werden. Die Dateinamen folgen dabei keiner wirklichen Logik, deswegen ist die Reihenfolge der Erkennung wichtig.
    
    Irgendwo kx123456 # kx gefolgt von 6 Ziffern
    Irgendwo kx12345
    Irgendwo kx1234
    Am Anfang (00)1234_ # (00) steht für zwei führende Nullen
    Irgendwo _(00)1234 # _ keine Zahl
    Am Anfang oder _ 1-6_
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    1 /(kx[0-9]{6})/i 2 /(kx[0-9]{5})/i 3 /(kx[0-9]{4})/i 4 /(^00[0-9]{4}\D)/ 5 /(\D00[0-9]{4}\D)/ 6 /((\D|^)\d{1,6}\D)/
    - +2 replies
    - topeg
      
      2013-06-24 12:00
      
      User since
      2006-07-10
      2611 articles
      BenutzerIn
      
      Du kannst es entweder alles mit
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      for my $fname (@files) { if( $fname=~/regex/ ) { verschiebe($fname, $von, $nach); } elsif( $fname=~/regex/ ) { verschiebe($fname, $von, $nach); } #...
      
      machen, oder du sparst dir Tipperei und schreibst es Übersichtlicher so:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
      
      my @aktionen=( [qr/(kx[0-9]{6})/i, '/wo/es/hin/soll/A/'], [qr/(kx[0-9]{5})/i, '/wo/es/hin/soll/B/'], [qr/(kx[0-9]{4})/i, '/wo/es/hin/soll/C/'], [qr/(^00[0-9]{4}\D)/, '/wo/es/hin/soll/D/'], [qr/(\D00[0-9]{4}\D)/, '/wo/es/hin/soll/E/'], [qr/((\D|^)\d{1,6}\D)/, '/wo/es/hin/soll/F/'], ); my $quelle='/wo/die/dateien/sind/'; my @file_names; # ... for my $fname (@file_names) { for my $paar (@aktionen) { my ($regex,$ziel)=@$paar; if($fname =~ $regex) { verschiebe($fname, $quelle, $ziel); last; } } } # -------------------------------------------------- sub verschiebe { my ($file,$quelle,$ziel)=@_; File::Copy::move($quelle.$file,$ziel.$file); }
      
      So kannst du die einzelnen Aktionen leicht ergänzen und verschieben.
      Das ist ein AoA (Array of Arrays) in dem zuerst die Regex und dann das Verzeichnis wohin verschoben werden soll.
      Die verschachtelten For-Schleifen arbeiten sich durch die Liste der Dateinamen und prüfen für jede ob die Regexp erfüllt ist. Wenn dem so ist wird verschoben und mit der nächsten Datei weiter gemacht.
      - rc27
        
        2013-06-24 13:02
        
        User since
        2013-06-18
        14 articles
        BenutzerIn
        
        Super! Vielen Dank! Das sieht um einiges aufgeräumter auf als mein Code.
        
        Grüße

View all threads created 2013-06-24 09:09.