Tengo un problemilla con este módulo, soy incapaz de recuperar los correos de mi cuenta de Gmail. También he probado con Mail::Box::POP3 y con Mail::Webmail::Gmail y no consigo nada.
Tampoco puedo enviar mails con Net::SMTP, pero sí con el modulo Emails.
Los ejemplos que estoy utilizando los copio del libro "Perl Introducción al desarrollo Web" de S.Suehring, excepto el módulo que me funciona, el de Emails.
Os pongo el código para ver si me podéis ayudar, muchas gracias de antemano:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use Net::POP3;
use strict;
my $usuario = "$usuario";
my $pass = "$pass";
my $pop3conn = Net::POP3->new('pop.gmail.com', Timeout=>60)
or die "NADA.\n";
#$pop3conn->auth($usuario,$pass);
if($pop3conn->login($usuario, $pass) > 0){
my $nummsg = $pop3conn->list();
foreach my $nummsg (keys %{$nummsg}){
my $msg = $pop3conn->get($nummsg);
print @$msg;
$pop3conn->delete($nummsg);
}
}
$pop3conn->quit();
use Net::POP3;
use strict;
my $usuario = "$usuario";
my $pass = "$pass";
my $pop3conn = Net::POP3->new('pop.gmail.com', Timeout=>60)
or die "NADA.\n";
#$pop3conn->auth($usuario,$pass);
if($pop3conn->login($usuario, $pass) > 0){
my $nummsg = $pop3conn->list();
foreach my $nummsg (keys %{$nummsg}){
my $msg = $pop3conn->get($nummsg);
print @$msg;
$pop3conn->delete($nummsg);
}
}
$pop3conn->quit();
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
, con el código que has posteado. Ayuda mucho esta modificación, sacada de la ayuda de CPAN: