Foro - Perl en Español

Estoy tratando de automatizar la alta de usuarios de correo con Perl. La idea es que cuando envíen un correo a una cuenta con sus datos automáticamente les devuelva un correo basado en su nombre y apellido, el cual viene en el cuerpo del correo. El problema es el siguiente:

Los correos que me regresan pueden venir de la siguiente forma

Código: Seleccionar todo

-----------

Nombre: nombre-usuario
Apellido: apellido-usuario

Hasta aqui no hay problema, pero hay algunos que me regresan el correo así:

Código: Seleccionar todo

Nombre:
nombre-usuario

Apellido:
apellido-usuario

en estos casos ¿Cómo extraigo la información? y ¿Cómo ignoro las líneas en blanco? en caso de que nombre-usuario este dos o más líneas en blanco de Nombre:

De antemano Gracias

Suponiendo que copias el contenido del correo en un array haces un for para leer cada línea puedes hacer algo así:



Creo que funcionaría. Si no, que los expertos perleros digan algo, jeje.

Aunque yo creo que lo más correcto sería chequear que los usuarios introducen Nombre: nombre y Apellido: apellido y si no es así les mandas un correo diciendo que introdujeron mal el nombre y apellido.

Salu2

Yo daré la solución con expresiones regulares, claro:

Usamos '\s' para buscar espacios en blanco, retornos de carro incluidos.
Ponemos '\s*' delante del nombre y apellido porque no sabemos cuantos pueden haber.
Y ponemos '\s+' detrás porque al menos tenemos claro que después de ellos siempre hay un final de línea.
Pero nos da igual... lo que queremos es justo lo que está en el medio que sacamos con la ayuda de los paréntesis de captura.

Gracias a ambos, ambas respuestas me fueron muy utiles. ¡¡¡¡ LO MEJOR es la rapidez con que fueron contestadas !!!!

Hay un problema si hay más campos después del Apellido... el segundo par de paréntesis los capturará todos...
Tendríamos que saber si hay más campos.

En mi solución se puede arreglar añadiendo un last al último if



salu2

No existen más campos después de los apellidos, aunque sí sucede que se cuelan algunos tags de html. Para evitar que se guarden uso lo siguiente, quizás no sea muy elegante pero me ha servido:


Quizás en algún otro caso podría utilizar \w para que tomara únicamente las letras, pero el problema es que cuando recibo el correo algunos usuarios tiene las vocales acentuadas o incluyen la ñ en su nombre o apellido. He podido identificar secuencias como =F31 es la ó, =ED es la í, etc. En todo caso estos caracteres los puedo sustituir con expresiones regulares, pero hay un carácter muy raro que no puedo identificar y por lo tanto no puedo sustituir, y es un símbolo de signo de interrogación que cierra, y digo símbolo porque aparece en mi consola (que la tengo configurada con fondo negro y letras verdes) como un óvalo verde con el signo (?) en negro. Hasta ahorita no he podido encontrar la forma de substituirlo. ¿Tienes alguna idea de cómo puedo hacerlo?

Saludos y Gracias por tu respuesta.

Para decodificar las entidades como '=2E' puedes usar alguno de los módulos ya existentes para eso, como el MIME::Decoder::QuotedPrint.

Para el tema del html, cuando tengas un rato, mírate el perlfaq9.

Gracias, ya estoy estudiando los links y seguramente pronto estare haciendo preguntas

Saludos