Parsing email

jeteve has asked for the wisdom of the Perl Monks concerning the following question:

Hi Fellow monks,

I'm wondering what's the best way or what's the best module to parse an email and get the decoded data in pure perl strings.

For instance, I'd love to parse something like that:

                                                                      
+                                                                     
+                                                                     
+                                               
Received: by 10.115.106.19 with HTTP; Thu, 24 Jan 2008 09:10:50 -0800 
+(PST)
Message-ID: <f516fcd80801240910j797b0e09h26cbafede672403f@mail.gmail.c
+om>
Date: Thu, 24 Jan 2008 17:10:50 +0000
From: "=?UTF-8?Q?J=C3=A9r=C3=B4me_Et=C3=A9v=C3=A9?=" <jerome@eteve.net
+>
Sender: jerome.eteve@gmail.com
To: "Jerome Eteve" <jerome@careerjet.com>
Subject: =?UTF-8?B?2LbYsdix2Ykg2LfZiNmC2YjZhtmF?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: base64
Content-Disposition: inline
Delivered-To: jerome.eteve@gmail.com
X-Google-Sender-Auth: b14660e8948ad477

2LbYsdix2Ykg2LfZiNmC2YjZhtmFamlkamkgagoKZGppd29qZCB3b3dvd29vd293CgotLS
+AKSmVy
b21lIEV0ZXZlLgoKU3BlYWsgdG8gbWUgbGl2ZSBhdCBodHRwOi8vd3d3LmV0ZXZlLm5ldA
+oKamVy
b21lQGV0ZXZlLm5ldAo=
[download]

And then be able to do:

 my $mail = MagicMailModule->parse($data) ;
 my $to = $mail->To() ;
 my $from = $mail->From() ;
 my $body = $mail->Body() ;
[download]

Do you have an idea of what I could use ?

Thanks for any help !!

-- Nice photos of naked perl sources here !

Comment on Parsing email Select or Download Code

Replies are listed 'Best First'.
Re: Parsing email by jettero (Monsignor) on Jan 24, 2008 at 17:41 UTC
~~The very best way is: Mail::Message->new( $your_message_from_664_093 );~~ (update: not even close) It does everything you want and much more. `my $body = $msg->body; my @encoded = $msg->body->lines; my @to = $msg->to; my @from = $msg->from;` [download] -Paul	[reply] [d/l]
Re^2: Parsing email by Anonymous Monk on Jan 03, 2014 at 21:26 UTC
This does not appear to work and I see no way it ever could have.	[reply]
Re^3: Parsing email by jettero (Monsignor) on Feb 17, 2014 at 15:17 UTC
You're right. I don't know what I was thinking... it was quite a while ago, but it's clear I didn't try it. In fact, I just spent like 10 minutes trying to figure out how to fix it and I gave up (apathy mostly). What surprises me most about this, cuz I do all sorts of dumb things to be honest, is how many people clicked ++ on it thinking I was right.	[reply]
Re^4: Parsing email by Gavin (Archbishop) on Feb 17, 2014 at 18:39 UTC


Perl-Sensitive Sunglasses
	PerlMonks