PERL
	Rutina para chequear ingreso de cuenta de email válida

by alfi

Cómo comprobar que una direccion email sea sintácticamente correcta ?

Esta rutina es muy simple, cuando desde un formulario de suscripción, se le envía una cuenta de email al script de PERL, es importante saber si el email enviado es al menos un formato válido.

Desde la página web debe haber un formulario parecido a éste:

<form method=POST action=http://www.alfinal.com/cgi/bin/suscriptor.pl>

   <input type="text" name="email">

   <INPUT  type=submit value="INGRESAR" name=Enviar>

</form>

Ahora el script PERL

$FORM{'email'} =~ s/\ //g;
if ($FORM{'email'} =~ /.*\@.*\..*/) {
 $email = $FORM{'email'};
 $email =~ tr/A-Z/a-z/;
}
 

Veamos línea por linea

   $FORM{'email'} =~ s/\ //g;
en ésta linea  mediante expresiones regulares se le suprime los espacios vacíos que ocasionalmente hubiera tipeado el usuario.

if ($FORM{'email'} =~ /.*\@.*\..*/) {
En ésta línea, se chequea que el email enviado tenga @ (arroba) y una estructura compatible con una cuenta de mail. Si eso es correcto,  se asigna la entrada a la variable $email a la cual traducimos preventivamente a minusculas ya que algunos usuarios accidentalmente usan mayúsculas.

 $email =~ tr/A-Z/a-z/;