Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

comment on
( [id://3333]=superdoc: print w/replies, xml ) Need Help??
Hello, I'm trying to create a perl job that will read a mail message in from standard input and parse out a few details such as the from property, the subject, and the body. I think I will be okay with the from and subject properties, but I need a little help with the body portion. I am currently using the mail::message module to just output the body of the message. 
#!/usr/bin/perl -w

use strict;

use Mail::Message;

my $msg = Mail::Message->read(\*STDIN);

print $msg->body;

[download]
If I send an email from my gmail account the message looks pretty simple, and I don't believe I would have any trouble parsing it.

Example gmail email: 
Yes

On 12/5/12, xxxxxxxxxxxx@gundluth.org <xxxxxxxxxxxx@gundluth.org> wrot
+e:
> Test

[download]
but if I send an email from my outlook account it appears to send 2 versions of the email. One with a content type of text/plan and one with a content type of text/html. I'm wondering what the best way to handle these differences.

Example outlook email: 
--_000_4AADDBF32F49F74ABBE5DFCBCC0B0193121F0F73ONEXMB06xxxxxxx_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

yesno


Thanks.
--------------------------------------------------
Chris 

From: xxxxxxxxxxxx@xxxxxxxx.org [mailto:xxxxxxxxxxxx@xxxxxxxx.org]
Sent: Friday, November 30, 2012 7:56 AM
To: yyyyyyy, Chris D
Subject: hello

Test

--_000_4AADDBF32F49F74ABBE5DFCBCC0B0193121F0F73ONEXMB06xxxxxxx_
Content-Type: text/html; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html xmlns:v=3D"urn:schemas-microsoft-com:vml" xmlns:o=3D"urn:schemas
+-micr=
osoft-com:office:office" xmlns:w=3D"urn:schemas-microsoft-com:office:w
+ord" =
xmlns:x=3D"urn:schemas-microsoft-com:office:excel" xmlns:m=3D"http://s
+chema=
s.microsoft.com/office/2004/12/omml" xmlns=3D"http://www.w3.org/TR/REC
+-html=
40">
<head>
<meta http-equiv=3D"Content-Type" content=3D"text/html; charset=3Dus-a
+scii"=
>
<meta name=3D"Generator" content=3D"Microsoft Word 14 (filtered medium
+)">
<style><!--
/* Font Definitions */
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
        {font-family:"Bookman Old Style";
        panose-1:2 5 6 4 5 5 5 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0in;
        margin-bottom:.0001pt;
        font-size:12.0pt;
        font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
span.EmailStyle17
        {mso-style-type:personal-reply;
        color:black;}
.MsoChpDefault
        {mso-style-type:export-only;
        font-family:"Calibri","sans-serif";}
@page WordSection1
        {size:8.5in 11.0in;
        margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
        {page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext=3D"edit" spidmax=3D"1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext=3D"edit">
<o:idmap v:ext=3D"edit" data=3D"1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=3D"EN-US" link=3D"blue" vlink=3D"purple">
<div class=3D"WordSection1">
<p class=3D"MsoNormal"><span style=3D"color:black">yesno<o:p></o:p></s
+pan><=
/p>
<p class=3D"MsoNormal"><span style=3D"color:black"><o:p>&nbsp;</o:p></
+span>=
</p>
<p class=3D"MsoNormal"><b><span style=3D"font-size:11.0pt;font-family:
+&quot=
;Calibri&quot;,&quot;sans-serif&quot;;color:#404040"><o:p>&nbsp;</o:p>
+</spa=
n></b></p>
<p class=3D"MsoNormal"><b><span style=3D"font-size:11.0pt;font-family:
+&quot=
;Calibri&quot;,&quot;sans-serif&quot;;color:#404040">Thanks.<o:p></o:p
+></sp=
an></b></p>
<p class=3D"MsoNormal"><b><span style=3D"font-size:11.0pt;font-family:
+&quot=
;Calibri&quot;,&quot;sans-serif&quot;;color:#404040">-----------------
+-----=
----------------------------<o:p></o:p></span></b></p>
<p class=3D"MsoNormal"><b><span style=3D"font-size:11.0pt;font-family:
+&quot=
;Calibri&quot;,&quot;sans-serif&quot;;color:#404040">Chris yyyyyyy<o:p
+></o:=
p></span></b></p>
<p class=3D"MsoNormal"><b><span style=3D"font-size:11.0pt;font-family:
+&quot=
;Calibri&quot;,&quot;sans-serif&quot;;color:#404040">                 
+     =
    <o:p></o:p></span></b></p>
<p class=3D"MsoNormal" style=3D"line-height:12.0pt;text-autospace:none
+"><sp=
an style=3D"font-size:11.0pt;font-family:&quot;Bookman Old Style&quot;
+,&quo=
t;serif&quot;;color:#4F6228">xxxxxxxxx</span><span style=3D"font-size:
+11.0p=
t;font-family:&quot;Bookman Old Style&quot;,&quot;serif&quot;;color:#7
+6923C=
">
</span><span style=3D"font-size:11.0pt;font-family:&quot;Bookman Old S
+tyle&=
quot;,&quot;serif&quot;;color:#365F91">        </span><span style=3D"f
+ont-s=
ize:11.0pt;font-family:&quot;Bookman Old Style&quot;,&quot;serif&quot;
+;colo=
r:black">                        <o:p></o:p></span></p>
<p class=3D"MsoNormal"><b><span style=3D"font-size:11.0pt;font-family:
+&quot=
;Calibri&quot;,&quot;sans-serif&quot;;color:#404040">            ; Mai
+lstop=
: NCA2-02</span></b><b><span style=3D"font-size:11.0pt;font-family:&qu
+ot;Ca=
libri&quot;,&quot;sans-serif&quot;;color:#404040"><o:p></o:p></span></
+b></p=
>
<p class=3D"MsoNormal"><b><span style=3D"font-size:11.0pt;font-family:
+&quot=
;Calibri&quot;,&quot;sans-serif&quot;;color:#404040"><a href=3D"mailto
+:yyyy=
yyyy@yyyyyyyy.org"><span style=3D"color:blue">yyyyyyyy@yyyyyyyy.org</s
+pan><=
/a></span></b><span style=3D"font-size:11.0pt;font-family:&quot;Calibr
+i&quo=
t;,&quot;sans-serif&quot;;color:black"><o:p></o:p></span></p>
<p class=3D"MsoNormal"><span style=3D"color:black"><o:p>&nbsp;</o:p></
+span>=
</p>
<p class=3D"MsoNormal"><b><span style=3D"font-size:10.0pt;font-family:
+&quot=
;Tahoma&quot;,&quot;sans-serif&quot;">From:</span></b><span style=3D"f
+ont-s=
ize:10.0pt;font-family:&quot;Tahoma&quot;,&quot;sans-serif&quot;"> xxx
+xxxxx=
xxxx@xxxxxxxx.org [mailto:xxxxxxxxxxxx@xxxxxxxx.org]
<br>
<b>Sent:</b> Friday, November 30, 2012 7:56 AM<br>
<b>To:</b> yyyyyyy, Chris D<br>
<b>Subject:</b> hello<o:p></o:p></span></p>
<p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p>
<p class=3D"MsoNormal"><b><span style=3D"font-size:36.0pt">T</span>est
+</b><=
o:p></o:p></p>
</div>
</body>
</html>

--_000_4AADDBF32F49F74ABBE5DFCBCC0B0193121F0F73ONEXMB06xxxxxxx_--

[download]
Please let me know if I can offer any more details. Any examples would help tremendously. Thanks, Chris.

In reply to Parsing mail(mail::message) by cdlaforc

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":


  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or How to display code and escape characters are good places to start.
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others contemplating the Monastery: (2)
As of 2024-04-26 01:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found