Discussion :

[karaudrey88]

Bonjour,
J'ai un fichier du type :
top read1
top read2
top read1
pol read1
pol read2

Et a partir de ce fichier j'aimerais calculer les occurrences de la double clé (nom read) dans un hash. Mais je ne sais pas comment m'y prendre, quelqu'un pourrait il m'aider?
Le résultat que j'aimerais obtenir est le suivant :
top read1 2
top read2 1
pol read1 1
pol read2 1

[Jiheme44]

tout simplement :

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
 
#!/usr/bin/perl
use strict;
use warnings;
 
 
my %hashOcc = ();
my $fichier  = "C:\toto.txt";
open( IN, "$fichier" );
while( <IN> ) {
 chomp;
 $hashOcc{$_}++;
}
close( IN );
 
#Affichage
foreach my $key (sort( keys( %hashOcc ) ) ) {
 print "$key --> $hashOcc{$key}\n";
}

pas testé, mais ça devrait fonctionner.

[Philou67430]

En uniligne :

Code :

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

perl -nE 'chomp;$hash{$_}++; END { say join " ", $_, $hash{$_} foreach sort keys %hash }' fichier.txt

[karaudrey88]

merci je vais essayé.

[Philou67430]

Si tu ne comprends quelque chose, n'hésite pas à poser une question.