Alvaro Herrera escribió: > Hasta ahora me ha ido bastante bien; tengo un programa en Perl el cual, > dado un mail, extrae los datos interesantes con MIME::Parser y los metes > en una base de datos para posterior despliegue.
Total que descarté esta idea en favor de usar un módulo más moderno, que es varios órdenes de magnitud más rápido; el código inicial se ve así: #!/usr/bin/perl use warnings; use strict; binmode(STDOUT, ':utf8'); use Mail::Box::Manager; my $mgr = new Mail::Box::Manager; print "opening\n"; my $folder = $mgr->open(folder => 'Mail/test.mbox2'); print "opened $folder\n"; for my $msgnum (0 .. $folder->messages - 1) { my $message = $folder->message($msgnum); print "messageid: " , $message->messageId, "\n"; print "subject: ", $message->study('subject'), "\n"; print "from: ", $message->study('from'), "\n"; my @dests = $message->destinations; print "recipients (", $#dests, "): ", (join ", ", (map { $_->address } @dests)), "\n"; print "\n"; } print "done scanning messages\n"; $folder->close; print "done\n"; -- Alvaro Herrera http://www.amazon.com/gp/registry/5ZYLFMCVHXC "En las profundidades de nuestro inconsciente hay una obsesiva necesidad de un universo lógico y coherente. Pero el universo real se halla siempre un paso más allá de la lógica" (Irulan)