Regex-Frage (Allgemeines zu Perl)

[thread]14402[/thread]

Regex-Frage

Tags: regex Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+12 replies
Gast Gast

2009-12-20 19:10
Hallo!

Wie muss ich diese Regex umschreiben, damit entweder die Klammer vor dem Strichpunkt oder die Klammer nach dem Strichpunkt oder beide matchen?
Code (perl): (dl )

/( (?: \w+ (?:\s+\w+ )? )? ; (?: \w+ (?: \s+\w+ )? )? ) /x;
- +5 replies
- Taulmarill
  
  2009-12-20 20:38
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  Ich würde einfach den Teil vor und den Teil nach dem Semikolon in zwei unterschiedliche Variablen speichern und dann diese überprüfen. Sollte es eine Lösung nur mit Regulären Ausdrücken dafür geben, dann komme ich im Moment nicht drauf.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +4 replies
  - MatthiasW
    
    2009-12-21 12:35
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    Diese Logik würde ich auch eher ungern in den regulären Ausdruck packen, denn capturen muss man die Teilausdrücke sowieso:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    / ( ( \w+ (?:\s+\w+)? )? ; ( \w+ (?:\s+\w+)? )? ) (?(2) | (?(3) | (?!))) /x
    
    Jedenfalls fällt mir spontan sonst nichts ein.
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - +2 replies
    - Gast Gast
      
      2009-12-21 14:56
      
      Ok, dann geht es in Richtung "keep it siple":
      
      Code (perl): (dl )
      
      1 2
      
      my $var = $1 if /^\s*(.*\S)\s*$/; my @array = split ';', $var, 2;
      
      und nach Bedarf das @array überprüfen.
      - murphy
        
        2009-12-21 15:03
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Vielleicht wäre
        
        Code (perl): (dl )
        
        1 2
        
        [...] my @array = split /\s*;\s*/, $var, 2;
        
        etwas bequemer.
        When C++ is your hammer, every problem looks like your thumb.
    - Gast LanXoff
      
      2009-12-21 16:25
      
      ich denke, ich verstehe noch nicht mal die Aufgabenstellung ...
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      $k='(\s+\w+ )'; $re=qr#(?:$k;$k|;$k|$k;)#; $\="\n"; print " AAA ;" =~ $re; print " BBB ; CCC ;" =~ $re; print " ; DDD " =~ $re;
- +6 replies
- Gast LanXoff
  
  2009-12-22 02:50
  Code (perl): (dl )
  
  /( (?: \w+ (?:\s+\w+ )? )?+ ; (?: \w+ (?: \s+\w+ )? )?+ /x;
  - +5 replies
  - MatthiasW
    
    2009-12-22 15:35
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    Wenn man die fehlende schließende Klammer ergänzt, matcht es trotzdem auch wenn beide Teilausdrücke fehlschlagen:
    
    Code: (dl )
    
    1 2 3 4
    
    ~$ perl $rx = qr/( (?: \w+ (?:\s+\w+ )? )?+ ; (?: \w+ (?: \s+\w+ )? )?+ )/x; print "gaga\n" if ';' =~ $rx; gaga
    
    Das + hinter dem Fragezeichen bedeutet doch nur, dass nicht versucht wird, den optionalen Ausdruck, wenn er denn passte, wieder freizugeben, damit der gesamte Ausdruck matcht, oder?
    Also ein /\w?b/ würde auf 'b' matchen, ein /\w?+b/ jedoch nicht.
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - Gast LanXoff
      
      2009-12-22 21:26
      
      Das + sollte IIRC bewirken das der Klammerausdruck beim backtracken atomar ist.
      
      Wie gesagt ich verstehe die Problemstellung nicht, es fehlen Testcases.
      
      Müßig ohne Klarstellung weiter Energie zu investieren.
    - sid burn
      
      2009-12-23 01:43
      
      User since
      2006-03-29
      1520 Artikel
      BenutzerIn
      
      Quote
      Das + hinter dem Fragezeichen bedeutet doch nur, dass nicht versucht wird, den optionalen Ausdruck, wenn er denn passte, wieder freizugeben, damit der gesamte Ausdruck matcht, oder?
      Also ein /\w?b/ würde auf 'b' matchen, ein /\w?+b/ jedoch nicht.
      
      Ganz genau.
      
      Vielleicht sollte man noch erwähnen das dies erst ab Perl 5.10 geht.
      Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
    - +2 replies
    - Gast LanXoff
      
      2009-12-23 12:50
      
      wenn denn gefragt sein sollte, dass mindestens ein Teilausdruck matcht...
      
      warum nicht einfach gleich darauf testen?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      DB<1> $t='\w' DB<2> if ( "aaa ; " =~ /($t)?( ; )($t)?/ and "$1$3" ne "") { print "$1$2$3"} aaa ; DB<3> if ( "aaa ; bbb" =~ /($t)?( ; )($t)?/ and "$1$3" ne "") { print "$1$2$3"} aaa ; bbb DB<4> if ( " ; bbb" =~ /($t)?( ; )($t)?/ and "$1$3" ne "") { print "$1$2$3"} ; bbb DB<5> if ( " ; " =~ /($t)?( ; )($t)?/ and "$1$3" ne "") { print "$1$2$3"} DB<6>
      - MatthiasW
        
        2009-12-23 18:44
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Ich denke, so hatte Taulmarill es ebenfalls gemeint ;-)
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View all threads created 2009-12-20 19:10.