Fieses Matching-Pattern entschlüsseln (solved) (Allgemeines zu Perl)

[thread]18765[/thread]

Fieses Matching-Pattern entschlüsseln [solved]

Tags: perl5 Similar Threads

Readers: 21

Articles: hide open all | hide show old branches

+17 replies
Speedriff

2013-11-25 11:10

User since
2013-11-25
39 articles
BenutzerIn

Mahlzeit Leute!

Ich bin rel. neu in der Perl Programmierung, habe schon einige andere Sprachen ausprobiert, benötige nun aber Perl für die Arbeit, wo wir verschiedene Dateien verschicken und den Inhalt manipulieren.
Nun bin ich auch ein Skript gestoßen, dass folgenden Vergleich enthält:

$part = ~s/^(.*\/).*$/\1/g; # Das ist Magie... ;-)

Ich verstehe zwar, dass das eine suchen/ersetzen Funktion ist, die irgendwas am Anfang der Zeile etwas sucht, und das /g am Schluß sagt wohl aus dass es jedes Mal true ergibt, wenn die Schleife ein neues zuvergleichendes Objekt gefunden hat. (Der Ausruck steht in einer foreach-Schleife)
Aber letztlich verstehe ich es nicht.
Kann mir das jemand erklären? Wäre sehr nett, mit den Tutorials komme ich nicht recht weiter..

Vielen Dank im Vorraus!

Gruß,
Speedriff

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2013-11-25 11:44:29 +0100 (CET)
- Muffi
  
  2013-11-25 11:22
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Kurz: es schneidet [edit] ~~zeilenweise~~ [/edit] alles nach dem letzten / ab
  
  [edit2] Irgendwie kapier ich den Sinn glaub ich doch nicht so ganz
  
  [edit3] Also ich glaub das "g" ist Schmarrn. Ansonsten sollte man rechts nicht \1 benutzen (wusste garnicht, dass das überhaupt geht) sondern $1.
  Und das Leerzeichen bei = ~s so setzen: =~ s
  Last edited: 2013-11-25 11:37:43 +0100 (CET)
  1 + 1 = 10
