Opened by wkonline at 2005-02-08 20:31
User since
2003-08-04
1706 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
1706 Artikel
HausmeisterIn
Entweder escapest du das / mit einem \ da es ja der begrenzer der regex ist oder du definierst mit m andere begrenzer:
Gruß Alex
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
format_c@manchester:~/Develop/Perl> cat test.pl
chomp (my $input = <STDIN>);
print($input =~ /[^A-Za-z0-9._\-\/ ]/ ? "nicht erlaubt\n" : "erlaubt\n");
format_c@manchester:~/Develop/Perl> vi test.pl
format_c@manchester:~/Develop/Perl> cat test.pl
chomp (my $input = <STDIN>);
print($input =~ m#[^A-Za-z0-9._\-/ ]# ? "nicht erlaubt\n" : "erlaubt\n");
format_c@manchester:~/Develop/Perl> perl test.pl
DAs ist erlaubt
erlaubt
format_c@manchester:~/Develop/Perl>
Gruß Alex