Hallo, Am Fre, 22 Mai 2009, bo schrieb:
... ein Beispiel eines Ausfilterns des Anhangs mit Ablage über procmail würde mich interessieren ...
Das geht nicht direkt mit procmail, man verfüttert einfach die passende Mail (und nur diese) an ein Script. ==== #!/usr/bin/perl -w use MIME::Parser; my $parser = new MIME::Parser; $parser->output_under("/tmp/"); my $entity = $parser->parse(\*STDIN) or die "couldn't parse MIME stream"; # $entity->dump_skeleton(\*STDERR); my $i = 0; while (my $part = $entity->parts($i++)) { # im Header kann man nachgucken, ob man den richtige Teil einer # der Mail hat if ( $part->header_as_string() =~ /BEDINGUNG/ ) { # # ... Ausgabedatei öffnen # open(OUT, ....) or die "$!\n"; # # und via bodyhandle hat man Zugriff auf den eigentliche Anhang # print OUT $part->bodyhandle->as_string(); # # ... } } ==== Was genau man braucht hängt immer von den jew. Mails ab und was man mit diesen machen will... Siehe auch man MIME::Parser, MIME::Entity, MIME::Body... -dnh -- Warning: Some of my best mistakes are yet to be made. -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken Sie eine Mail an: opensuse-de+help@opensuse.org