.. | .. |
![]() |
PERL |
Rutina para chequear
ingreso de |
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/;