如何使用 Perl 对 Gmail 进行身份验证？

Question

我已经安装了这个 用于获取 Gmail 收件箱内的访问和控制的模块。然而，当我尝试通过一个小的 Perl 脚本进行连接并测试功能时，我收到此错误消息。

Error: Could not login with those credentials - could not find final URL
  Additionally, HTTP error: 200 OK

这是 Gmail.pm 模块内构建的错误。

我可以 ping 相关网址 ( https://www.google.com/accounts/ServiceLoginBoxAuth ) 所以我觉得问题不在于找到 URL。此外，我知道凭据是正确的并且可以在该 URL 上使用，因为我已经手动尝试过它们。

我正在使用 这个 用于测试的脚本。我已在适当的地方提供了我的凭据。

---

I've also installed this module with the same type of error.

Any idea why I'm getting blocked?

Answer 1

使用 Mail::IMAPClient ，如下所示。要通过 Mail::IMAPClient 通过 SSL 身份验证，您应该安装来自 Net::SSLeay 的 IO::Socket::SSL。如果是这样，这就像一个魅力。

#!/usr/bin/env perl
use strict; use warnings;
use Mail::IMAPClient;

# Connect to IMAP server
my $client = Mail::IMAPClient->new(
  Server   => 'imap.gmail.com',
  User     => 'yourusername',
  Password => 'yourp4a55w0r&',
  Port     => 993,
  Ssl      =>  1,
  )
  or die "Cannot connect through IMAPClient: $!";

# List folders on remote server (see if all is ok)
if ( $client->IsAuthenticated() ) {
  print "Folders:\n";
  print "- ", $_, "\n" for @{ $client->folders() };  
};

# Say so long
$client->logout();

Answer 2

我正在使用 Mail::POP3Client 成功访问 Gmail 帐户（准确地说是 google apps 帐户）

Answer 3

如果您也无法通过普通的 POP3 或 IMAP 访问 gmail，那么您遇到的是配置问题，而不是编程问题。

我使用此处描述的配置详细信息从 gmail（实际上是 Google Apps，使用相同的界面）获取邮件：http://download.gna.org/hpr/fetchmail/FAQ/gmail-pop-howto.html

（此答案更适合 超级用户不过！）

Answer 4

您可以尝试使用以下模块

  Mail::Webmail::Gmail

Answer 5

您也可以使用以下代码

use warnings;
use strict;
use Mail::POP3Client;
use IO::Socket::SSL;
use CGI qw(:standard);
my $cgi = new CGI;
my $LOG ;
open $LOG , ">>filename" ;
my $username  = '[email protected]';
my $password  = '*******' ;
 chomp($password);
my $mailhost  = 'pop.gmail.com';
my $port      = '995';

$cgi->header();

my $pop = new Mail::POP3Client(
USER     => $username,
PASSWORD => $password,
HOST     => $mailhost,
PORT     => $port,
USESSL   => 'true',
DEBUG     => 0,
);
if (($pop->Count()) < 1) {
exit;
}

print $pop->Count() . " messages found!:$!\n";

for(my $i = 1; $i <= $pop->Count(); $i++) {
 foreach($pop->Head($i)) {
 /^(From|Subject|Email):\s+/i && print $_, "\n";
 }

$pop->BodyToFile($LOG,$i);

}

$pop->Close();

exit;