On ma donné (merci hitman_alias_47) ces lignes de commande, je voudrai une petite aide pour les faire marché. On ma parlé d´interpréteur perl et de notepad. Voila merci d´avance.
- !/usr/bin/perl
while(<>) {
tr/[A-Z]/[a-z]/;
split(/[+*\/,;.\n\r()\t ]/);
for(@_) {
$mots{$_}++;
}
}
for (%mots) {
print "$_ = $mots{$_}\n"
if (($mots{$_} > 1)&&(length($_)>3));