E-Mail Syntax checken

[Sascha Müller]

Hallo,

mit folgendem "Sucher" checke ich die Syntax der eingegebenen E-Mail Adresse. Die Problematik wurde hier schon einmal diskutiert, auch, dass dieser "Checker" nicht 100%ig sei. Dem ist auch so, zum Beispiel läst er Umlaute durchgehen, und eine E-Mail Adresse wie @gmx.net ist für ihn auch o.k. Könnte man diesen "Checker" noch ein wenig optimieren?

if($DATA{"email"} =~ /[ |\t|\r|\n]*"?([^"]+"?@[^ <>\t]+.[^ <>\t][^ <>\t]+)[ |\t|\r|\n]*/)
{
 print "O.K.\n";
}
else
{
 print "Falsch\n";
}

Vielen Dank für jegliche Mithilfe.

Ciao
Sascha