[programmation] aide sur script perl.

["Breton, Dany (Dany)" <bretond@xxxxxxxxxx>]

Salut la liste, j'ai un petit soucis avec un script perl et je ne décele pas
mon erreure.
Voici mon script :

#!/usr/bin/perl -w
use strict;

my @liste=('revision','Platform');
my $element;
my $sum;
my $cherche;
foreach $element (@liste) {
print  ("$element\n");
                        $cherche=$element;
                        $sum="0";
                                while(<>){
                                        $sum += (s/\b$cherche\b/$cherche/g);
                                        };
print("Votre fichier contient $sum fois le mot \'$cherche\'\n");
                                        };

Le probleme est le suivant : si je met 1 seul element dans la liste pas de
soucis j'ai en fonction de mon fichier de traitement le nombre d'occurences
de l'element. Par contre si j'en met 2 et bien le script boucle sans fin
sans me donner les résultats.

Merci pour votre aide 
Dany
----------------------------------
Informations, désabonnement, règles, obligations sur la liste Aide-Linux :
http://lists.ze-linux.org/howto_ml.html
Liste Herbergee par Over-Link [http://www.over-link.net]