使用message_string()函数时出现错误IMAPClient

Question

我在使用Mail::IMAPClient库的函数message_string ()时遇到了这个问题，您对如何解决这个问题有一个想法，下面是我的代码：

     #!/usr/bin/perl -w
use strict;
use warnings;
use Mail::IMAPClient;
use IO::Socket::SSL;



 # Create the object connexion with socket SSL + LOG ON
my $imap = Mail::IMAPClient->new(
 #Debug    => 1,
  User     => 'xxxxx',
  Password => 'yyyyy',
  Uid      => 1,
  Peek     => 1,  # set \Seen flag
  Socket   => IO::Socket::SSL->new(
                Proto    => 'tcp',
                PeerAddr => 'zzzzzzz',
                PeerPort => 993,
              )
);
   die "$0: connect: $@" if defined $@;


my $nm=$imap->unseen_count("INBOX") ;
# Select INBOX dossier
$imap->select("INBOX");




      my $msg = $imap->message_string('47') or die " $@\n";

获取的错误如下：

message_string() expected 304627 bytes but received 304718 you may need the IgnoreSizeErrors option

Answer 1

错误消息确切地告诉您如何处理此问题。一些IMAP服务器错误地计算了消息大小--特别是许多服务器(特别是GMail)检查本地消息大小，然后在通过IMAP发送消息时将行终止符更改为CRLF，导致实际大小与服务器告诉客户端的期望略有不同。默认情况下，发生这种情况时，IMAPClient会抛出一个错误，但您可以在创建实例时说IgnoreSizeErrors => 1来告诉它不要抛出错误。

my $imap = Mail::IMAPClient->new(
 #Debug    => 1,
  User     => 'xxxxx',
  Password => 'yyyyy',
  Uid      => 1,
  Peek     => 1,  # set \Seen flag
  Socket   => IO::Socket::SSL->new(
                Proto    => 'tcp',
                PeerAddr => 'zzzzzzz',
                PeerPort => 993,
              ),
  # See here
  IgnoreSizeErrors => 1
);