Matching mit Klammern geht nicht (solved) (Allgemeines zu Perl)

[thread]20402[/thread]

Matching mit Klammern geht nicht [solved]

Tags: perl5 regex Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+9 replies
guest Leonie

2017-12-11 19:53
Hallo,

Ich muss Linien aus dem einen File in einem zweiten File finden. Mein Script findet aber keinen Match, wenn in dem Text Klammern sind. Reduziert auf das Nötigste ist das Problem folgendes:
Code: (dl )

1 2 3 4 5 6 7 8

$s="a (b) c"; $_=$s; if (/$s/) { print "Found it!\n"; } else { print "Not found\n"; }
Das Resultat ist immer "Not found", obwohl die beiden Strings identisch sind :(
Wenn ich "(b)" durch "b" ersetze, krieg ich ein "Found it!". Was muss ich ändern, damit es auch mit Klammern funktioniert?
Last edited: 2017-12-11 23:08:14 +0100 (CET)
- +4 replies
- Linuxer
  
  2017-12-11 23:18
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  Hallo,
  
  die runden Klammern haben eine Sonderfuktion im regulären Ausdruck (Regex), die hier bei Deinem Beispiel greift. Damit wird das eingefangen, was innerhalb der Klammern steht.
  
  Wenn Du /$s/ verwendest, wird das, was in $s steckt als Regex gewertet und die Klammern bekommen eine Sonderbedeutung.
  
  Beispiele:
  
  Wenn Du nur prüfen willst, ob zwei Variablen identische Strings enthalten, verwende eq:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8
  
  $s="a (b) c"; $_=$s; if ( $_ eq $s) { print "Found it!\n"; } else { print "Not found\n"; }
  
  Wenn Du per Regex prüfen willst, aber keine Interpretation der Sonderzeichen wünschst:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  $s="a (b) c"; $_=$s; # alles zwischen \Q und \E wird als String gewertet, allerdings werden Variablen interpoliert if ( /\Q$s\E/ ) { print "Found it!\n"; } else { print "Not found\n"; }
  
  Wenn Du die einfangende Klammer nutzen willst, musst Du bedenken, dass sie im Regex zusätzlich zum "normalen" Text angegeben werden muss:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  $s="a (b) c"; $_="a b c"; if ( /$s/ ) { # Das eingefangene der Klammer steht nun in $1 print "Found it: $1!\n"; } else { print "Not found\n"; }
  
  Mehr dazu findest Du in der dazugehörigen Dokumentation:
  
  perlretut
  perlre
  perlrequick
  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!
  - +2 replies
  - Raubtier
    
    2017-12-11 23:54
    
    User since
    2012-05-04
    1081 articles
    BenutzerIn
    
    Wenn du gar keine Regex nutzen willst, kannst du auch einfach die index-Funktion benutzen.
    
    Edit: Mist, dies sollte eine Antwort an Leonie sein, nicht an Linuxer.
    - guest Leonie
      
      2017-12-12 10:57
      
      Danke für den Tip, wär auch eine Möglichkeit.
      Last edited: 2017-12-12 11:30:09 +0100 (CET)
  - guest Leonie
    
    2017-12-12 10:54
    
    Vielen dank Linuxer, super, hat geklappt mit dem \Q\E, das kannte ich nicht. Werd ich mir merken :)
    Last edited: 2017-12-12 11:29:16 +0100 (CET)
- +3 replies
- hlubenow
  
  2017-12-12 00:53
  User since
  2009-02-22
  879 articles
  BenutzerIn
  Ich glaube, das ist die alte Geschichte: \Q und \E um die Variable in der RegEx:
  
  Code: (dl )
  
  if (/\Q$s\E/) {
  
  Edit: Ah, hatte Linuxer ja gesagt.
  - guest Leonie
    
    2017-12-12 10:57
    
    Danke.
    Last edited: 2017-12-12 11:30:12 +0100 (CET)
  - Muffi
    
    2017-12-13 15:49
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Bisschen OT, aber ganz interessant:
    
    Code (perl): (dl )
    
    1 2 3
    
    my $s = '\s'; my $test = 'Hallo\s'; say $test =~ /$s/ ? 'JA' : 'NEIN';
    
    NEIN
    
    Code (perl): (dl )
    
    1 2 3
    
    my $s = '\s'; my $test = 'Hallo\s'; say $test =~ /\Q$s\E/ ? 'JA' : 'NEIN';
    
    JA
    
    Und jetzt:
    
    Code (perl): (dl )
    
    1 2 3
    
    my $s = '\E\s\Q'; my $test = 'Hal lo'; say $test =~ /\Q$s\E/ ? 'JA' : 'NEIN';
    
    Na?
    1 + 1 = 10
- rosti
  
  2017-12-12 19:44
  User since
  2011-03-19
  3603 articles
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3
  
  my $s = "a (b) c"; $_ = $s; $s = quotemeta $s;
  
  Geht auch. MfG
  http://blog.rolfrost.de/
  
  The art of steam.

View all threads created 2017-12-11 19:53.