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

Question

我是一个 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 模块和函数，我将不胜感激。

Answer 1

Email::MIME 的文档建议not to use parts，因为这是一个愚蠢的方法。如果没有零件，它 returns 它自己的对象。真奇怪。

而是使用 subparts method 来获取电子邮件的各个部分。然后再次使用它来迭代该部分的所有部分。有的话就进去，打印那个子部分的body就大功告成了

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

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

Parsing email with Email::MIME and multipart/signed

email

perl

mime-types