Opened by Gast at 2008-03-17 23:27
Du solltest übrigens besser immer use strict und use warnings verwenden!
Ich weiß nicht, was du falsch machst, aber ich bekomme bei mir sowohl die angehängten Mime-Parts (PGP-Signatur, Perl-Skript) als auch den Body als einzelne Dateien.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use MIME::Parser;
use strict;
use warnings;
my $txtfile ='1.eml';
my $parser = MIME::Parser->new();
open(INPUTSTREAM,"<", $txtfile) or die $!;
my $entity = $parser->read(\*INPUTSTREAM) or die $!;
$parser->output_to_core();
my $pfad= '/tmp';
$parser->output_dir($pfad);
$parser->output_prefix("msg1");
#$entity->print_header(\*STDOUT) or die $!;
#$entity->print_body(\*STDOUT) or die $!;
Ich weiß nicht, was du falsch machst, aber ich bekomme bei mir sowohl die angehängten Mime-Parts (PGP-Signatur, Perl-Skript) als auch den Body als einzelne Dateien.