Konditionaloperator

[Struppi]

my $email="[e-mail]";

($email =~ m/^\w+@\w+.\w+$/)
? print "E-Mail passt !\n"
: print "E-Mail passt nicht !\n";

Argh, das geht so

print ($email =~ m/^\w+@\w+\.\w+$/) ? "E-Mail passt !\n" : print "E-Mail passt nicht !\n";  

Hast Du mal Deine zu prüfende E-Mail-Adresse ausgegeben?

Das Porblem ist Zuweisung innerhalb des Ausdrucks.

Struppi.