pb hash et occurences

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

tout simplement :

Code:

---

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.

En uniligne :

Code:

---

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

---

merci je vais essayé.

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