关于Net::IMAP::Client的问题

ludio333

最近写了一个收邮件脚本，定时执行，获取imap服务器上unseen的邮件分析；
截取了一段
#!/usr/bin/env perl
use strict;
use warnings;
use Net::IMAP::Client;
use Data:umper;
use Encode;
use utf8;

binmode STDOUT, ':utf8';

my $imap = Net::IMAP::Client->new(

                server => 'myserver',
                user   => 'user',
                pass   => 'pass',
                port   => 143        
                ) or die "Could not connect to IMAP server";

$imap->login or
die('Login failed: ' . $imap->last_error);



my $inbox = $imap->status('INBOX');
exit unless $inbox->{'UNSEEN'};
print Data:umper:umper($inbox);
$imap->select('INBOX');
print Dumper $imap->search('UNSEEN');

结果
$VAR1 = {
          'UIDVALIDITY' => '25053',
          'UIDNEXT' => '42502',
          'RECENT' => '0',
          'UNSEEN' => '10',
          'name' => 'INBOX',
          'MESSAGES' => '15848'
        };
$VAR1 = undef;
可以看到unseen为10
但是search获取不到message_id
我测试了2个邮箱，一个可以一个不可以；
同样的步骤
用python的imaplib都可以
难道需要改模块吗