[Soci SLIP] Hylafax/Perl

[Alberto Re]

Davide Corio wrote:
> Qualcuno di voi conosce abbastanza bene MIME::Parser e soprattutto Perl
> da sapere come fare?

Mmm.. se ti può ancora servire.. quando sono tornato dalle vacanze non
ho prestato troppa attenzione a tutti i messaggi :-)

Premesso che

a) $OutDir = path dove vuoi vengano copiati i componenti della mail
b) $Content = scalare contenente il messaggio
c) potrei non ricordarmi più nulla di come funziona visto che l'ho
scritto parecchio tempo fa, ma ti assicuro che è corretto :-P

questo dovrebbe aiutarti:

my $MIMEParser = new MIME::Parser;
$MIMEParser->output_dir($OutDir);

eval { my $entity = $MIMEParser->parse_data($Content); };
die $@ if $@;