Foro - Perl en Español

Hola amigos,

Resulta que estoy validando un correo que recibo de la siguiente forma:



Lo que intento hacer, es validar el fin de la cadena $mail la cual tiene una dirección de correo.
Sólo quiero aceptar correos con terminación .com y .org, pero no obtengo el resultado que necesito.

¿Me colaboran?

¿Y si deseo validar los carácteres antes de .com|org?



¿Sería así?

Delante del .com y .org pueden ir montones de cosas.

Por ejemplo, lo siguiente es una dirección de correo válida:

[email protected]

pero también lo es esto:

Joaquin <"Programador Perl"@perlenespanol.com (esta direccion ya no esta activa)>

Sí: todo eso que ves es una dirección de correo completamente válida.

A mis clientes les permito que pongan un '#' en la parte local, para indicar que cierta dirección es válida solo durante un cierto tiempo.
O incluso yo mismo uso '+' para hacer que los correos se coloquen en su carpeta correspondiente:

[email protected]

Lo cual es muy útil para evitar que el correo se llene de correo basura, pues se pueden poner filtros de forma sencilla.

Como dices que no quieres usar módulos, lo que me temo es que quieres comprobar lo mínimo: parte local + '@' + dominio.

La parte de dominio, que es lo que preguntas, suele ser '[\w.-]+' (caracteres alfanuméricos, más el guión, más el punto para separar los subdominios), así que quedaría