Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Using MIME::Tools (boo)

by boo_radley (Parson)
on Nov 24, 2001 at 01:21 UTC ( [id://127177]=note: print w/replies, xml ) Need Help??


in reply to Re: Re: Using MIME::Tools
in thread Using MIME::Tools

You're seeing parts of the headers there.
If I remember correctly, you may (using this method) have to use print $$body[2] or something similar.
Please see perldata for more information on why.

Mime::Tools is not the most friendly of modules, either... Here's a small snippet which I used once upon a time. Mail messages are stored in @msgs, ok?

foreach my$thismsg (@msgs){ my $parser = new MIME::Parser; my $ent = $parser->parse_data ("$thismsg"); print "here's the message :\n$thismsg\n"; print "mime type is ", $ent->mime_type(),"\n"; my @all_parts = $ent->parts; foreach (@all_parts) { print "mime type is ", $_->mime_type(),"\n"; my $head=$_->head()->as_string; if ($head=~/filename\="(.*?)"/) {print "Filename is $1\n"} print "header is $head\n"; print "------------------done\n"; } print "------------------done with messages\n"; }
This shows how to read the entire message, parts of the content type and the header. IIRC, to pull out the message body would be similar to my $body=$_->body()->as_string; rather than my $head=$_->head()->as_string;.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://127177]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2024-03-29 15:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found