Bonsoir tout le monde !!

Voilà, le code ci-dessous me parait fortement cohérent, et pourtant d'après les résultats obtenus je m'aperçois qu'il n'en est guère le cas :



while($line = <IN>){
chomp($line);
for ($k=0;$k<length($line);$k++){

if (!grep(lc(substr($line,$k,1)), @tablo)){
push(@tablo, lc(substr($line,$k,1)));
}
}
}



Ce code lit ligne par ligne un fichier, puis pour chaque caractère de la ligne insère dans un tableau si il n'y est pas présent, du moins c'est ce qu'il devrait faire, mais quand j'affiche le tableau finale il n'y a que le premier caractère...

Y'a t'il à debugger dans l'ame par ici ?

Merci d'avance et très bon week end !!