關(guān)于Net::IMAP::Client的問(wèn)題

ludio333

最近寫(xiě)了一個(gè)收郵件腳本，定時(shí)執(zhí)行，獲取imap服務(wù)器上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');

結(jié)果
$VAR1 = {
          'UIDVALIDITY' => '25053',
          'UIDNEXT' => '42502',
          'RECENT' => '0',
          'UNSEEN' => '10',
          'name' => 'INBOX',
          'MESSAGES' => '15848'
        };
$VAR1 = undef;
可以看到unseen為10
但是search獲取不到message_id
我測(cè)試了2個(gè)郵箱，一個(gè)可以一個(gè)不可以；
同樣的步驟
用python的imaplib都可以
難道需要改模塊嗎