AW: linux-l: Mails in einzelne Files: meine Lösung

[Jan]

Vielen Dank für die Hilfe.
Ich benutze jetzt folgendes Script von Michael Velten:

<script>

die "Usage: $0 SPOOLFILE\n" if @ARGV != 1;
$SPOOL = $ARGV[0];
$mfile = 1;
open SPOOL or die "Can't open spoolfile $SPOOL: $!";
while (<SPOOL>) {
    if (/From\s/) {
close(MAIL) if $o++;
open(MAIL, ">$mfile") || die "Can't create file: $!";
$mfile++;
print MAIL $_;
    }
    else {
print MAIL $_;
    }
}
close(MAIL);
close(SPOOL);

</script>

Nur für Leute, die's interessiert.

Viele Grüße

jan