Estoy tratando de hacer un script el cual me lea mi cuenta de correo, baje mis correos y aparte los adjuntos. Estoy usando POP3client pero cuando ejecuto siempre me dice que -1. Nunca cambia. Consulto la cuenta por la web y veo que tengo muchos mensajes.
La cuenta es de un hosting de renta POP3
El código que estoy usando es este:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use Mail::POP3Client;
- $pop = new Mail::POP3Client( USER => "user",
- PASSWORD => "123456",
- HOST => "mail.myserver.com" ) || die "Error";
- print "Messages:".$pop->Count()."\n";
- exit;
- for ($i = 1; $i <= $pop->Count(); $i++) {
- foreach ( $pop->HeadAndBody( $i ) ) {
- #/^(From|Subject):\s+/i and print $_, "\n";
- /^From:\s+/i and @from = split(/:/);
- /^Subject:\s+/i and @subject = split(/:/);
- /^Content-Disposition: attachment;\s+/i and @filename = split(/=/);
- }
- print "From: $from[1]\n";
- print "Subject: $subject[1]\n";
- print "Attachement: $filename[1]\n";
- print ;
- print "\n*************************************************\n";
- }
- $pop->close;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
