Konditionaloperator

[Hans]

Hallo !

Ich habe folgendes probiert und die "E-Mail passt !":

#!/usr/bin/perl

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

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

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

Gruß

Hans