Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 

Extraer imagenes adjuntas a mail

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Intermedio
Mensaje Lun Oct 09, 2006 8:43 am
vcampug
Perlero Nuevo
Perlero Nuevo
Registrado: 09 Oct 2006
Mensajes: 2
Extraer imagenes adjuntas a mail Responder citando

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.
Mensaje Lun Oct 09, 2006 11:22 am
monoswim
Vive para Perl en Español
Vive para Perl en Español
Registrado: 18 Nov 2003
Mensajes: 720
Ubicación: Buenos Aires
Responder citando

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
Mensaje Lun Oct 09, 2006 11:58 am
explorer
Moderador
Moderador
Registrado: 24 Jul 2005
Mensajes: 4226
Ubicación: Valladolid, España
Responder citando

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.
Mensaje Mie Oct 11, 2006 9:42 am
vcampug
Perlero Nuevo
Perlero Nuevo
Registrado: 09 Oct 2006
Mensajes: 2
YA LO TENGO CASI TERMINADO Responder citando

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.
Publicar nuevo tema   Responder al tema    Foros de discusión -> Intermedio Todas las horas son GMT - 6 Horas
Página 1 de 1



Powered by phpBB © 2001, 2005 phpBB Group