Now I have to believe that some Perl modules must exist that can already parse a email file. I looked at email::simple but it didn't really work the way I hoped. It treated the email file as a single email. I found a example that looked very promising but it requires Email::Folder and that doesn't seem to be available for ActivePerl 5.10? I did find a version on cpan but being a windows user running a make has never worked for me.
What I want to do is open a mail file, that is in plain text, Split it into individual emails. Then split the text/plain if available or the text/html if plain/text not available, out of a multi-part mime messages. Discarding the stuff that would be non-visible in the normal email. Now I can do all that using brute force but I kind of thought that something must exist. I would like any modules suggested be available via PPM, thanks. Basil Here is a cleaned up single email sample from a thunderbird folder: From - Wed Mar 26 23:14:58 2008 X-UIDL: X-Mozilla-Status: X-Mozilla-Status2: Return-path: Received: Received: Received: Received: Received: Date: Wed, 26 Mar 2008 23:12:38 -0500 From: Subject: Fwd: In-reply-to: <[EMAIL PROTECTED]> To: Message-id: MIME-version: 1.0 Content-type: multipart/alternative; boundary="----=_Part_7841_16001601.1206591158480" DKIM-Signature: DomainKey-Signature: References: <[EMAIL PROTECTED]> Original-recipient: rfc822;##EMAIL Address## ------=_Part_7841_16001601.1206591158480 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-Disposition: inline ---------- Forwarded message ---------- Plain text version -----Original Message----- From: Sent: Friday, March 21, 2008 10:05 PM To: Subject: **************************************************************************** ------=_Part_7841_16001601.1206591158480 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-Disposition: inline -----Original Message----- ... HTML VERSION ... To: Subject: **************************************************************************** ------=_Part_7841_16001601.1206591158480-- _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
