PB de base en PERL

Version imprimable

PB de base en PERL

Bonjour,
j'utilise le script perl suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
if ($#ARGV < 0) { # si on n'a pas passé d'argument au programme
	# on affiche un message
	die("Usage : $0 nom_fichier");
}
 
# ouverture du fichier ou affichage d'un message (si erreur)
open(FICH, $ARGV[0]) or die("Le fichier $ARGV[0] n'est pas accessible");
 
# lecture du fichier ligne par ligne
while ($ligne = <FICH>) {
	chomp($ligne); # on se débarrasse des retours à la ligne
	# split(' ', $ligne) retourne un tableau avec les mots de la ligne
	# foreach parcours ce tableau
	foreach $mot (split(' ', $ligne)) {
		$compteur{$mot}++; # le tableau associatif %compteur va stocker les mots et leur nombre d'occurrence
	}
}
# ne pas oublier de fermer le fichier
close(FICH);
 
# affichage du tableau associatif
while (($mot, $nb) = each(%compteur)) {
	print "$mot apparait $nb fois\n";
}

ce script compte le nombre de mots dans un fichier texte.
Je cherche à trier les mots par ordre alphabétique en sortie.

ex :
le apparait 2 fois
moineau apparait 3 fois
taupe apparait 1 fois

etc...

Si quelqu'un a une idée ...

18/12/2006, 20h12
ChronoTiger

j'ai utilisé @keys=sort keys %hash;

Mais ca ne marche pas visiblement;

Il me semble que ton trie est bon , mais tu perd obligatoire les valeurs :?

pense a imbriquer convenablement ton code sa rend la lecture plus agréable et aussi a mettre les balises [code]

Code:

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
28
29
30
31
32
33
34
35
36
37
38
 
 
 
#!/usr/bin/perl -w
use strict;
use diagnostics;
 
my (%$compteur);
 
unless (scalar @ARGV > 0)
{
  die("Usage : $0 file_name");
}
 
 
# ouverture du fichier
open(FICH, $ARGV[0]) or die ("Le fichier $ARGV[0] n'est pas accessible");
 
# lecture du fichier ligne par ligne
while (my $ligne = <FICH>)
{
   # on se débarrasse des retours à la ligne
   chomp($ligne); 
 
   foreach my $mot (split(' ', $ligne))
   {
       # le tableau associatif %compteur va stocker les mots et leur nombre d'occurrence
       $compteur{lc($mot)}++;
   }
}
# ne pas oublier de fermer le fichier
close(FICH);
 
# affichage du tableau associatif
while (my ($mot, $nb) = each(%compteur))
{
   print "$mot apparait $nb fois\n";
}

par ordre alphabetique des mots (tri sur la clé):
Code:

1 2 3 for my $mot (sort keys %compteur) { print "$mot apparait $compteur{$mot} fois\n"; }
par ordre d'occurence decroissante (tri sur la valeur):
Code:

1 2 3 for my $mot (sort {$compteur{$b} <=> $compteur{$a}} keys %compteur) { print "$mot apparait $compteur{$mot} fois\n"; }

19/12/2006, 17h24
ChronoTiger

Merci pospos, ca marche nikel!!

Et par exemple si en cas d'égalité sur le nombre d'occurence, l'affichage se fait par ordre alphabétique :

dans apparait 3 fois
les apparait 2 fois
un apparait 2 fois ..

C'est possible ou non tu penses?
19/12/2006, 19h01
pospos
oui il suffit de le preciser dans ta sort sub:
Code:

1 2 3 for my $mot (sort {($compteur{$b} <=> $compteur{$a}) || ($a cmp $b)} keys %compteur) { print "$mot apparait $compteur{$mot} fois\n"; }
<=> et cmp (relativement pour la comparaison d'entier et lexicale) renvoie 1/0/-1 suivant que la valeur est plus petite/egale/plus grande

donc dans ce cas si le compte est le meme la premiere comparaison renverra 0, et on passera donc le || pour arriver sur la seconde comparaison, lexicale sur la clé