Opened by Froschpopo at 2006-03-05 06:01
User since
2003-08-15
2653 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
2653 Artikel
BenutzerIn
Folgender Code:
in @tests befinden sich eine Reihe von Mustern die ich alle prüfen will.
Das funktioniert auch soweit. Aber im obigen Beispiel befindet sich ein syntaxfehler in $tests[0], der komischerweise im Matching nicht erkannt bzw debugged wird. Warum?
Ich habe ein ganzes Array voll mit Mustern. Ich möchte mir eigentloich gerne ersparen, für jedes matching einen eigenen regex schreiben zu müssen. Hat jemand vielleicht eine bessere idee als die oben abgebildete?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
use strict;
my @tests = (
"([0d-w9]ef+?)q"
);
my $string = $ARGV[0];
for my $line (@tests) {
if ($string =~ /$line/) {
print "Muster $line erkannt\n";
}
}
in @tests befinden sich eine Reihe von Mustern die ich alle prüfen will.
Das funktioniert auch soweit. Aber im obigen Beispiel befindet sich ein syntaxfehler in $tests[0], der komischerweise im Matching nicht erkannt bzw debugged wird. Warum?
Ich habe ein ganzes Array voll mit Mustern. Ich möchte mir eigentloich gerne ersparen, für jedes matching einen eigenen regex schreiben zu müssen. Hat jemand vielleicht eine bessere idee als die oben abgebildete?