получения письма с gmail.com

[demond]

кто-нибудь пытался получить тело письма с gmail.com? получалось ли вообще. я знаю что там нужно использовать SSL. Вот мой код:
#!/usr/bin/perl -w
use strict;
use Mail::POP3Client;

my $username="login";
my $password="password";
my $pop = new Mail::POP3Client( USER => $username,
PASSWORD => $password,
HOST => "pop.gmail.com",
PORT => 995,
USESSL => 'true',
DEBUG => 1 );
for(my $i = 1; $i <= $pop->Count(); $i++ ) {
foreach( $pop->Head( $i ) ) {
/^(From|Subject):\s+/i && print $_, "\n";
}
}
$pop->Close();
но он что-то ничего не возвращает! даже DEBUG что-то ничего не выдает!
В чем может быть проблема?

[Kaimi]

Работает все, мб у аккаунта поп3 не включен

[vp$]

<?php
$conn = @imap_open("{imap.gmail.com:993/imap/ssl/novalidate-cert}INBOX", $mail, $pass);
if ($conn)
{
$num_mgs = imap_num_msg($conn);
echo $num_mgs." letters\n";

for($i = 1 ;$i <= $num_mgs;$i++)
{
if (strpos(@imap_header($conn,$i)->fromaddress, "%target%"))
{
$Msgno = @imap_header($conn,$i)->Msgno;
$Lbody = imap_body($conn,$Msgno);
print "$Lbody\n";
}
}
}


?>

через имап все просто

[demond]

Работает все, мб у аккаунта поп3 не включен
нет. все ключено! я думаю что у меня какие-то проблемы с ssl. может такое быть?

[eLWAux]

кто-нибудь пытался получить тело письма с gmail.com? получалось ли вообще. я знаю что там нужно использовать SSL. Вот мой код:
#!/usr/bin/perl -w
use strict;
use Mail::POP3Client;

my $username="login";
my $password="password";
my $pop = new Mail::POP3Client( USER => $username,
PASSWORD => $password,
HOST => "pop.gmail.com",
PORT => 995,
USESSL => 'true',
DEBUG => 1 );
for(my $i = 1; $i <= $pop->Count(); $i++ ) {
foreach( $pop->Head( $i ) ) {
/^(From|Subject):\s+/i && print $_, "\n";
}
}
$pop->Close();
но он что-то ничего не возвращает! даже DEBUG что-то ничего не выдает!
В чем может быть проблема?
Mail/POP3Client.pm есть?
пуск > выполнить > ppm > Mail-pop3 > install

[demond]

Mail/POP3Client.pm есть?
пуск > выполнить > ppm > Mail-pop3 > install
У меня LINUX!!! и модуль стоит! и ошибок никаких не выводит! Я пользуюсь Komodo Edit и ни он ошибок не выдает, ни к консоль ничего не выдает!

[Kaimi]

я думаю что у меня какие-то проблемы с ssl. может такое быть?

Сомневаюсь... IO::Socket::SSL стоит?

[demond]

заработало! Помогло добавление в код
use IO::Socket::SSL;