Regex / Teilausdrücke merken (Allgemeines zu Perl)

[thread]20038[/thread]

Regex / Teilausdrücke merken

Tags: perl5 regex Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+8 replies
Gast theozh

2016-04-03 22:29
Hallo Perl-Spezialisten,
es gibt ja die Möglichkeit, sich Teilausdrücke zu merken.

Einfaches Beispiel:
Code: (dl )

/([^aeiou])([aeiou])\1\2/
Würde in einer Wörterliste, z.B. mama,papa,soso,... finden.

Wie müsste die Regex aussehen, wenn ich Wörter suche, die jeden Vokal (a,e,i,o,u) genau einmal in beliebiger Reihenfolge enthalten?

Vereinfacht entspräche dabei der Ausdruck [^aeiou] einem Konsonanten und [aeiou] einem Vokal.
Ich dachte, es müsste etwas geben wie:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

[^aeiou]* # 0 oder mehr Konsonanten ([aeiou]) # 1. Vokal [^aeiou]* # 0 oder mehr Konsonanten ([^\1]) # 2. Vokal, aber nicht nochmals der 1. Vokal [^aeiou]* # 0 oder mehr Konsonanten ([^\1\2]) # 3. Vokal, aber nicht nochmals der 1.,2. Vokal [^aeiou]* # 0 oder mehr Konsonanten ([^\1\2\3]) # 4. Vokal, aber nicht nochmals der 1.,2.,3, Vokal [^aeiou]* # 0 oder mehr Konsonanten ([^\1\2\3\4]) # 5. Vokal, aber nicht nochmals der 1.,2.,3.,4. Vokal [^aeiou]* # 0 oder mehr Konsonanten
Aber das [^\1] usw. funktioniert so offenbar nicht...
Hat jemand eine Idee?
Last edited: 2016-04-03 22:41:15 +0200 (CEST)
- +2 replies
- betterworld
  
  2016-04-03 22:47
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  Da musst du wohl mit look-ahead arbeiten. Ich würde es so machen wie folgt, da kommt dann gar keine merkende Gruppe mehr vor:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  for (<DATA>) { print if /^ (?=[^a]*a[^a]*\z) (?=[^e]*e[^e]*\z) (?=[^i]*i[^i]*\z) (?=[^o]*o[^o]*\z) (?=[^u]*u[^u]*\z) /x; } __DATA__ Hallo Barionen Barionenwurst Barionenrakete Mausetoit
  
  Nachtrag: Ich glaube, das Problem an deinem Versuch ist, dass man \1 nicht innerhalb von den eckigen Klammern nutzen kann. Aber du könntest es wohl korrigieren, wenn du die negierten Zeichensets durch negierte Look-Aheads ersetzt.
  Last edited: 2016-04-03 22:52:21 +0200 (CEST)
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - Gast theozh
    
    2016-04-05 10:51
    
    @betterworld
    Danke für die schnelle Antwort und den Hinweis mit "look-ahead". Es scheint wie gewünscht zu funktionieren, doch muss ich das nochmal in Ruhe genau nachvollziehen.
    Last edited: 2016-04-05 11:10:00 +0200 (CEST)
- +5 replies
- Muffi
  
  2016-04-04 08:23
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Also du willst Worter in denen alle Vokale drin vorkommen, jeder aber nur genau einmal.
  
  Ich würd das nicht in eine einzige Regex packen.
  Mach doch ne Schleife über qw(a e i o u), da matcht du jeden und schaust, dass Anzahl 1 rauskommt. Und insgesamt müssen alle Vokale matchen.
  
  Also schnell hingeschlonzt ungefähr sowas:
  
  Code (perl): (dl )
  
  1 2 3
  
  for my $word (@words) { say $word if (scalar(grep { my $count = () = $word =~ /$_/; $count == 1 } qw(a e i o u)) == 5); }
  
  edit: statt dem grep ... == 5 kann man natürlich auch einen "all" benutzen, aber den hab ich grad nicht da.
  Last edited: 2016-04-04 08:24:49 +0200 (CEST)
  1 + 1 = 10
  - +4 replies
  - Gast theozh
    
    2016-04-05 10:57
    
    Danke, Muffi
    Das wäre sicher auch eine Möglichkeit. Aber in meinem Fall ist es besser man hat eine einzige Regex, anstatt für jede andere denkbare Abfrage individuelle Schleifen zu programmieren.
    Last edited: 2016-04-05 11:10:08 +0200 (CEST)
    - +3 replies
    - Muffi
      
      2016-04-05 13:33
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Ah ok.
      Aber rein interessehalber: Was ist an einer individuellen Regex bei dir besser als an einer individuellen Schleife?
      1 + 1 = 10
      - +2 replies
      - Gast theozh
        
        2016-04-05 16:27
        
        Zur Eingabe habe ich ein Formular bzw. Textfeld, in dem ich eine Regex eintippen kann. Und dann wird damit in allen möglichen Listen gesucht. Wie sollte ich individuelle Schleifen in einem einzigen Eingabetextfeld realisieren?
        Last edited: 2016-04-05 16:29:08 +0200 (CEST)
        
        Muffi
        
        2016-04-05 20:07
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ah, verstanden. Rein theoretisch liesse sich aber auch mit eval beliebiger Code ausführen.
        Aber reine Regex sind da wohl eleganter
        1 + 1 = 10

View all threads created 2016-04-03 22:29.