Net::IMAP::Simple 没有得到整个消息

Question

我对 perl 很陌生，所以也许我做了一些愚蠢的事情。 我的问题是我目前正在使用脚本通过 IMAP 协议获取电子邮件箱中包含的所有消息，在 PERL 中使用 Net::IMAP::Simple，但它没有给我整个消息正文。 我的整个代码如下所示：

      use strict;
      use Net::IMAP::Simple;
      
       my $imap = Net::IMAP::Simple->new('xxxxxxxxxxxxxx') or die 'Impossible to connect '.$!;
      $imap->login('xxxxxxxx', 'xxxxxxxxx') or die 'Login Error!';
      my $nbmsg = $imap->select('INBOX') or die 'Impossible to reach this folder !';
      print 'You have '.$nbmsg." messages in this folder !\n\n";
      my $index = $imap->list() or die 'Impossible to list these messages !';

    foreach my $msgnum (keys %$index) {
    #if(!$imap->seen($msgnum)) {
          my $msg = $imap->get($msgnum) or die 'Impossible to retrieve this message'.$msgnum.' !';
          print $msg."\n\n";
    #   }
    }
    $imap->quit() or die 'quitting issue !';

每次检索电子邮件时，它都会给我第一个字符（在我的情况下，这是发送消息的机器人生成的神秘无用元数据），而不是整个正文。

编辑：这是输出中显示的正文部分：

内容类型：文本/纯文本；字符集="utf-8" 内容传输编码：BASE64

Q2UgbWVzc2FnZSBhIMOpdMOpIGfDqW7DqXLDqSBhdXRvbWF0aXF1ZW1lbnQgcGFyIGwnaW1wcmlt YW50ZSBtdWx0aWZvbmN0aW9ucyBYZXJveCBYRVJPWF83ODMwLgogICBFbXBsYWNlbWVudCBkdSBz eXN0w6htZSA6IAogICBBZHJlc3NlIElQIHN5c3TDqG1lIDogMTkyLjE2OC4xLjIwMAogICBBZHJl c3NlIE1BQyBzeXN0w6htZSA6IDlDOjkzOjRFOjMzOjM1OkJECiAgIE1vZMOobGUgc3lzdMOobWUg OiBYZXJveCBXb3JrQ2VudHJlIDc4MzAKICAgTnVtw6lybyBkZSBzw6lyaWUgc3lzdMOobWUgOiAz OTEyNzk4ODk0CgpMJ0Fzc2lzdGFudCBkZSBjb21wdGV1ciBhIGVudm95w6kgbGUgcmVsZXbDqSBz dWl2YW50IGF1IHNlcnZldXIgZGUgY29tbXVuaWNhdGlvbiBYZXJveCBTTWFydCBlU29sdXRpb25z IGxlICAxNC8xMS8xNiAgIDA5OjI0OiAKICBUaXJhZ2VzIGVuIG5vaXIgOiAxMzIwNwogIFRpcmFn ZXMgZW4gY291bGV1ciA6IDkyNjg3CiAgVG91cyBsZXMgdGlyYWdlcyA6IDEwNTg5NA==

它总是以这个“==”结尾，这让我觉得模块正在缩短输出。

我在 CPAN 文档中查看了一些关于它的细节，但遗憾的是没有找到任何东西。

Answer 1

您的消息被编码为Base64。电子邮件有MIME type 是完全正常的，尽管不是必需的。你需要解码它们。一个很好的方法是使用MIME::Base64。请注意，== 是 Base64 字符串的一部分。这是使字符串具有正确长度的填充。

use strict;
use warnings;
use MIME::Base64 'decode_base64';

my $decoded_msg = decode_base64($msg_body);

但是，您需要从这些消息对象中取出正文。文档对此含糊其辞，没有说明这些对象是什么，get 只返回原始消息。

我建议您安装Data::Printer 并使用它来转储您的$msg 对象之一。该转储将包括对象的内部结构（可能是哈希引用），以及对象具有的所有方法。这个对象可能包含一个访问器来获取已经解码的内容。如果是这种情况，您不需要自己解码。如果没有，请取出尸体并使用decode_base64 对其进行解码。

---

更新：我阅读了the code，它在get 方法中创建了 Net::IMAP::Simple::_message 对象。有a package definition at the top of the code。这有点复杂，但很明显。它使用行的arrayref作为对象背后的数据结构，所以我上面错了。

q( package Net::IMAP::Simple::_message;
   use overload fallback=>1, '""' => sub { local $"=""; "@{$_[0]}" };
   sub new { bless $_[1] })

再往下：

return  wantarray ? @lines : Net::IMAP::Simple::_message->new(\@lines)

所以要得到正文，你需要去掉标题字符串。转储出对象后，您应该会看到数组开头有多少元素是标题和空行。我假设索引0 是标题行，索引1 是空行。如果你不关心这些，你可以把它们扔掉。

这将改变对象。

shift @$msg; # get rid of header
shift @$msg; # get rid of empty line

my $decoded_msg = decode_base64("$msg");