Opened by Tom at 2004-07-14 20:26
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
aha, mal wieder einer mit einem kaputten perl.
meins (5.8.3, linux) macht, was es soll:
meins (5.8.3, linux) macht, was es soll:
Code: (dl
)
1
2
3
4
5
6
7
8
9
$ perl -wle'
$string = "123webmaster123";
$name = "*webmaster*";
$name =~ s/\*/.*/g;
if ($string =~ m/^$name$/i) {
print qq{"$string" matches "$name"}
}'
"123webmaster123" matches ".*webmaster.*"
$
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
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem