Discussion :

[pontarose]

Bonjour,

Je veux compter le nombre de fois qu'un élement apparaît
papa xxx xxxx xxxx xxxx
mama xxx xxx xxx xxx
papa xxx xxxx xxxx xxxx
toto xxx xxxx xxxx xxxx
papa xxx xxxx xxxx xxxx

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
while (my $ligne = <DATA> ) {
chomp $ligne;
if($ligne =~ /(.+)\t([0-9]+)\t(.+)\t(.+)$/){
# je récupère la clé et la valeur
my $key = $1;
my $value = 1;
if (exists $in_file{$key}) {
 # la clé existe déjà (ie valeur de la clé=1), on ajoute la valeur à la valeur déjà présente
$value = $value + 1;
$in_file{$key} = $value;	
 
 }
else {
# la clé n'existe pas, on l'ajoute avec la valeur correspondante
$in_file{$key} = $value;
}
}
}
foreach my $id (sort keys %in_file) {
  print "$id=>$in_file{$id}\n";
}

j'obtiens au final
mama xxx=>1
papa xxx=>2 # je devrais avoir 3!!!
toto xxx=>1

pourquoi papa=>3

[djibril]

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
#!/usr/bin/perl
use Carp;
use strict;
use warnings;
 
my %mots;
while ( my $ligne = <DATA> ) {
  chomp $ligne;
  my ( $mot1, $mot2, $mot3, $mot4 ) = split /\s+/, $ligne;
  if ( defined $mot1 ) { $mots{$mot1}++; }
}
foreach my $un_mot ( sort { $mots{$a} <=> $mots{$b} } keys %mots ) {
  print "$un_mot => $mots{$un_mot}\n";
}
 
__DATA__
papa  14  aa  zz
mama  13 ee rr
papa  55  tt yy
toto  68621 uu ii
papa  88  oo pp

toto => 1
mama => 1
papa => 3

Dans ton programme, tu pourras remplacer /s+ par \t si tes données sont dans un fichier.

[pontarose]

Merci beaucoup,

* pourquoi utiliser use Carp; ?
* qu'est ce qui ne va pas dans mon script? pourquoi la dernière ligne de mon fichier n'est pas prise en compte?

[GillesANDRE]

c'est ton value=1 dans la boucle qui te réinitialise ton compteur.... au mieux tu auras (value=1)+1, donc 2

De toutes façons il est compliqué pour rien ton algo.... sans vouloir critiquer....

[Zwiter]

Mon avis est qu'il est inutile de verifier si la clé existe :

Code :

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

1
2
3
4
5
6
7
if($ligne =~ /(.+)\t([0-9]+)\t(.+)\t(.+)$/){
$mots{$1}++;
} 
 
foreach my $un_mot ( sort { $mots{$a} <=> $mots{$b} } keys %mots ) {
  print "$un_mot => $mots{$un_mot}\n";
}

Z.

[pontarose]

Merci