Re: perl und mail und mailanhang

[Peter Blancke <blancke@gmx.de>]

Frank Habermann (LordLamer) <lordlamer@lordlamer.de> dixit:

> ich bin grad dabei ein perlskript zu schreiben welches mir die
> mail komplett in ihre einzellteile zerlegen soll!
> [...]
> hat schon mal jemand damit erfahrung gemacht oder kennt ein modul
> in perl welches das macht?

Ich benutze MIME::Parser sowie File::Basename, um beispielsweise aus
Mails Anhaenge zu extrahieren, um diese dann gesondert
abzuspeichern.

Beispiel:

,--------
| #! /usr/bin/perl -w
| 
| use MIME::Parser;
| use File::Basename;
| use strict;
| 
| # --- Nur hier Werte veraendern -----------------------------
| my $ausgabe_pfad="./ergebnisse";
| my $eingabe_datei="mailbox";
| 
| # --- ab hier keine Werte mehr veraendern -------------------
| my ($geparst) = (basename($0))[0];
| my $parser=MIME::Parser->new();
| $parser->output_dir($ausgabe_pfad);
| $parser->output_prefix($geparst);
| $parser->output_to_core();
| 
| open (INPUT, "$eingabe_datei") or die ("Eingabefehler: $!\n");
| my $einheit=$parser->read(\*INPUT)
|     or die ("Konnte MIME-Datenstrom nicht parsen\n");
| close (INPUT);
`---

Gruss

Peter Blancke

-- 
Hoc est enim verbum meum!