使用 Email::MIME 和 multipart/signed 解析电子邮件

Posted 2023-03-15

【中文标题】使用 Email::MIME 和 multipart/signed 解析电子邮件

【英文标题】：Parsing email with Email::MIME and multipart/signed

【发布时间】：2017-08-05 15:35:35

【问题描述】：

我是一名 perl 新手，试图弄清楚如何解码包含多个部分的 MIME 编码电子邮件。我不确定惯例，所以我只包含我认为相关的电子邮件部分：

 Content-Type: multipart/mixed; boundary="===============3385789078715843912=="
 Mime-Version: 1.0

 --===============3385789078715843912==
 Content-Type: multipart/signed; micalg="pgp-sha256";
     protocol="application/pgp-signature"; boundary="=-0+dmFxz+BsFOEAAxvudu"


 --=-0+dmFxz+BsFOEAAxvudu
 Content-Type: text/plain; charset="UTF-8"
 Content-Transfer-Encoding: base64

 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
 PT09PT09PT09PT09PT09PT0KVWJ1bnR1IFNlY3VyaXR5IE5vdGljZSBVU04tMzIxMC0xCkZlYnJ1
 YXJ5IDIzLCAyMDE3CgpMaWJyZU9mZmljZSB2dWxuZXJhYmlsaXR5Cj09PT09PT09PT09PT09PT09
 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
 CgpBIHNlY3VyaXR5IGlzc3VlIGFmZmVjdHMgdGhlc2UgcmVsZWFzZXMgb2YgVWJ1bnR1IGFuZCBp
 dHMgZGVyaXZhdGl2ZXM6CgotIFVidW50dSAxNi4wNCBMVFMKLSBVYnVudHUgMTQuMDQgTFRTCi0g

我有以下代码：

  my $msg = Email::MIME->new($buf);

  for my $part ($msg->parts) 
      if ($part->content_type =~ m!multipart/mixed!
              or $part->content_type eq '' )
             
              print "Found Multipart";
              for my $subpart ($part->parts) 
                  print $subpart->body;
             
      
  

我真的不知道下一步该做什么。我对此有十几种不同的变体，经过四个小时的工作后还没有接近。如果有人能帮助我确定正确的 perl 模块和函数，我将不胜感激，以用于阅读签名电子邮件的此文本子部分。

【问题讨论】：

如果你手动解码底部的消息正文部分，你会得到正确的输出。这是一个好的开始。

【参考方案1】：

Email::MIME 的文档建议使用not to use parts，因为这是一种愚蠢的方法。如果没有零件，它会返回自己的对象。这很奇怪。

改为使用subparts method 来获取电子邮件的各个部分。然后再次使用它来迭代该部分的所有部分。如果有的话，它会进去。打印那个子部分的body，你就完成了。

foreach my $part ( $msg->subparts ) 
    foreach my $sub_part ($part->subparts) 
            print $sub_part->body;
    

【讨论】：

我现在意识到我无法弄清楚如何处理 $sub_part->body。这是一个数组吗？我可以使用 join() 或 push() 逐行处理吗？

@AlexRegan 我不知道。我自己从来没有用过。 metacpan.org/pod/Email::MIME#body 说它是一个字节串。它应该是完整的消息，但以字节为单位。您可能需要对其进行解码。对于你的例子，正确的文本出来了。