Re: [HS] script perl marche pas en cron

[Laurent Besson <lolo@system-linux.net>]

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     => "nroudninski",
>                                PASSWORD => "YDjqCDDi",
>                                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 !