Konditionaloperator

[Struppi]

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";  

Struppi.