Foro - Perl en Español

Saludos lista,

se me plantea la necesidad de usar fetchmail+procmail y un script en PERL que extraiga los ficheros adjuntos de cada mensaje recibido y los guarde en una carpeta concreta. Luego el mensaje será descartado.

He visto que tal vez se haga con Mime::Explode pero no tengo claro por donde empezar porque la documentación que he encontrado no me aclaraba nada.

Si alguien fuese tan amable de orientarme un poco se lo agradecería muchísimo.

Gracias de antemando.

En el archivo del mensaje encontrarás algo así...

Content-Type: image/jpeg; name=Spiral_notebook.jpg
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="Spiral_notebook.jpg";

codigo raro del archivo binario....

Tendiendo el archivo puedes parsearlo con algunas expresiones regulares...Si quieres si o si usar un módulo chechea alguno de base64 o mail

http://search.cpan.org/search?query=mail+file&mode=all

Esopero que te sirva

Saludos

Desde el mismo procmail puedes hacer una llamada al programa mimedecode o munpack (si los tienes instalados) para que hagan eso.

Otra opción es Perl, desde luego.

Bueno, deciros que seguí investigando y lo tengo casi casi terminado del todo, solo perfilar un poquito pero en cuento lo tenga mas o menos cerrado os pondre el script PERL.

Volveré a este hilo para entonces.

Saludos y muchas gracias.