“Conocimientos Programación>Perl Programming

Cómo comprobar una Perl Correo electrónico

2012/4/23
Perl es un lenguaje de programación utilizado en las máquinas y servidores Linux para automatizar tareas administrativas comunes, como el control de una dirección de correo electrónico dada por un usuario para ver si es válida y se ajusta el patrón de dirección de correo electrónico. Para ello , la clave es la sintaxis de coincidencia de patrón conocido como " expresiones regulares ". Instrucciones
1

Abra un nuevo archivo de texto . Se puede utilizar cualquier editor de texto que prefiera, desde el Bloc de notas de Windows a un PERL Medio Ambiente dedicado de desarrollo integrado ( IDE ) , como EPIC o Padre . Sin embargo , los procesadores de texto a escala real como Microsoft Word son inapropiados , ya que no lo hacen, de forma predeterminada, la salida de texto sin formato.
2

Indique que este es un archivo perl pegando la siguiente línea en la parte superior del archivo de texto :

# /usr /bin /perl
3

tienda una dirección de correo electrónico en la memoria :

$ email = " myemail \\ @ email.com " ;

Tenga en cuenta que el " . debe escapar símbolo @ " ( precedida ) con una barra invertida para que perl sabe que es parte del texto y no el código
4

Comparar a prueba email expresión regular para ver si se ajusta a la pauta de un correo electrónico estándar :

if ($ email = ~ m /^ [A- Za- z0- 9._ % + . . -] + @ [ A- Za- z0- 9 -] + \\ [A- Za- z ] { 2,4 } $ /) { print

" Sí. " ;
< p >} else {

print " No" ;

}

"= ~" operador dice Perl para comparar una cadena con una expresión regular, y la siguiente expresión regular dicta que la cadena debe contener un número de letras y dígitos , seguido de un signo @ , seguido de nuevo por una serie de números y dígitos y, por último , por lo menos una extensión de entre dos y cuatro caracteres de tamaño.

5

Guarde su trabajo con el nombre de archivo " emailtest.pl . " Puede realizar la prueba escribiendo " perl emailtest.pl " en una línea de terminal o de comandos.

Página siguiente:
Perl Programming
Cómo mantener una ventana enfocada en Perl /Tk
Cómo encontrar caracteres chinos utilizando expresiones regulares en Perl
Mi doble cadena Perl no está funcionando
Cómo quitar un espacio en blanco en Perl
Cómo leer la entrada de texto de DOSBox Con Perl
Perl 5.10 vs. 5.8.8
Perl : Cómo utilizar una variable en una función Split
Cómo eliminar todos los espacios en blanco en una cadena con expresiones regulares en Perl
Conocimientos Informáticos © http://www.ordenador.online