String Mustererkennung (Allgemeines zu Perl)

[thread]18540[/thread]

String Mustererkennung

Tags: perl5 regex Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+5 replies
perlnerd

2013-08-26 15:31
User since
2013-08-26
2 Artikel
BenutzerIn
Hi zusammen,

ich verzweifle grad an nem kleinen Problem...
Ich versuche einen String mittels einem negativen Lookahead zu untersuchen.
Beispiel:
Code: (dl )

1 2 3

if ($xline =~ /element[0-9]+(?!\_)/i) { # tue was }
Was ich befolge ist: Wenn eine Zeile element3 enthält dann <tue was>
Sollte die Zeile element_test3 enthalten dann nichts tun.

Irgendwie habe ich einen Knoten im kopp..
Kann mir bitte jemand helfen?
Thx!
Last edited: 2013-08-26 15:32:37 +0200 (CEST)
- +3 replies
- GwenDragon
  
  2013-08-26 15:54
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Dein Regex match alles was Zeichenkette element gefolgt von einer/mehreren Ziffern und keinem Unterstrich ist.
  
  U:\>perl -E "say ("element9" =~ /element[0-9]+(?!\_)/i)" 1 U:\>perl -E "say ("element91" =~ /element[0-9]+(?!\_)/i)" 1 U:\>perl -E "say ("element91a" =~ /element[0-9]+(?!\_)/i)" 1 U:\>perl -E "say ("element_91a" =~ /element[0-9]+(?!\_)/i)" U:\>perl -E "say ("element_test" =~ /element[0-9]+(?!\_)/i)" U:\>perl -E "say ("element_test3" =~ /element[0-9]+(?!\_)/i)" U:\>perl -E "say ("element3" =~ /element[0-9]+(?!\_)/i)" 1 U:\>perl -E "say ("element3a" =~ /element[0-9]+(?!\_)/i)" 1
  Last edited: 2013-08-26 15:58:12 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - perlnerd
    
    2013-08-27 11:08
    
    User since
    2013-08-26
    2 Artikel
    BenutzerIn
    
    Danke, ich muss mir das nochmal anschauen.
    Ich kriege das irgendwie nicht hin mit perl -E "..."
    Mein perl kennt die -E option nicht...
    Ist das was neues?
    - GwenDragon
      
      2013-08-27 11:28
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      -E aktiviert die erweiterten Funktionen von Perl 5.010.
      Für ältere Perl musst du den Schalter -e und print "....\n" statt say "..." verwenden.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2013-08-26 16:02
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Wär da nicht /element[^_]+/i wie von dir gewünscht?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-08-26 15:31.