Articulos Politicos mas Recientes:
05/01/2019 Eu sou você amanhã (por Enrique G. Avogadro) :::

22/12/2018 Piedra libre, Enrique y Sebastian (por Enrique G. Avogadro) :::

15/12/2018 Un asco irrefrenable (por Enrique G. Avogadro)


.. ..

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

 

 

COMENTAR ESTE ARTICULO
Su Nombre
Su email
Comentario
 
(El comentario será evaluado previo a ser publicado en la página con su nombre + email) Las respuestas, aparecerán en la página consultada
Enviar Mensajes Públicos Enviar Mensajes Públicos
Articulos más leidos
: : : TORAX OSEO
: : : ETMOIDES, ESFENOIDES, PARIETALES, OCCIPITAL
: : : Arteria Aorta y sus ramas
: : : Nutricion, Energia y Metabolismo
: : : ARTICULACIONES
: : : Arteria Aorta y sus ramas
: : : GENERALIDADES DE MUSCULOS. MUSCULOS DE LA CABEZA
: : : MIEMBRO SUPERIOR OSEO
: : : Trabajo Practico Nº2 d
: : : Aparato Digestivo II
: : : MUSCULOS DEL TÓRAX, LA PELVIS, MIEMBROS SUPERIOR E INFERIOR
: : : Trabajo Practico Nº2 d
: : : Sistema Nervioso
: : : HUESOS DEL CRANEO: Temporal
: : : La célula
: : : MUSCULOS DEL CUELLO
: : : Trabajo Practico Nº2 a
: : : Trabajo Practico Nº1
: : : COLUMNA VERTEBRAL
: : : CINTURAS PELVIANA Y ESCAPULAR
: : : MIEMBRO INFERIOR
: : : Aparato Digestivo
: : : Aparato Digestivo
: : : Huesos de la CARA
: : : Aparato digestivo
: : : La piel - Esqueleto Oseo, Cráneo: el Frontal
: : : Trabajo Practico Nº2 a
: : : Cuál es tu dosha ? (Ayurveda)
: : : Tabla de indice glicemico
: : : Consecuencias de la alimentación inadecuada
: : : Cirugia adenoidea (de las vegetaciones adenoides)
: : : Nervio olfatorio I primer par craneal
: : : Vértigo y enfermedad de meniere
: : : Cirugia de amigdalas
: : : Sindrome y Cefalea Tensional
: : : SERC betahistina
: : : Abceso o flemón periamigdalino
: : : Adenoidectomía en paciente con Hemopatía de VON WILLEBRAND
: : : Sindrome de Samter
: : : Hipoacusia Súbita
: : : Nervio optico, el segundo par craneal
: : : Sindrome de Beckwith Wiedemann
: : : Amigdalas (palatinas)
: : : Adenoides o crecimiento de tejido linfoideo detras de la nariz
: : : Argentina es el Tercer Mundo con gente bien vestida y rostro bonito
: : : Test de lesbianismo
: : : Principios básicos de electricidad
: : : La comunicación
: : :
Alfinal.com no se responsabiliza por el contenido de los artículos publicados.
Si el contenido de algun artículo ofende a terceros, comuniquelo a Alfinal.com
www.alfinal.com - Todos los derechos reservados 2012