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:
Résultat attendu:
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
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) } }
Partager