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.