Perl解析多部分/备选电子邮件
我正在寻找一种方法来解析多部分/备选电子邮件的正文部分。我目前有一个使用Email::Mime模块的perl脚本,它正确地解析text/plain和text/html。尽管我的问题是,当我解析一封多部分/可选电子邮件时,$part->body总是返回空的。我尝试过使用$part->body\u raw,它确实返回文本body,尽管它包含我需要省略的标题 使用$part->data\u raw的当前输出 期望输出 PERL代码Perl解析多部分/备选电子邮件,perl,email,mime,Perl,Email,Mime,我正在寻找一种方法来解析多部分/备选电子邮件的正文部分。我目前有一个使用Email::Mime模块的perl脚本,它正确地解析text/plain和text/html。尽管我的问题是,当我解析一封多部分/可选电子邮件时,$part->body总是返回空的。我尝试过使用$part->body\u raw,它确实返回文本body,尽管它包含我需要省略的标题 使用$part->data\u raw的当前输出 期望输出 PERL代码 my ( $body, $text_body, $html_body,
my ( $body, $text_body, $html_body, $multi_body );
for my $part (@parts) {
if ( $part->content_type =~ m!text/html! ) {
my $hs = HTML::Strip->new( emit_spaces => 0 );
$html_body .= $hs->parse( $part->body );
print "Found HTML\n";
}
elsif ($part->content_type =~ m!text/plain!
or $part->content_type eq '' )
{
$text_body .= $part->body;
print "Found TEXT\n";
}
elsif ($part->content_type =~ m!multipart/alternative!
or $part->content_type eq '' )
{
print "Found Multipart\n";
$multi_body .= $part->body;
}
来源
Content-Type: multipart/related;
boundary="_004_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_";
type="multipart/alternative"
MIME-Version: 1.0
--_004_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_
Content-Type: multipart/alternative;
boundary="_000_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_"
--_000_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
Test Body
您需要向下递归一级。
可选
部分的“主体”是一个需要检索和解析的文本/普通
部分
一般来说,您不能假设任何特定的结构,只假设一个多部分
由一个或多个单独的部分组成(这些部分本身可以是多部分
递归的ad inf),通常您要遍历这些部分
而
multipart/alternative
非常清楚地记录了您希望选择其中一个成员部件(可能受平台功能和/或用户偏好的指导)但是偶尔会有多部分/混合的
或多部分/相关的
被用于相同的目的。多部分包含多个部分。迭代它们:
use strict;
use warnings;
use Email::MIME;
use Data::Printer;
use feature qw/say/;
my $source = <<EOF;
Content-Type: multipart/related;
boundary="_004_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_";
type="multipart/alternative"
MIME-Version: 1.0
--_004_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_
Content-Type: multipart/alternative;
boundary="_000_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_"
--_000_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
Test Body
EOF
my $msg = Email::MIME->new($source);
for my $part ($msg->parts) {
if ($part->content_type =~ m!multipart/alternative!
or $part->content_type eq '' )
{
say "Found Multipart";
for my $subpart ($part->parts) {
say $subpart->body;
}
}
}
body_str()做什么?你能发布你正在使用的代码和消息源,以便其他人可以复制你的结果吗?下面是代码,我已经尝试了body_str,它返回了------>不能将body作为多部分/备选方案的字符串;boundary=“000_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0”位于/Library/Perl/5.16/Email/MIME.pm第341行,第1行。
Content-Type: multipart/related;
boundary="_004_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_";
type="multipart/alternative"
MIME-Version: 1.0
--_004_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_
Content-Type: multipart/alternative;
boundary="_000_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_"
--_000_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
Test Body
use strict;
use warnings;
use Email::MIME;
use Data::Printer;
use feature qw/say/;
my $source = <<EOF;
Content-Type: multipart/related;
boundary="_004_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_";
type="multipart/alternative"
MIME-Version: 1.0
--_004_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_
Content-Type: multipart/alternative;
boundary="_000_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_"
--_000_47C8E15E8EEDCB4E94E891F9414C019A0CB5BDEE79DFW1MBX07mex0_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
Test Body
EOF
my $msg = Email::MIME->new($source);
for my $part ($msg->parts) {
if ($part->content_type =~ m!multipart/alternative!
or $part->content_type eq '' )
{
say "Found Multipart";
for my $subpart ($part->parts) {
say $subpart->body;
}
}
}
C:\>perl test_mime.pl
Found Multipart
Test Body