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，因为它是一种愚蠢的方法。如果没有部件，它返回自己的对象。这很奇怪。

而是使用subparts method获取电子邮件的各个部分。然后再次使用它来迭代该部分的所有部分。如果有，它将进入。打印该子部分的body，你就完成了。

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

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

1 个答案: