Bonjour à tous,
Je me remets à perl, et mon objectif est de remplacer les mots d'un fichier par des nombre (un même nombre pour un même mot).
Exemple:
Le fichier contenant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
A B C D A B D A A
Doit désormais contenir:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1 2 3 4 1 2 4 1 1
Du coup, j'ai pensé à passer par une hashmap, et faire 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
 
%dico=();
while ($l=<FILEIN>) {
    my @motsparligne=split(/[\W]/,$l);
    foreach my $mot (@motsparligne) {
            $taille = keys(%dico);
	    if (!(%dico{$mot})) {
	    $dico{$mot}=$taille;
		}
	}
}
Ce qui devrait à priori me donner une hashmap avec un nombre différent pour chaque mot rencontré. La suite serait de remplacer les mots du fichier.

Je ne sais pas si je suis clair, aussi, je voulais vérifier qu'il n'y avait pas d'autres moyens, plus simples, pour réaliser cette tache avant de continuer

Merci