nicht angemeldet
Hi!
Ich habe eine if-Anweisung in einem PERL-Skript geschrieben in der
überprüft werden soll ob außer a-z oder A-Z bzw. 0-9 noch andere
Zeichen eingegeben worde sind. Sollte dies der Fall sein so
gibt die Anweisung einen Fehlermeldung aus. Andernfalls soll mit
der arbeit fortgefahren werden.
Ich habe nun solch eine Abfrage geschrieben, aber die funzt aus einem
mir unerklärlichen Grund nicht. Systax ist laut PERL 5.003_0X ok.
Kann mir bitte wer helfen?
Der Source-Code:
######## Hier im Prog. drin #########
######## Beginn if-Anweisung #########
if ($FORM{'textfeld'} =~ / \W \D /) {
print "Content-type: text/html\n\n";
print "Sie haben ein ungültiges Passwort angegeben.\n Bitte gehen Sie <a href="javascript:back()">zurück</a> und geben Sie eine gültige ein!";
exit;
}
######## ENDE der Anweisung #########
######## Programm geht #########
Vielden Dank schon im Voraus für die HILFE!
Mfg Thomas!