Ouvrir son compte webmail pour constater qu'il ne contient aucun
nouveau message peut représenter une substantielle perte de
temps, pour peu qu'on le fasse fréquemment.
Il est
heureusement possible, grâce aux modules de Perl, de créer des
scripts ne faisant que vérifier si un compte donné contient
de nouveaux messages. Les modules utilisés sont POP3Client
et IMAPClient,
chacun agissant de manière similaire dans son domaine particulier.
#!/usr/bin/perl
use Mail::POP3Client;
$pop = new Mail::POP3Client(
USER => "testyoupla@gmail.com",
PASSWORD => "é'lmk(ml;",
HOST => "pop.gmail.com",
PORT => 995,
USESSL => 'true',
);
my $nbrMsg = $pop->Count;
my ( $pluriel ) = $nbrMsg == 1 ? ( '' ) : ( 's' );
$nbrMsg ||= "Pas de ";
print "$nbrMsg message$pluriel à lire\n";
