
MIME::Tools - Getting All MIME Header Info for a Message
Quote:
> I'm interested in getting all MIME part information for e-mail messages.
> I'm currently using MIME::Parser->parse(\*MSG), but that method
> extracts/decodes all attachments to disk, which can take a fair amount
> of time. Is there a method/methods I'm overlooking that can simply get
> *all* of the MIME information without doing the attachment decoding?
> (I'm stressing "all", as MIME::Head can get the information for a given
> header, but seeking out *all* headers seems like a more significant
> undertaking (which I won't do if someone else has already done it).
You can tell MIME::Parser how to handle the parsed data. As default it
puts them somewhere on disk. Hence, before parsing, call
$parser->output_to_core(1);
As for iterating over all MIME-parts (and the headers thereof), use the
parts or parts_DFS method.
my $parser = new MIME::Parser; $parser->output_to_core(1);
my $top_ent = $parser->parse(\*STREAM);
you want with it.
Tassilo
--
$a=[(74,116)];$b=[($a->[1]-1,$a->[1]++,0x20)];$c=[(97,110)];$d=[($c->
(chr($_)):print;}}$c=sub{$l=shift;[(0x20+$l-1,0x50,0x65,0x73-0x01,108
ord(chr($h->{$_}))))};