Hilfe zu negiertem Regex (Allgemeines zu Perl)

[thread]18396[/thread]

Hilfe zu negiertem Regex

Tags: perl5 regex Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+7 replies
bob.george

2013-06-21 09:43
User since
2011-09-02
104 Artikel
BenutzerIn
Hallo,
ich habe folgenden Code:
Code: (dl )

1 2 3

if($input =~ !/^\*\*\*INPUT STATEMENT:/i){ print "Treffer: ".$input."\n"; }
Dieser sollte beim Inhalt -- ----- einen "Treffer" liefern, tut er aber nicht. Weiß jemand warum?
- +6 replies
- payx
  
  2013-06-21 10:30
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo bob.george,
  
  so gehts:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  #!/usr/bin/perl use strict; use warnings; my $input = "-- -----"; if($input !~ /^\*\*\*INPUT STATEMENT:/i){ print "Treffer: ".$input."\n"; }
  
  HTH
  Grüße
  payx
  - +5 replies
  - bob.george
    
    2013-06-21 12:16
    User since
    2011-09-02
    104 Artikel
    BenutzerIn
    
    Danke payx.
    
    So ginge es auch
    
    Code: (dl )
    
    1 2 3
    
    if(!($input =~ /^\*\*\*INPUT STATEMENT:/i)){ print "Treffer: ".$input."\n"; }
    
    Mich würde nur interessieren warum es im ersten Beispiel nicht funktioniert.
    - +3 replies
    - renee
      
      2013-06-21 12:50
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Das !/^\*\*\*INPUT STATEMENT:/i wird *vor* dem Match ausgeführt, was widerum ein ! ($_ =~ /^\*\*\*INPUT STATEMENT:/i) ist. Da in $_ nichts steht, gibt das keinen Treffer. Das aber negiert gibt "1". Und $input =~ 1 ist unwahr, weil keine 1 vorkommt.
      
      Wenn in $input eine 1 steht, bekommst Du einen Treffer:
      
      Code: (dl )
      
      1 2 3 4 5
      
      $ perl -E 'say "1" =~ !/^\*\*\*INPUT STATEMENT:/i' 1 $ perl -E 'say "-- -----" =~ !/^\*\*\*INPUT STATEMENT:/i' $
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +2 replies
      - bob.george
        
        2013-06-21 13:27
        
        User since
        2011-09-02
        104 Artikel
        BenutzerIn
        
        2013-06-21T10:50:51 renee
        Das !/^\*\*\*INPUT STATEMENT:/i wird *vor* dem Match ausgeführt, was widerum ein ! ($_ =~ /^\*\*\*INPUT STATEMENT:/i) ist. Da in $_ nichts steht, gibt das keinen Treffer. Das aber negiert gibt "1". Und $input =~ 1 ist unwahr, weil keine 1 vorkommt.
        
        Wenn in $input eine 1 steht, bekommst Du einen Treffer:
        
        Code: (dl )
        
        1 2 3 4 5
        
        $ perl -E 'say "1" =~ !/^\*\*\*INPUT STATEMENT:/i' 1 $ perl -E 'say "-- -----" =~ !/^\*\*\*INPUT STATEMENT:/i' $
        
        Danke, jetzt hab ichs kapiert ;-)
        
        payx
        
        2013-06-21 13:29
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Ich auch!
    - styx-cc
      
      2013-06-21 12:51
      
      User since
      2006-05-20
      533 Artikel
      BenutzerIn
      
      Weil du das ! im ersten Beispiel auf $_ anwendest und nicht auf den $input - man verneint RegEx nicht mit =~ !/.../ sondern so wie payx schon beschrieben hat, es sei denn man arbeitet mit $_.
      
      Wenn du use warnings; benutzt, dann bekommst du auch eine entsprechende Warnung, sofern $_ vorher nicht gesetzt wurde.
      
      Siehe auch: regexp negieren
      
      Gruß
      Pörl.

View all threads created 2013-06-21 09:43.