Hallo,
ich will in einem PerlScript (auf Server) prüfen, ob eine per Formular übergebene EMail-Adresse einigermaßen richtig ist. Gibts da was fertiges ? Ansonsten habe ich hier einen JavaScript-Schnipsel, … und das Problem, dass ich mich mit RegExps nicht besonders gut auskenne. Kann mir das vielleicht jemand nach Perl übersetzen ?
function isEmailOk (str)
{
var r1 = new RegExp('(@.\*@)|(\\.\\.)|(@\\.)|(^\\.)');
var r2 = new RegExp('^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$');
return (!r1.test(str) && r2.test(str));
}
besten Dank Ralf