Suche erklären (RegEx) (Allgemeines zu Perl)

[thread]17315[/thread]

Suche erklären (RegEx)

Tags: perl5 regex Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+15 replies
Gast Tom

2012-04-13 10:16
Hallo,

kann mir jemand die folgende Suche erklären?
Code (perl): (dl )

$inFile=~/(.+)\.([^.]+)/
modedit Editiert von GwenDragon: Titel ergänzt
Last edited: 2012-04-13 10:45:18 +0200 (CEST)
- +13 replies
- GwenDragon
  
  2012-04-13 10:24
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Der Inhalt der Variable $inFile wird einer Überprüfung durch einen regulären Ausdruck unterzogen.
  
  Deren Inhalt besteht aus
  mehrfachen, beliebigen Zeichen (.+)
  gefolgt von einem . .
  gefolgt von mehreren Zeichen die kein . sind ([^\.]+)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +12 replies
  - Gast Tom
    
    2012-04-13 10:28
    Danke. Beim letzten Teil meinst du
    
    Code: (dl )
    
    ([^.]+)
    
    ?
    Last edited: 2012-04-13 10:33:21 +0200 (CEST)
    - +6 replies
    - GwenDragon
      
      2012-04-13 10:40
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Ja, das Escapen des . mit \ musste nicht sein, da der . in eckigen Klammern (Auswahl einer Zeichenklasse) steht.
      
      Das RegEx trennt bei Dateinamen die Zeichenkette in Dateiname und -Typ.
      
      Sowas kann auch das Modul File::Basename mit der Methode fileparse.
      Last edited: 2012-04-13 10:41:53 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +5 replies
      - topeg
        
        2012-04-13 11:37
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das Modul ist auch besser darin den Dateinamen und Endung zu finden. Unter Windows mag die Regexp noch funktionieren, aber unter anderen Betriebssystemen ist eine Endung nicht zwingend. So kann auch folgendes Vorkommen: /home/user/daten/2000.03.12/test
        Der reguläre Ausdruck würde finden: $1='/home/user/daten/2000' und $2='03.12/test' was natürlich völliger Unsinn ist.
        Auf /home/user/test würde er überhaupt nicht anspringen.
        
        +3 replies
        
        Gast Danke
        
        2012-04-13 11:48
        
        Einen hab ich noch
        
        Code: (dl )
        
        $line=~/^\s*(.*)\s*$/
        
        Last edited: 2012-04-13 11:49:35 +0200 (CEST)
        
        +2 replies
        
        GwenDragon
        
        2012-04-13 11:50
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Extrahiere alles was zwischen Leerzeichen liegen könnte.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Linuxer
        
        2012-04-13 12:06
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Wobei die Anker eine entscheidende Bedeutung haben. Es interessieren nur die Leerzeichen am Anfang oder am Ende.
        
        Und die Lösung ist (IMHO) auch noch unsauber:
        
        Die Leerzeichen am Ende werden vom eingeklammerten .* schon aufgenommen ... bleiben also im eingefangenen String erhalten.
        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!
        
        clms
        
        2012-04-14 01:43
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2012-04-13T09:37:08 topeg
        Der reguläre Ausdruck würde finden: $1='/home/user/daten/2000' und $2='03.12/test' was natürlich völliger Unsinn ist.
        Fast.
        Das .* ist "greedy'. Er würde also $1='/home/user/daten/2000.03' und $2='12/test' finden.
    - +5 replies
    - GUIfreund
      
      2012-04-13 11:42
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      In
      
      Code (perl): (dl )
      
      $inFile=~/(.+)\.([^.]+)/
      
      matcht das \. den letzten Punkt des Strings. Deshalb kann man sich im letzten Teil der Regex die Zeichenklasse sparen.
      Gruß
      GUIfreund
      - +4 replies
      - GwenDragon
        
        2012-04-13 11:49
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Warum kann man sich das sparen? Wie meinst du das?
        Wenn beide Teile (vor dem Punkt und danach) extrahiert werden sollen, kann das sinnvoll sein.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        clms
        
        2012-04-14 01:47
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2012-04-13T09:49:03 GwenDragon
        Warum kann man sich das sparen? Wie meinst du das?
        Wenn beide Teile (vor dem Punkt und danach) extrahiert werden sollen, kann das sinnvoll sein.
        
        (.*)\. findet alles bis zum letzten Punkt im String.
        Also könnte man auch (.*)\.(.*) schreiben.
        $2 kann nie einen Punkt enthalten.
        
        +2 replies
        
        GwenDragon
        
        2012-04-14 09:23
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ja, sicher, (.*) klappt auch.
        Man könnte die Antwort von GUIfreund so auffassen, dass die Klasse weggelassen werden kann ohne ein anderes Regex zu verwenden. Das kann natürlich nicht sein. Deswegen meine Nachfrage.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        GUIfreund
        
        2012-04-14 10:14
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        2012-04-14T07:23:04 GwenDragon
        Man könnte die Antwort von GUIfreund so auffassen, dass die Klasse weggelassen werden kann ohne ein anderes Regex zu verwenden.
        
        Das verstehe ich wiederum nicht. Meine Aussage war
        Quote
        Deshalb kann man sich im letzten Teil der Regex die Zeichenklasse sparen.
        
        ... wobei die Regex unmittelbar darüber zitiert war. Was ist daran unklar?
        Gruß
        GUIfreund
- Relais
  
  2012-04-14 11:37
  User since
  2003-08-06
  2246 Artikel
  ModeratorIn
  Guest Tom
  Hallo,
  
  kann mir jemand die folgende Suche erklären?
  
  Code (perl): (dl )
  
  $inFile=~/(.+)\.([^.]+)/
  
  Spannend, dass noch keiner YAPE::Regex::Explain vorgeschlagen hat.
  
  Code: (dl )
  
  1 2
  
  use YAPE::Regex::Explain; my $exp = YAPE::Regex::Explain->new($REx)->explain;
  
  Quote
  The regular expression:
  
  (?-imsx:(.+)\.([^.]+))
  
  matches as follows:
  
  NODE EXPLANATION
  ----------------------------------------------------------------------
  (?-imsx: group, but do not capture (case-sensitive)
  (with ^ and $ matching normally) (with . not
  matching \n) (matching whitespace and #
  normally):
  ----------------------------------------------------------------------
  ( group and capture to \1:
  ----------------------------------------------------------------------
  .+ any character except \n (1 or more times
  (matching the most amount possible))
  ----------------------------------------------------------------------
  ) end of \1
  ----------------------------------------------------------------------
  \. '.'
  ----------------------------------------------------------------------
  ( group and capture to \2:
  ----------------------------------------------------------------------
  [^.]+ any character except: '.' (1 or more
  times (matching the most amount
  possible))
  ----------------------------------------------------------------------
  ) end of \2
  ----------------------------------------------------------------------
  ) end of grouping
  ----------------------------------------------------------------------
  [/quote]
  Erst denken, dann posten --
  27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.
  
  Winter is Coming

View all threads created 2012-04-13 10:16.