Überprüfung auf bestimmte Zeichen

[Frank Schönmann]

hi!

Ich habe mir das Feedback-Formular aus SelfHTMl zum Beispiel
genommen und möchte die Eingabe der Email auf bestimmte Zeichen
überprüfen. So hatte ich mir vorgenommen den Skalar mit folgender
Konstruktion zu überprüfen:

unless {$Email =~ /@/) {

^
Das war hoffentlich nur ein Fehler beim Abtippen? Wenn ja, siehe
unten.

#-->Benutzereingabe falsch<--
}

Folgendes funktioniert hier problemlos:

=== cut ===
#!/usr/bin/perl -w

$email = "[e-mail]";

unless ($email =~ /@/) {
  print "wrong";
} else {
  print "right";
}
=== cut ===

Da müsstest du uns schon ein bisschen mehr verraten, wenn du wissen
willst, wieso deines nicht klappt. Ich kann mir jetzt auch nicht so
richtig vorstellen, wieso das bei dir nicht geht. Vielleicht steht
in der Variable nix (Variablen in perl sind case-sensitiv). Hast du
mal "use strict;" und einen Aufruf mit Parameter -w (warnings)
ausprobiert? Irgendwelche Ergebnisse?

if {$Email != /@/) {
#-->Benutzereingabe falsch<--
}

Wenn schon, dann muss das folgendermaßen aussehen:

=== cut ===
if ($Email !~ /@/) {
  # Fehlerbehandlung
}
=== cut ===

bye, Frank!