Hi Roland,
wir lesen jetzt die mbox Datei direkt aus. Muss man sich halt um newline, charset und andere codes kümmern.
Ich habe auch mit Perl ein bisschen experimentiert.
Ich gebe hier mal meine Experimente an falls es jemanden interessiert.
Die pipe Lösung hat auch funktioniert.
Alle Achtung. Da hast Du Dich ziemlich reingekniet.
Herzlichen Dank dafür!
Gruss,
Bodo
Code
use Mail::Internet;use Mail::Header;
$messagefile = "bodo.mbox";
open(MESSAGE, "$messagefile") or die "Unable to open $messagefile:$!\n";
$mail = new Mail::Internet \*MESSAGE;$header_from = $mail->get('From');$header_subject = $mail->get('Subject');print $header_from; print $header_subject;close(MESSAGE);
open(MESSAGE, "$messagefile") or die "Unable to open $messagefile:$!\n";$header = new Mail::Header \*MESSAGE;$header->print();print join("\n", sort $header->tags);close(MESSAGE);
Quellen:
http://search.cpan.org/~markov….07/lib/Mail/Internet.pod
http://www.oreillynet.com/pub/…/news/perladmin_0700.html