Bonjour,

Je voudrais obtenir l'élément ayant la taille la plus grande pour un gène donnée.
Mais voilà je bloque pour le

Voiçi mon fichier:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
tata	geneA	738
toto	geneB	954
tutu	geneC	663
lili	geneC	768
riri	geneC	783
fifi	geneC	864
lala	geneC	888
papa	geneD	1766
mama	geneD	2067
nono	geneD	29
Résultat attendu:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
tata	geneA	738
toto	geneB	954
lala	geneC	888
mama	geneD	2067

Voiçi mon script:
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
 
my $fichier = 'fichier';
open my $fh, '<', $fichier or die "Impossible de lire le fichier $fichier\n";
my $i=0;
 
my %hash=();
while(my $ligne = <$fh>){
	$i++;
        chomp $ligne;
        my ($enst,$ensg,$taille) = split "\t", $ligne;
 	$hash{$ensg}{$taille}=$enst;#hash de hash
}
close($fh);
foreach my $t (keys %hash){
	foreach (keys %{$hash{$t}}){
 
#my $max;
#$max = {$_} if ({$_} > $max)
 
        }
}