Schauen, ob Sonderzeichen vorhanden sind: also alles ausser a-z A-Z 0-9 _-. (Perl/CGI)

[thread]426[/thread]

Schauen, ob Sonderzeichen vorhanden sind: also alles ausser a-z A-Z 0-9 _-.

wkonline

2005-02-08 20:31

User since
2004-05-09
11 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich brauche mal wieder eure Hilfe ;)

Und zwar will ich in einem String nachschauen, ob irgendwelche Zeichen ausser a-z A-Z 0-9 . - _ vorhanden sind.

Mein erster Ansatz war:

Code: (dl )

if ($input =~ /[äöüß]/i)
{
mach was....
}

Aber sobald ich in die Regel z.B. !"§$% eintrage funktioniert das ganze Script nicht mehr.

Gibt es evtl. eine Regel, wo ich festelgen kann, was erlaubt ist?

Gruß,

wkonline

format_c

2005-02-08 20:39

User since
2003-08-04
1706 Artikel
HausmeisterIn

Code: (dl )

1
2
3

if ($input =~ /[^A-Za-z0-9.-_]/) {
    die "nicht erlaubt\n";
}

Das ^ in einer Zeichenklasse negiert sie.
Gruß Alex\n\n

Effizente Linuxshell

wkonline

2005-02-08 20:48

User since
2004-05-09
11 Artikel
BenutzerIn
[default_avatar]

Hi,

danke!!! Funktioniert wunderbar!
Nur: sobald ich das Zeichen "/" erlauben will

Code: (dl )

if ($ziel =~ /[^A-Za-z0-9.-_/]/)

kommt folgende Meldung:

Code: (dl )

Unmatched [ in regex; marked by <-- HERE in m/[ <-- HERE ^A-Za-z0-9.-_/ at /home/wkonline/index.cgi line 2367.

Gruß,

wkonline

format_c

2005-02-08 20:54

User since
2003-08-04
1706 Artikel
HausmeisterIn

Hoppla hab gemerkt dass das so nicht nicht so ganz passt. Das hier ist besser:

Code: (dl )

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>

Gruß Alex

Effizente Linuxshell

format_c

2005-02-08 20:57

User since
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:

Code: (dl )

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

Effizente Linuxshell

esskar

2005-02-08 20:58

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

du musst dem / genauso wie das - ein \ vorrstellen!

wkonline

2005-02-08 20:58

User since
2004-05-09
11 Artikel
BenutzerIn
[default_avatar]

Danke ;)
Funktioniert...\n\n

Strat

2005-02-10 22:11

User since
2003-08-04
5246 Artikel
ModeratorIn

alternativ kannst du anstelle von / ein anderes begrenzerzeichen verwenden, wenn du noch ein m voranstellst z.B.

Code: (dl )

m~[^A-Za-z0-9._\-\/ ]~

wenn du einen buchstaben als begrenzerzeichen verwenden willst, muss zwischen dem m und dem buchstaben ein leerzeichen stehen:

Code: (dl )

m r[^A-Za-z0-9._\-\/ ]r

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Dubu

2005-02-10 23:55

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Code: (dl )

m~[^\w\d/.-]~    # irgendetwas anderes als Wortzeichen (\w = A-Z, a-z, _), Ziffern (\d = 0-9), /, . oder -

\n\n

2005-02-12 22:43

User since
2003-08-04
12208 Artikel
Admin1

wozu die regex-maschine anwerfen, wenn es so schneller geht:
if ($input =~ tr#a-zA-Z0-9_./##c) { print "nicht erlaubt" }

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

View all threads created 2005-02-08 20:31.