¿Es válido y funcionará? Si usted recopila o utiliza direcciones de correo electrónico en cualquier parte de sus scripts y programas Perl, es posible que recopile muchas direcciones que no funcionan. Uno puede carecer de una letra en el nombre de dominio, otro puede tener un carácter no permitido.
Cualesquiera que sean las razones de su invalidez, usted quiere atrapar la dirección rota – para pedirle al usuario que vuelva a entrar, o para evitar el envío de un correo electrónico que seguramente no llegará a ninguna parte.
En Perl, puedes inventar una expresión regular complicada, por supuesto; o puedes recurrir a un módulo práctico que ya tiene una incorporada y que también puede comprobar los nombres de dominio.
Validar direcciones de correo electrónico con Perl
Para comprobar que las direcciones de correo electrónico estén bien formadas y sean válidas en un script o programa Perl:
- Incorpore la validación de correo electrónico en el código HTML si tiene usuarios que escriben direcciones de correo electrónico en un formulario web.
- Use Email::Valid->address(”) desde el módulo Email::Valid CPAN Perl; vea abajo para detalles, instalación y ejemplos.
Email::Ejemplos válidos de validación de direcciones de correo electrónico
Asumiendo que $email_address contiene la dirección a verificar, puede verificar su validez utilizando:
#!/usr/bin/perl
>.use Email::Valid
$email_address = 'me@@@example.com';
if (Correo electrónico::Valid->address($email_address)) {
>>.
# La dirección de correo electrónico es válida
.
} si no {
>> si no
>.
}
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>.
También puede tener Email::Valid check for valid top-level domains (asegurándose de que “.com”, “.net”, “.cn” u otro nombre de dominio válido esté al final de la dirección de correo electrónico). Asegúrese de que el módulo Net::Domain::TLD esté instalado.
#!/usr/bin/perl
>.use Email::Valid
$email_address = 'me@@@example.com';
if (Email::Valid->address(-address => $email_address,
)
-tldcheck => 1)) {
# La dirección de correo electrónico es válida
.
} si no {
>> si no
>.
}
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>.
Instalar el módulo Email::Valid Perl Module
Para equipar su instalación Perl con el módulo Email::Valid para validar la corrección de la dirección de correo electrónico:
- Abra una línea de comandos.
- En Mac y Linux, abra la aplicación Terminal, por ejemplo.
- Escriba
sudo perl -MCPAN -e 'install Email::Valid'
(Mac y Linux) o
perl -MCPAN -e 'install Email::Valid'
.
- Presione Enter.
- Introduzca la contraseña del superusuario y pulse Enter si se le solicita.
- Preguntado ¿Le gustaría que configurara todo lo posible automáticamente? , elija “sí” a menos que sepa
- Preguntado ¿Está bien intentar conectarse a Internet? , introduzca también “sí”.
