Perl – Net::POP3 Application
Jeudi 11 septembre 2008
Le but est d’avoir la liste des objets des messages mails de vos comptes.
#!/usr/bin/perl -w
use strict;
use Net::POP3;
use Encode qw/encode decode/;
my $pop;
while(DATA) {
chomp;
my ($server,$login,$pass) = split/ /;
unless($pop = Net::POP3->new($server) ) {
print "Impossible de se connecter a $serveur\n";
next;
}
# Authentification + nbre de mails
my $n = $pop->login($login, $pass);
print "$n messages :\n";
foreach my $i (sort {$a <=> $b} keys(%{$pop->list()})) {
print decode('MIME-Header', (grep(/Subject/, @{$pop->top($i)}))[0]);
}
$pop->quit();
}
exit;
__DATA__
serveur1 login pass
serveur2 login pass
Autres articles susceptibles de vous intéresser :
Tags: Mail, Perl
Posted in System | 2 Comments »
Voila qui pourrait servir à « poper » un compte GMail à partir de ce script:
1) Dans GMail
Paramètres > Transfert et POP/IMAP > Activer le protocole POP pour tous les messages (même ceux qui ont déjà été téléchargés)2) Dans le script Perl:
Serveur POP : pop.gmail.com[...] évoqué précédemment dans un commentaire il est possible de récupérer tous les messages d’un compte [...]