Discussion :

[olivier1209]

Bonsoir,

je doit écrire un programme qui lit une suite de mot (supposée être dans un fichier.txt), et qui compte le nombre d'apparition de chaque mot. J'ai commencé un truc mais j'avoue que je bloque pas mal
Je vous poste ma première ébauche de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
@liste;
$i=0;
 
 
open fichier,"test.txt" or die ("Fichier pas là ...") ;
 
 
while (<fichier>) {
 
$liste[$i]=$_;
 
print "$_";
 
if (exists $liste {$_s})
 
   { print "ok"; }
 
 
$i++;
 
}
 
close(fichier);
 
 
# print @liste;
print ("$i");

J'espère que vous pourrez m'aider
Merci d'avance

[Philou67430]

Si chaque ligne du fichier ne contient qu'un seul mot, une manière facile de compter les mots est d'utiliser une table de hashage avec comme clé le mot, et comme valeur le nombre de mot.
Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
use warnings;
use strict;
 
my %liste;
open my $FICHIER,"<", "test.txt" or die ("Fichier pas là ...") ;
while (my $mot = <$FICHIER>) {
  $liste{$mot}++;
}  
close($FICHIER);
 
# print %liste;
print map { "$_: $liste{$_}\n" } keys %liste;

(je n'ai pas testé avec un vrai fichier, mais syntaxiquement, c'est correct).