我正在尝试从一个Gmail帐户读取信息,但是我看到的例子并没有起作用。
我先试了这个:
use Mail::IMAPClient;
use IO::Socket::SSL;
my $user = 'user\@mydomain.com';
my $pwd = 'password';
my $socket = IO::Socket::SSL->new(
PeerAddr => 'imap.gmail.com',
PeerPort => 993,
SSL_verify_mode => SSL_VERIFY_PEER,
)
or die "socket(): $@";
my $client = Mail::IMAPClient->new(
Socket => $socket,
User => $user,
Password => $pwd,
)
or die "new(): $@";
if ( $client->IsAuthenticated() ) {
print "Auth OK\n";
} else {
print "No auth\n";
}
这似乎可以工作,但无法进行身份验证。根据文档,如果提供了用户名和密码,则Mail::IMAPClient->new应调用登录操作。
我尝试过调用client->login,但没有任何区别。
有一些类似的问题,但答案中指出要使用不同的包(例如Mail::Webmail::Gmail),但它似乎已经过时且也不起作用。
该帐户是Google Apps帐户,而不是常规的Gmail帐户。我已启用该帐户的imap访问。
我还尝试了使用Net::IMAP::Client,不论是使用Google Apps帐户还是使用我的Gmail帐户与应用程序专用密码,都只得到“无效凭据”的提示。
use Net::IMAP::Client;
my $user = 'user\@gmail.com';
my $pwd = ' app password';
my $imap = Net::IMAP::Client->new(
server => 'imap.gmail.com',
user => $user,
pass => $pwd,
ssl => 1, # (use SSL? default no)
ssl_verify_peer => 0, # (use ca to verify server, default yes)
port => 993 # (but defaults are sane)
) or die "Could not connect to IMAP server: $_";
$imap->login or
die('Login failed: ' . $imap->last_error);
当尝试连接 Gmail IMAP 时,我是否遗漏了什么?