Le Sun, 9 Jul 2006 17:36:21 +0200
Laurent Besson a écrit :
> Le dimanche 9 Juillet 2006 15:39, Nicolas Roudninski a écrit :
> > Bonjour à tous,
> > my $xdlg = "/usr/bin/zenity";
> > my $pop;
> > my $i;
> > my $nom;
> > my @amis;
> > my $amis_data;
> > my $email;
> > #chomp(my $user = `whoami`);
> > my $user = "nicolas";
> > chomp(my $home_dir = "/home/$user");
> >
> > print "connection au serveur...\n";
> > $pop = new Mail::POP3Client( USER => "XXXXXXXXXXXXXXX",
> > PASSWORD => "XXXXXXXX",
> > HOST => "pop.wanadoo.fr" );
> >
> > sub read_data {
> > open DATAFILE, "$home_dir/amis.dat"
> > or die "Fichier introuvable !";
> > while (<DATAFILE>) {
> > chomp;
> > push @amis, $_."\n";
> > }
> > for ($i = 1; $i <= $pop->Count(); $i++) {
> > # print @amis;
> > foreach my $amis (@amis) {
> > my @amis_data = split / *: */, $amis;
> > $email = $amis_data[1];
> > chomp($email);
> > $nom = $amis_data[0];
> > &compare;
> > # print $email;
> > }
> > }
> > close DATAFILE;
> > return ;
> > } # ---------- end of subroutine read_data ----------
> >
> > sub compare {
> > # for ($i = 1; $i <= $pop->Count(); $i++) {
> > foreach ( $pop->Head( $i ) ) {
> > if (/From:.*$email/) {
> > chomp;
> > print "Un message de $nom
> > [$email]\n"; # s/From://;
> > # print " [$_ ]\n";
> > my $adresse = $_;
> > system"$xdlg --info --text 'Un
> > message de $nom'"; }
> > }
> > # }
> > return ;
> > } # ---------- end of subroutine compare ----------
> >
> > read_data;
> > ----------------------------fin du
> > script-------------------------------
> >
> Comment dans ta console lances tu le script ?
> Car chez moi il me met : Can't locate object method "new" via package
> "Mail::POP3Client" (perhaps you forgot to load "Mail::POP3Client"?)
> at mail.pl line 16 ...
> Mais bon c'est une autre histoire !
Il manquait les premières lignes :
use strict;
use warnings;
use Mail::POP3Client;
--
Nicolas Roudninski
[EMAIL PROTECTED]
----------------------
Toute ressemblance avec des fautes d'orthographe, de grammaire
ou de conjugaison existantes ou ayant existé serait entièrement
fortuite et indépendante de la volonté de l'auteur.
--
Lisez la FAQ de la liste avant de poser une question :
http://wiki.debian.net/?DebianFrench
Vous pouvez aussi ajouter le mot ``spam'' dans vos champs "From" et
"Reply-To:"
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
