matching - #63458 (Allgemeines zu Perl)

renee

2006-03-05 15:06

User since
2003-08-04
14371 Artikel
ModeratorIn

Naja, der RegEx ("([0d-w9]ef+?)q") sieht etwas komisch aus...

Du kannst auch so etwas machen:

Code: (dl )

my @regexes = ('([\d\w]+)', 'another Regex');

my $regex = join('|',@regexes);

if($string =~ /($regex)/){
  print $1;
}

Dann brauchst Du auch die for-Schleife nicht mehr...