Voilà encore une solution, c'est encore plus perlien ;-) #!/usr/bin/perl
use warnings;use strict;

my %nb_lettres;

grep { $nb_lettres{$_}++ if /[a-z]/i } split //,`cat fichier.txt`;

foreach (sort keys %nb_lettres){
printf"Il y a %5s de %s\n",$nb_lettres{$_},$_;
}
__END__lami20j