Foro - Perl en Español

por **creating021** » 2007-12-01 20:00 @875

Hola.

Bueno, si en UNIX/Unix-Like ven /var/mail/usuario o /var/spool/mail/usuario podrán ver que todos los e-mails están en un archivo ( separado por "\n" ).

La pregunta es: ¿ Cómo separa los mails ?
Yo tenía planeado usar Tie::File que da mejores opciones que DB_File, y sacar los headers definidos por el RFC-4021 así que en teoría solo tendría que saber que un mail va así:

Código: Seleccionar todo: Header "\n" Body "\n"

Todo va bien usando una que otra regex de novato :roll:

, pero si encuentro un mail mal formado ( un RE: de algún usenet que contiene partes de headers en el body ).

Si tienen algún tip... ¡No se lo guarden!

Gracias.

El formato de esos buzones se llama mbox.

Para extraer correos que cumplan una condición, lo mejor es usar grepmail (con su apabullante número de opciones) disponible en tu Linux más cercano.

O usar Perl. Y no hace falta regex complicadas. Sólo hay que instalar alguno de los varios módulos existentes para manejar carpetas mbox, como por ejemplo Mail::Box.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Mail::Box::Manager;
my$mgr= Mail::Box::Manager->new;
my$folder=$mgr->open(folder =>$ENV{MAIL},...);
print$folder->name;

# Get the first message.
print$folder->message(0);

# Delete the third message
$folder->message(3)->delete;

# Get the number of messages in scalar context.
my$emails=$folder->messages;

# Iterate over the messages.
foreach($folder->messages){...}# all messages
foreach(@$folder){...}# all messages

$folder->addMessage(Mail::Box::Message->new(...));Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **creating021** » 2007-12-05 15:26 @684

El módulo está muy bien, muchas gracias

Foro - Perl en Español

Separar mails

Separar mails

Publicidad

¿Quién está conectado?