- +11 replies
- jan
  
  2013-11-25 11:26
  
  User since
  2003-08-04
  2536 articles
  ModeratorIn
  
  2013-11-25T10:10:49 Speedriff
  $part = ~s/^(.*\/).*$/\1/g; # Das ist Magie... ;-)
  
  die Klammern werden genutzt, um das darin enthaltene später als $1 bzw \1 verwenden zu können, für den Suchausdruck haben sie hier keinen Einfluss.
  
  . steht für ein beliebiges Zeichen
  * steht für beliebig viele Zeichen (von denen, die vorangingen)
  .* ist also "beliebig viele beliebige Zeichen"
  dann kommt ein /, der escapt werden muss weil der Ausdruck ja auch von / umschlossen ist.
  dann kommt wieder .*, in Worten ausgedrückt lautet der Ausdruck also
  "Fange am Anfang an. Finde beliebig viele beliebige Zeichen bis ein Slash auftaucht und speichere sie in $1, danach kommen noch mal beliebig viele beliebige Zeichen bis zum Ende. Nun ersetze den ganzen String durch das in $1 gespeicherte."
  - +2 replies
  - Speedriff
    
    2013-11-25 11:31
    
    User since
    2013-11-25
    39 articles
    BenutzerIn
    
    Vielen Dank schonmal!!
    Ging ja echt schnell :-)
    
    In der Variable $part steht immer ein Pfad und ein Dateiname drin. Letzlich schneidet er dann den Dateinamen ab und lässt nur den Pfad und ein letztes Slash stehen oder?
    
    Gruß,
    
    Speedriff
    - jan
      
      2013-11-25 12:59
      
      User since
      2003-08-04
      2536 articles
      ModeratorIn
      
      Genau.
  - +2 replies
  - payx
    
    2013-11-25 11:58
    
    User since
    2006-05-04
    564 articles
    BenutzerIn
    
    Hallo,
    
    2013-11-25T10:26:23 jan
    ... in Worten ausgedrückt lautet der Ausdruck also
    "Fange am Anfang an. Finde beliebig viele beliebige Zeichen bis ein Slash auftaucht ..."
    
    Genauer: Finde beliebig viele beliebige Zeichen (einschließlich Slashes) bis zum letzten Slash.
    
    Wenn man den ersten Slash finden will, kann man s/^(.*?\/).*$/$1/g schreiben, also ein ? nach dem *.
    
    Grüße
    payx
    - jan
      
      2013-11-25 12:59
      
      User since
      2003-08-04
      2536 articles
      ModeratorIn
      
      Stimmt.
      Ich wurde verwirrt von zwei greedy .*, vor und nach dem Slash. Ich hab mir angewöhnt, immer ? zu verwenden, würde das also .*/.*? schreiben, um's deutlich zu machen.
  - +6 replies
  - Speedriff
    
    2013-12-02 16:32
    
    User since
    2013-11-25
    39 articles
    BenutzerIn
    
    jetzt habe ich für meine Mitarbeiter einen "Leitfaden" dazu geschrieben, dann ist mir aber noch eine Frage gekommen:
    
    Wieso wird durch den Ausdruck (.*\/) das LETZTE Slash gesucht?
    
    sagen wir mal in der $part steht:
    
    /ordner1/ordner2/ordner3/ordner4/datei.dat
    
    ein anderes ergebnis wäre doch dann auch "/ordner1/" oder? das sind auch beliebig viele beliebige Zeichen und ein Slash, und nach der Klammer steht wieder ".*$"
    Also in dem Fall dann "ordner2/ordner3/ordner4/datei.dat", was ja auch "beliebig viele beliebige Zeichen bis zum Stringende" sind oder? Was sucht genau nach dem letzten Slash?
    Gruß,
    Speedriff
    - Muffi
      
      2013-12-02 16:39
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Quantifier (z.B. *, +, {n,m}) matchen gierig.
      Also fressen alles was sie kriegen können.
      Ein ? hinter einem Quantifier schaltet das Verhalten (für diesen) ab.
      1 + 1 = 10
    - +4 replies
    - payx
      
      2013-12-02 16:41
      
      User since
      2006-05-04
      564 articles
      BenutzerIn
      
      Hallo Speedriff,
      
      der Ausdruck .* matcht so viele Zeichen wie möglich.
      
      Der Ausdruck .*\/ matcht so viele Zeichen wie möglich und dann einen Slash.
      
      Der Ausdruck .*?\/ matcht so wenige Zeichen wie möglich und dann einen Slash.
      
      Auf diese Weise findet das Konstrukt ohne das Fragezeichen den letzten Slash, das Konstrukt mit dem Fragezeichen den ersten.
      
      Ich hoffe, ich konnte mich klar ausdrücken.
      
      Grüße
      payx
      
      PS: Ich persönlich würde es eher nicht in Angriff nehmen, einen Leitfaden für den Gebrauch von regular expressions zu verfassen. Erstens gibt es hierzu schon eine Menge sehr guter Literatur, zweitens ist das ein wahrhaft weites Feld ...
      - Speedriff
        
        2013-12-02 16:46
        
        User since
        2013-11-25
        39 articles
        BenutzerIn
        
        Wunderbar, Danke an beide!!
        Der Leitfaden ist nur zu einem bestimmten Skript, nicht komplett für alles ;-) Das wäre in der Tat zu viel des Guten..
        
        Gruß,
        Speedriff
      - +2 replies
      - clms
        
        2013-12-02 17:43
        
        User since
        2010-08-29
        373 articles
        BenutzerIn
        
        2013-12-02T15:41:09 payx
        der Ausdruck .* matcht so viele Zeichen wie möglich.
        
        Der Ausdruck .*\/ matcht so viele Zeichen wie möglich und dann einen Slash.
        
        Der Ausdruck .*?\/ matcht so wenige Zeichen wie möglich und dann einen Slash.
        
        Interessant wird es, wenn auch noch "backtracking" ins Spiel kommt.
        
        Beispiel: qr(^(.*)/(.*)/(.*)$)
        
        Das erste (.*)/ ist greedy, matched also zunächst bis zum letzten Slash. Da dann aber der Rest des Strings nicht mehr zum Rest der Regex passen würde, wird dann ein neuer Versuch mit einem Match bis zum vorletzten Slash gestartet. Da passt dann auch der Rest der Regex, der ja einen weiteren Slash erfordert.
        
        Bei /p1/abc/p2/dir/data.x kommt also $1 == "/p1/abc/p2", $2 == "dir", $3 == "data.x" raus.
        
        2013-12-02T15:41:09 payx
        PS: Ich persönlich würde es eher nicht in Angriff nehmen, einen Leitfaden für den Gebrauch von regular expressions zu verfassen. Erstens gibt es hierzu schon eine Menge sehr guter Literatur, zweitens ist das ein wahrhaft weites Feld ...
        
        Dem kann ich mich nur anschließen.
        
        Muffi
        
        2013-12-02 21:55
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Und hier zum angucken Regex
        1 + 1 = 10
- +3 replies
- GwenDragon
  
  2013-11-25 11:38
  
  User since
  2005-01-17
  14936 articles
  Admin1
  
  Auf http://rick.measham.id.au/paste/explain.pl kanns du online Regexe erklären lassen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Speedriff
    
    2013-11-25 11:43
    
    User since
    2013-11-25
    39 articles
    BenutzerIn
    
    Danke für den Link, aber er erlärts mir leider nicht so dass ichs versteh ;-)
    Werd wohl noch ne Zeit brauchen bis mir diese Sprache verständlich wird...
    
    Gruß,
    Speedriff
    - GwenDragon
      
      2013-11-25 11:45
      
      User since
      2005-01-17
      14936 articles
      Admin1
      
      Ach so, dann frage einfach uns, wir erklären gern.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Linuxer
  
  2013-11-25 13:31
  User since
  2006-01-27
  3893 articles
  HausmeisterIn
  Wenn Du das überarbeiten darfst oder was neues schreibst, folgender Hinweis:
  
  Es gibt ein Modul, das im Perl-Core enthalten sein sollte(File::Basename), mit dem man solche Aktionen mit Pfaden erledigen kann.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  use File::Basename qw( basename dirname ); my $path = "/path/to/file.txt"; print "DIR: ", dirname($path), "\n"; print "FILE: ", basename($path), "\n";
  
  Und der "cryptische" Regex ist Vergangenheit ;-)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2013-11-25 11:10.