Cómo validar direcciones de correo electrónico con Perl

Cómo validar direcciones de correo electrónico con Perl

Cómo validar direcciones de correo electrónico con Perl

VALORACIÓN DEL ARTÍCULO:
5/5


¿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í».

TAMBIÉN TE INTERESA

ThinkBook Plus Gen 6 Rollable

ThinkBook Plus Gen 6 Rollable: un portátil que no habíamos visto hasta ahora

El ThinkBook Plus Gen 6 Rollable podría ubicarse en una categoría que se llamara algo así como “Disrupciones”, ya que este portátil ofrece un cambio que hasta ahora no habíamos visto. Su innovación le ha valido uno de los galardones más importantes del mundo en cuestiones de diseño en 2025: es un reddot winner. Y

estafa suplantación del CEO

Suplantación del CEO: un ciberfraude que va a más en las empresas

Una factura falsa, un correo urgente y un remitente que parece ser el líder de una compañía. Así comienza una suplantación del CEO, uno de los ciberataques más sofisticados y efectivos que afectan actualmente a empresas de todo el mundo. Las hackers pueden acceder por diferentes vías con este tipo de ciberfraude, pero la ventana

Nuevos Chromebook Acer

Conoce los 7 nuevos Chromebook Acer, uno de ellos es una tableta desmontable

Nuevos Chromebook Acer llegan al mercado. La diferencia es que ahora estos pequeños grandes portátiles están dominados por la inteligencia artificial, lo cual les hace tener un punto más de interés además de la movilidad. Así que Acer, ahora en rebajas de verano hasta el 1 de agosto, sube el listón en este segmento de

Samsung Galaxy Z Fold7

El Galaxy Z Fold7 apunta a ser el plegable del año

La moda de los teléfonos plegables no ha terminado, ni mucho menos. Tras el Flip7, Samsung lo ha vuelto a hacer. La compañía surcoreana presenta el nuevo Galaxy Z Fold7, su dispositivo plegable más delgado, potente e inteligente hasta la fecha, diseñado para quienes buscan lo último en tecnología móvil sin renunciar a la versatilidad.

venta flash Huawei

Aprovecha la venta flash Huawei con descuentos de hasta el 50%

Días calientes para las compras de tecnología. Además del Amazon Prime Day 2025, también destacan las venta flash Huawei. La firma ha diseñado la que será la mayor campaña de ofertas del año desde el 8 al 31 de julio, con descuentos de hasta un 50% en una amplia gama de productos, y venta flash cada