Perl을 사용하여 Gmail에 인증하는 방법은 무엇입니까?

Question

this 모듈을 설치하여 Gmail받은 편지함에서 액세스하고 제어 할 수 있습니다. 그러나 작은 Perl 스크립트를 통해 연결하고 기능을 테스트하려고하면이 오류 메시지가 나타납니다.

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

이것은 Gmail.pm 모듈에 내장 된 오류입니다.

문제의 URL ()을 핑 (ping)하여 문제가 URL을 찾지 못했다고 생각합니다. 또한, 수동으로 시도했기 때문에 자격 증명이 정확하고 해당 URL에서 작동한다는 것을 알고 있습니다.

나는 테스트를 위해 this 스크립트를 사용하고 있습니다. 나는 적절한 장소에서 나의 신임장을 제공했다.

---

동일한 유형의 오류가있는 this 모듈도 설치했습니다.

차단 이유가 무엇인지 알기 원하십니까? 당신도 보통 POP3 또는 IMAP을 통해 Gmail에 액세스 할 수없는 경우

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

나는 성공적으로 당신은 프로그래밍이 아닌 구성 문제가, 메일 :: POP3Client

Answer 3

를 사용하여 Gmail 계정 (응용 프로그램이 정확하게 계정 구글)에 액세스하고 문제.

나는 여기에 설명 된 구성 정보를 사용, Gmail을 (동일한 인터페이스를 사용하여 실제로 Google 애플리케이션)에서 내 메일을 가져 오기 : (!이 대답은하지만 훨씬 더 적절한 Super User입니다) 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 = 'name@gmail.com'; 
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;