Discussion :

[ciel65]

Bonjour,
Le programme parcourt un fichier texte et affiche les résultats dans le 1er tableau, c'est de classer les mots par alphabétique en 1ère colonne et d' indiquer le nombre de fois des mots dans ce texte en 2ème colonne; pour le 2ème tableau, c'est de classer par l'ordre d'occurrence en 2èm colonne et d'indiquer le mot en 1er colonne.

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
 
$nbmots = 0;
# lecture de chaque ligne du fichier d'entrée
foreach $ligne(@texte){
$ligne=~s/[,;:!\?\.\-\<\>\=\(\)\'\s\t]+/ /g;
# on sépare chaque ligne par un espace et on retourne le résultat dans un tableau @mots
  @motligne = split(/ /, $ligne);
# calcul du nombre des mots dans le tableau @mots
  $nbmots = $nbmots + @motligne;
 
  foreach $mot (@motligne){
  $mots{$mot}++;  
  }  
  }    
foreach $terme (sort keys %mots){
print SORTIE "<TR><TD>$terme</TD><TD>$mots{$terme}</TD>\n";
}
print SORTIE "</TABLE></BR>\n";
print SORTIE "<TABLE border=\"1\"><TR><TH>ordre d'occurrence</TH><TH>occurrence</TH></TR>\n";
 
foreach $occ (sort values %mots){
print SORTIE "<TR><TD>$mots{$occ}</TD><TD>$occ</TD></TR>\n";
}
print SORTIE "</TABLE></BODY>\n";
print SORTIE "</HTML>\n";

Dans le derniere foreach, les mots ne sont pas affichés dans le 2ème tableau ( 1ère colonne). Je ne vois pas où sont les fautes. Y a t il un problème sur $mots{$occ}? Un autre problème est la fonction sort, ils ne sont pas classés vraiment par occurrence, car le nombre suivi 1 n'est pas le chiffre 2, c'est plutôt 10, 11, 12.
Pourriez-vous m'aider?
merci

[Arioch]

Pour un tri numérique par ordre croissant :

Code :

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

foreach(sort {$a <=> $b}(keys %Hash))

Pour ton problème sur les values du hash qui s'affichent mal, je vois pas dans l'immédiat.

Utilise-tu bien les pragmas strict et warnings ?

[ciel65]

pourriez vous expliquer ce que c'est $a et $b, pour le fichier de sortie, comment je dois écrire?
merci beaucoup

[Arioch]

pourriez vous expliquer ce que c'est $a et $b, pour le fichier de sortie, comment je dois écrire?
merci beaucoup

$a et $b font partie d'une syntaxe permettant de comparer à la volée toutes les clés de ton hachage. La comparaison se fait de manière numérique mais "évoluée", de façon à ce que la valeur 10 par exemple ne soit pas considérée comme inférieure à 1.

Ainsi, si tu as des valeurs à trier comme ceci : 1,27,9,7,11,10,2, un sort simple te donnera en résultat du tri : 10,11,1,27,2,7,9 alors que sous la forme sort {$a <=> $b}, le résultat sera 1,2,7,9,10,11,27.

$a et $b font partie d'un mécanisme interne à Perl pour faire ce qu'il a à faire

A noter que l'opérateur <=> s'appelle l'opérateur diamant chez certains, ou encore chasseur TIE pour d'autres

[Jedai]

La fonction sort() en Perl est très puissante, et te permet de faire tous les tris que tu peux imaginer. Si tu veux apprendre à t'en servir, les mongueurs de Perl (groupe francophone consacré à la promotion de Perl) ont écrit un très bon article (en français) sur le sujet.

--
Jedaï

[Arioch]

La fonction sort() en Perl est très puissante, et te permet de faire tous les tris que tu peux imaginer. Si tu veux apprendre à t'en servir, les mongueurs de Perl (groupe francophone consacré à la promotion de Perl) ont écrit un très bon article (en français) sur le sujet.

--
Jedaï

Excellent article et groupe (les PM francophones)

[Schmorgluck]

A noter que l'opérateur <=> s'appelle l'opérateur diamant chez certains, ou encore chasseur TIE pour d'autres

Euh, non, l'opérateur diamant c'est <> (source : llama book 2ème édition).

[Arioch]

Euh, non, l'opérateur diamant c'est <> (source : llama book 2ème édition).

Et zut, encore gourré