[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: [HS] script perl marche pas en cron



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
nroudninski@wanadoo.fr
----------------------
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.



Reply to: