Re: shellskript und mailanhang

[Peter Blancke <blancke@gmx.de>]

Frank Habermann (LordLamer) <lordlamer@lordlamer.de> dixit:
 
> hat jemand von euch zufällig nen shellskript mit dem ich den
> anhang(eine datei) einer email irgendwo auf der hd speichern kann?

Wenn's Perl sein darf, experimentiere hiermit einmal weiter:

,---[ Ein Beispielskript: ]
| #! /usr/bin/perl -w
| 
| use MIME::Parser;
| use File::Basename;
| use strict;
| 
| # --- Nur hier Werte veraendern -----------------------------
| # Statt der Eingabedatei kann auch eine Umprogrammierung erfolgen,
| # so dass er <stdin> nimmt.
| my $ausgabe_pfad="./dahin_soll_das_ergebnis";
| my $eingabe_datei="das_ist_die_mail";
| 
| # --- 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);
`---

-- 
Hoc est enim verbum meum!