Wednesday, April 25, 2007

read e-mail with attach in Perl

Muy rico este lenguaje, es super poderoso en lo que a web se refiere y te permite hacer cosas de manera muy simple. Por ejemplo aqui va el código para leer el attach de un email que es entregado por un pipe al script.

#!/usr/bin/perl -w
#use's necesarios para las librerias de manejo de email
use Email::MIME;
use Email::MIME::Attachment::Stripper;

#recibe el email desde la entrada estandar, por ejemplo si tienen el source de un
#correo, le hace un cat y lo pasan por pipe. p.e: cat mail | perl script.pl
{local($/) = undef;
$email = ; }

$buffer = Email::MIME->new($email);
$stripper = Email::MIME::Attachment::Stripper->new($buffer);
my Email::MIME $msg = $stripper->message;
@attachments = $stripper->attachments;
#devuelve un hash con la info del attach en donde lo indexado por payload es el body del attach
$attach = $attachments[0]{'payload'};

fácil.. :)

3 Comments:

Blogger Ignacio Pérez Vergara said...

Jajajaja.... buscando material en google sobre: "use Email::MIME;" estás el principio

11:31 AM  
Blogger costa rica said...

These articles are fantastic; the information you show us is interesting for everybody and is really good written. It’s just great!! Do you want to know something more? Read it...:Great investment opportunity in jaco beach hotel, jaco beach front hotel , jaco beach hotel costa rica. Visit us for more info at: http://www.jaco-bay.com/

12:36 PM  
Blogger Diego Arenas C. said...

y cuando escribes mas en cachureos? y el chipamogli? la eñora del frente? y esas cosas? las pics?

jajaja
saludos,

11:02 PM  

Post a Comment

<< Home