Konditionaloperator

[Hans]

Argh, das geht so

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

>   
> AAAAARg,  
>   
> ~~~perl

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

> 

Hammer's jetzt bald? ;-)

Gruß

Hans