Opened by Tom at 2004-07-14 20:26
User since
2003-09-20
470 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-20
470 Artikel
BenutzerIn
[quote=betterworld,15.07.2004, 22:44]Als "sichere" Loesung fuer Dein Problem wuerde ich vorschlagen:
[/quote]
Das funktioniert aber auch nicht.
In die Variable $beginn schreibt Perl "(?-xism:^)" ist das so richtig???
Ich brauche das für ein CGI-Script, außerdem verwende ich noch Perl 5.6.1 (Windows)
Tom
Code: (dl
)
1
2
3
4
5
my $begin = $name =~ s/^\*// ? qr// : qr/^/;
my $end = $name =~ s/\*$// ? qr // : qr/$/;
if ($string =~ /$begin\Q$name\E$end/) {
...
}
Das funktioniert aber auch nicht.
In die Variable $beginn schreibt Perl "(?-xism:^)" ist das so richtig???
Ich brauche das für ein CGI-Script, außerdem verwende ich noch Perl 5.6.1 (Windows)
Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de
Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
Fordere keine Anerkennung!
Zeige was und man wird Dich kennen