Discussion :

[julfra]

Bonjour,

J aimerais utiliser un script Perl qui me permettrait de repérer certains mots dans un fichier et de compter le nombre de fois qu ils apparaissent dans le fichier.
Pour avoir en sortie standard ce genre de résultat :
Mot1 = N fois
Mot2 = N fois
Mot3 = N fois
.....


Merci

[Jeh]

Tu peux essayer un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
my @mots = ('toto','tata','toto','tata');
 my $mot = 'toto';
 my %hash;
 foreach(@mots) {
 		print "<br>$_";
		if (/$mot/) {
			 $hash{$mot}++;
		}
 }
 print "<br>toto=$hash{toto}";

pour plusieurs mots à rechercher, à la place de mon " print "<br>toto=$hash{toto}";", tu peux mettre :

Code :

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

1
2
3
4
 
foreach my $cle (keys(%hash)) {
   print "$cle = $hash{$cle}";
}

[julfra]

je vais essayer ça

Merci de ton aide