Discussion :

[mirafrance]

bonjeur
j ai besion d 'un code en perl qui permet de compter le nombre d'occurence de teut les mots qui existe dans un fichier texte et mettre le résultat dans un tableau
le tableau contient
le mot et le nombre d'occurence de cette mots
j ai des idées mais je peut pas réaliser cette programme
est ce que vous pouvez m'aidée

[jabbounet]

en shell de base ce serait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
grep -c mot fichier.txt

Autrement trouver sur un autre site

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
perl -nle '$w{$_}++ for grep /\w/, map { s/[\. ,]*$//g; lc($_) } split; sub END { printf("%7d\t%s\n", $c, $w) while (($w,$c) = each(%w)) }' fichier.txt

[Philou67430]

Une version perl plus courte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -ne 'BEGIN { $mot = quotemeta shift } $count += () = /\b$mot\b/g; END { print "$mot trouvé $count fois\n" }' mot fichier.txt