Foro - Perl en Español

Buenas, estoy haciendo un script para cuando reciba un mail tome valores dentro de ese mail y los guarde.

Está hecho bien tomando todo los valores cuando el email viene de forma normal sin reemplazo de texto, ni nada de eso. La cuestión es que hay veces que recibo mail con caracteres cambiados; por ej..

el '=' lo reemplaza por =3D cuando la linea es muy larga se corta se le agrega un '=' y un salto de línea.



esto debería ser:


y así con varias cosas que cambia. Estoy casi seguro que es por el tema que tiene que ver con el tema de text/plain o text/html o algo por el estilo de la forma en que fue respondido el mail...

¿Hay alguna forma en Perl de solucionar todo eso, o sea, que convierta el mail de esta forma a la forma que estaba antes?

Saludos y muchas gracias

El tema está en la codificación (encoding) en que está escrito el cuerpo del mensaje. Lo normal es que sea en Base64.

Lo normal es olvidarse de todos estos temas y usar módulos que nos resuelven todo esto de forma cómoda.

En los faq tienes enlaces a los módulos más modernos, pero lo normal es usar MIME::Base64 o MIME::QuotedPrint.

Perl tiene un web dedicado a todo el tema del correo electrónico: http://emailproject.perl.org/

No te pierdas por sus más de 1000 módulos

Lo más probable es que con alguno de los módulos de la distribución MIME::Tools, te sirva.