[langage] hash et fonction

Version imprimable

salut,

j'ai un hash qui possède une clé de type :

Citation:

gi|19612490|gb|AAH49588.1|__116
gi|19612490|gb|AAH49588.1|__115
gi|19612490|gb|AAH49588.1|__114
gi|19612490|gb|AAH49588.1|__113
gi|19612490|gb|AAH49588.1|__112
gi|19612490|gb|AAH49588.1|__111
gi|19612490|gb|AAH49588.1|__110
gi|19612490|gb|AAH49588.1|__11
hi|19612490|gb|AAH49588.1|__109
hi|19612490|gb|AAH49588.1|__108
hi|19612490|gb|AAH49588.1|__107
hi|19612490|gb|AAH49588.1|__106
hi|19612490|gb|AAH49588.1|__105

cette clé est en fait composé de 2 éléments:

gi|19612490|gb|AAH49588.1| et __11
et j'aimerai pouvoir trier ce hash , d'abord par ordre alphabétique pour le 1er élément puis par ordre numérique pour le 2ème élément

Pour cela, je dois utiliser la fonction ( je sais que ca marche avec!)
Code:

1 2 3 4 5 6 7 sub byseq { my ($a1,$a2) = split /___/,$a; ## split permet de separer avant ($a1) et apres ($a2) __ de $a, $a etant la cle du hash my ($b1,$b2) = split /___/,$b; ## split permet de separer avant ($b1) et apres ($b2) __ de $b, $b etant la cle du hash if ($a1 ne $b1) { return ($a1 cmp $b1); } return ($a2-$b2); }
en fait cette fonction permet de à partir des deux clés:

gi|19612490|gb|AAH49588.1|__11
hi|19612490|gb|AAH49588.1|__109

de séparer les deux éléments de la clé en $a1 pour gi|19612490|gb|AAH49588.1|, $a2 pour 11, $b1 pour hi|19612490|gb|AAH49588.1|, et $b2 pour 109

puis on compare $a1 et $b1, puis $a2 et $b2

mais je na sais pas comment appeler cette fonction.

merci de votre aide

Slt !

Appelle ta fonction comme ca :

Code:

1
2
 
my $c = byseq($a,$b); # tu appelles ta fonction en passant a et b en param et tu récupères le résultat dans c

et mets ca dans ton sub :

Code:

1
2
3
4
 
sub byseq {
my ($a,$b) = @_; # tu récupères les params passés à ta fonction via la variable courante
...

@+
Mr6

17/09/2004, 13h51
perlaud
en fait, j'aimerai l'appeler au moment où je trie et affiche les clés de mon hash.
c'est-à-dire
Code:

1 2 3 foreach my $key (reverse sort {$a cmp $b} keys (%hash)) { print "$key\t\t$hash{$key}\n"; print F"$key\t\t$hash{$key}\n"; }
et donc je ne sais pas à quel endroit du code ci-dessus, je dois appeler la fonction?

merci

Facile, Perlaud, tu as déjà tout fait, il y juste à mettre en ordre de marche :)

J'ai remis tes données dans un à moi hash, pour tester, j'utilise ta fonction, et elle remplace la comparaison dans le sort ...

voila :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
#!/usr/bin/perl
 
use strict;
use warnings;
 
my %hash = ("gi|19612490|gb|AAH49588.1|__116" => "A",
            "gi|19612490|gb|AAH49588.1|__115" => "B",
            "gi|19612490|gb|AAH49588.1|__114" => "C",
            "gi|19612490|gb|AAH49588.1|__113" => "D",
            "gi|19612490|gb|AAH49588.1|__112" => "E",
            "gi|19612490|gb|AAH49588.1|__111" => "F",
            "gi|19612490|gb|AAH49588.1|__110" => "G",
            "gi|19612490|gb|AAH49588.1|__11" => "H",
            "hi|19612490|gb|AAH49588.1|__109" => "I",
            "hi|19612490|gb|AAH49588.1|__108" => "J",
            "hi|19612490|gb|AAH49588.1|__107" => "K",
            "hi|19612490|gb|AAH49588.1|__106" => "L",
            "hi|19612490|gb|AAH49588.1|__105" => "M");
 
 
sub byseq {
  my ($a1,$a2) = split /___/,$a; ## split permet de separer avant ($a1) et apres ($a2) __ de $a, $a etant la cle du hash
  my ($b1,$b2) = split /___/,$b; ## split permet de separer avant ($b1) et apres ($b2) __ de $b, $b etant la cle du hash
 
  if ($a1 ne $b1) { return ($a1 cmp $b1); }
  return ($a2-$b2);
} 	 
 
for my $key (reverse (sort { byseq ($a, $b) } keys (%hash))) {
  print "$key\t\t$hash{$key}\n";	 
}

17/09/2004, 14h40
perlaud

Ok merci bcp en effet c'était simple, mais je n'y arrivais pas....sorry! :wink:
21/09/2004, 19h54
Jedai
En réalité on peut même faire encore plus simple :
Code:

1 2 3 4 for my $key (reverse (sort \&byseq keys (%hash))) { print "$key\t\t$hash{$key}\n"; }
Car il n'est pas nécessaire de passer des arguments à byseq : $a et $b sont des variables globales qui sont automatiquement initialisées par sort. :D

--
Jedaï