🚀 go-pugleaf

Adam Osuchowski pisze:

> Mail::POP3Client nie zajmuje się parsowaniem maili tylko obsługą
> protokołu POP3 od strony klienckiej. Twoje pytanie dotyczy raczej modułu
> MIME::Parser.

Tak, to cenny hint ;) dzieki.

> Co rozumiesz przez pojęcia ,,treść'' i ,,załączniki''? W mailach typu
> multipart/* wszystko jest załącznikiem, tzn. ciało maila składa się
> z serii załączników, z których każdy może składać się również z
> załączników, co w efekcie daje drzewo załączników. To, że klienty
> pocztowe pokazują pierwszy napotkany załącznik typu text/plain lub
> text/html jako ,,główną'' część maila, jest w zasadzie tylko zwyczajem
> i tradycją. Równie dobrze możesz mieć maila w którym będzie więcej niż
> jeden załącznik typu text/plain i który z nich wówczas nazwiesz
> ,,treścią wiadomości''?

Przez tresc rozumiem to, co jest wpisane jako tresc wiadomosci. Cala 
wiadomosc (tresc+naglowki+zalaczniki) zapisywana tez jest do innego pliku.

> unlink()

Dzieki Kacprowi znalazlem lepsza metode: remove

Ale teraz mam inny problem. Nie wiem dlaczego, ale zalaczniki sa 
obcinane. Tzn np w plikach pgp obcina pare ostatnich wierszy (nie ma np 
linijki --- END PGP MESSAGE ---). Pdfy sa tez naruszone - z czego wynika 
blad?

Skrypt wyglada tak (to gotowiec):


my $pop = new Mail::POP3Client(
                  USER     => '',
                  PASSWORD => '',
                  HOST     => ""
);


my $fh = new IO::Handle();

my $outputdir = "./mimemail";
my $parser = new MIME::Parser;

$parser->output_dir($outputdir);

my $i;
for ($i = 1; $i <= $pop->Count(); $i++)
{
     open (MAILOUT, ">pop3.msg$i");
     $fh->fdopen( fileno( MAILOUT ), "w" );
     $pop->HeadAndBodyToFile( $fh, $i );
     close MAILOUT;
     open (MAILIN, "<pop3.msg$i");
     my $entity = $parser->read(\*MAILIN);
     close MAILIN;
}


-- 
Mikołaj Jopczyński, Tychy Online

tel: 791 486 557 | mikolaj (at) tychy-online.pl | gg: 311167 | 
www.tychy-online.pl