Re: [HS] script perl avec redondances
Le mercredi 11 octobre 2006 à 15:12 +0200, Nicolas Roudninski a écrit :
> Bonjour à tous,
>
> Je sais que je suis hors sujet mais j'ai un petit problème avec un
> script perl.
> Ce script est chargé de vérifier si j'ai des messages de mes amis.
> tout fonctionne bien, sauf que, à la première vérification, le script
> m'affiche une fois que j'ai un message (quand j'en ai un). A la
> deuxième vérification, le script me dit *deux* fois que j'ai un message
> (et je n'ai qu'un message !). A la troisième vérif : *trois* fois la
> même chose, etc.
>
> Il y a donc quelque chose de mal écrit, mais je n'arrive pas à trouver
> quoi...
>
> Si quelqu'un peut m'aider à y voir plus clair, ce serait super !
[...]
> #---------------------------------------
> # Variables globales
> #----------------------------------------
> my $xdlg = "/usr/bin/zenity";
> my $pop;
> my $i;
> my $nom;
> my @amis;
[...]
>
> sub read_data {
> open DATAFILE, "$home_dir/amis.dat"
> or die "Fichier introuvable !";
> while (<DATAFILE>) {
> chomp;
> push @amis, $_."\n";
> }
[...]
> while (1) {
> connection;
> read_data;
[...]
C'est normal que tu _rajoutes_ tes amis dans le tableau @amis à chaque
itération ? A la fin tu dois en avoir des amis :-)
Juste une remarque, évite d'avoir autant de variables globales; pourquoi
ne pas passer des paramètres aux fonctions ?
Greg
Reply to: