Jeff,

As far as dealing with MIME I think you want to check out the

MIME::Parser function;

But you want to do something like this

#############

use MIME::Parser;

my ($parser) = new MIME::Parser;

.

.

.

$entity=$parser->parse_data($msg);

$entity->sync_headers(Length=>'COMPUTE');

@parts=$entity->parts

foreach $part (@parts)

{

  #There is some way to tell if the part is a text/plain type or not.

   

}

#################

Jeff Dilcher wrote:

> 

> I know this isn't exactly linux related, but I figured there was

> some perl folks on the list.  I would like to run email messages

> through a perl script, and remove and discard any attachments or

> "conversions to html" of the ascii text.  In other words, I just

> want the plain text, and get rid of any other formatting.  This

> is needed so that I can pieces the message bodies into a digest

> to mail out to a group.

> 

> Is there an easy way to do this, or maybe a "how to" somewhere?

> 

> --

> To unsubscribe: mail ">majordomo@ale.org with "unsubscribe ale" in message body.


-- 
And so the geeks shall inherit the Mirth... or something like that.
http://www.atlantageek.com      Atlanta's Tech Zine
--
To unsubscribe: mail ">majordomo@ale.org with "unsubscribe ale" in message body.