Regex - #153380 (Allgemeines zu Perl)

suresh

2011-10-21 12:27

User since
2010-10-12
109 Artikel
BenutzerIn
[default_avatar]

Hi,
wenn du die patterns nur matchen willst, dann könntest du zb die whitespaces durch Unterstrich ersetzen und dann dein pattern matching anwenden:

Code (perl): (dl )

my @pattern = ("Volume 2 SAPSWW", "VOLUME14_ADMTL04");

foreach my $pattern (@pattern) {
$pattern =~ s/\s/_/g;
$pattern =~ m/^\w+$/g;

print "Matching: $pattern\n";
}