regex match auf "md5($_REQUEST" (Allgemeines zu Perl)

[thread]18183[/thread]

regex match auf "md5($_REQUEST"

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+4 replies
Superfrank

2013-03-05 11:46
User since
2006-09-05
164 Artikel
BenutzerIn
Hallo,
ich möchte PHP-Scripte nach den Strings
Code: (dl )

1 2 3

md5($_REQUEST md5($_GET md5($_POST
durchsuchen und in meinem jugendlichen Leichtsinn, bin ich auf
Code: (dl )

/md5$\$_(REQUEST|GET|POST)/
gekommen, was (natürlich, höhö) nicht funktioniert. Da ist zuerst eine Variable die dann für den regex verwendet wird:
Code: (dl )

1 2 3 4 5 6

my $pattern = "(md5\(\$_(REQUEST|GET|POST)|oder_anderer_regex|nocheinregex)"; if ($_ =~ /$pattern/i) { . . .
Quittiert wird das mit dem Fehler
Code: (dl )

Unmatched ( in regex; marked by <-- HERE in m/( <-- HERE md5($_(REQUEST|GET|POST))/ at
Bei meinen Nachforschungen bin ich drauf gestossen, daß man nicht einfach in einem regex nach "(" suchen kann, sondern im gleichen Ausdruck auch nach ")" suchen muss und wenn ich den regex um ein "$" ergänze tritt der Fehler nicht auf, es matcht aber auch nichts.
Gibt es eine Möglichkeit nach o.g. Strings zu suchen ohne die nachfolgenden Klammern berücksichtigen zu müssen.
Bitte keine Vorschläge mit Klassen und Methodenaufrufen, da diese zu teuer sind.

Grüsse

Frank
- +2 replies
- Muffi
  
  2013-03-05 11:59
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Nimm mal einfache Anführungszeichen, keine Doppelten.
  
  Oder du machst statt einem String gleich ne Regex draus.
  
  Code (perl): (dl )
  
  1 2
  
  my $pattern = qr/.../; if ($_ =~ $pattern)
  
  Last edited: 2013-03-05 12:03:04 +0100 (CET)
  1 + 1 = 10
  - Superfrank
    
    2013-03-05 12:34
    User since
    2006-09-05
    164 Artikel
    BenutzerIn
    
    Mit einfachen Anführungszeichen hats nicht funktioniert, war aber ein entscheidender Hinweis. Ich habe den Ausdruck nun auf
    
    Code: (dl )
    
    my $pattern = '(md5$\$_(REQUEST|GET|POST)[^$]{1,}\))'
    
    geändert der funktioniert.
- pq
  
  2013-03-05 12:34
  User since
  2003-08-04
  12209 Artikel
  Admin1
  du schreibst ja richtigerweise einen backslash vor die klammer und das dollarzeichen. warum? um es zu escapen, also nicht als regex-sonderzeichen zu behandeln.
  das ganze schreibst du nun mit doppelten anführungszeichen erstmal in einen string.
  erst dann gibst du dem matching-operator diesen string. bis dahin sind aber die backslashes verschwunden.
  
  Code: (dl )
  
  1 2 3 4
  
  perl -wE' my $pattern = "(md5\(\$_(REQUEST|GET|POST)|oder_anderer_regex|nocheinregex)"; say $pattern' (md5($_(REQUEST|GET|POST)|oder_anderer_regex|nocheinregex)
  
  klammer und dollarzeichen sind also nicht mehr escaped.
  
  wenn du dich wundert, warum etwas nicht klappt, mach einfach ein print, um zu sehen, was wirklich in deinen variablen enthalten ist.
  
  die lösung hat muffi gepostet.
  Last edited: 2013-03-05 12:35:29 +0100 (CET)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2013-03-05 11:46.