Discussion :

[loula427]

Alors voila j'ai de gros pb pour sorter une hash.......

Le code original est le suivant.....

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
22
23
24
25
26
my $each_block = {};
    my $block      = ();
    my $i          = 0;
    while (@$text) {
        my $line   = shift(@$text);
        my $isLast = 1 if scalar(@$text) == 0;
        if ($line !~ m/^\n$/ && !$isLast) {
            push(@$block,$line);
        }
        else {
            $each_block->{$i} = $block;
            $block = ();
            $i++;
        }
    }
 
    # Treat block by block.
    my %global_seenids    = ();
    my $nb_block_with_seq = 0;
    my $info              = {};
    my $seqlist           = [];
    my $seqobj            = undef;
    my ($PP_cons,$RF)     = ("","");
 
 
    my @sorted = sort { $each_block->{$a} <=> $each_block->{$b} } keys %$each_block;

Le truc c'est qu'il fonctionne sur certaine de nos machines.... et pas sur d'autre.... la array resultante n'est pas dans l'odre !!!! La machine sur laquelle ca ne fonctionn pas presente une version de perl 5.8.3... alors qu'une autre sur laquelle ca fonctionne presente la version 5.8.5....

La facon de resoudre mon probleme est la suivante :

Code :

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

1
2
3
4
5
my @sorted = ();
    while (my ($key, $value) = each( %$each_block)){ 
        push (@sorted,$key);
    }
    @sorted = sort { $a <=> $b } @sorted;

Autre point, pour tester d'ou venais l'erreur j'ai teste avec une version interactive de Perl different petit morceau de code et je suis tombe sur des choses completement incomprehensible !!!....

Alors j'ai ca :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
PERL> foreach $a (1..12) { $h{$a} = 1 }
 
PERL> x sort  keys %h                     
$VAR1 = '1';
$VAR2 = '10';
$VAR3 = '11';
$VAR4 = '12';
$VAR5 = '2';
$VAR6 = '3';
$VAR7 = '4';
$VAR8 = '5';
$VAR9 = '6';
$VAR10 = '7';
$VAR11 = '8';
$VAR12 = '9';
 
PERL> x sort { $h{$a} cmp $h{$b} } keys %h
$VAR1 = '6';
$VAR2 = '11';
$VAR3 = '3';
$VAR4 = '7';
$VAR5 = '9';
$VAR6 = '12';
$VAR7 = '2';
$VAR8 = '8';
$VAR9 = '1';
$VAR10 = '4';
$VAR11 = '10';
$VAR12 = '5';
 
PERL> x sort { $h{$b} cmp $h{$a} } keys %h
$VAR1 = '6';
$VAR2 = '11';
$VAR3 = '3';
$VAR4 = '7';
$VAR5 = '9';
$VAR6 = '12';
$VAR7 = '2';
$VAR8 = '8';
$VAR9 = '1';
$VAR10 = '4';
$VAR11 = '10';
$VAR12 = '5';

Est-ce que quelqu'un a une explication car je deteste ne pas comprendre .


J'ai peut etre un probleme avec mes references a la hash ...

[djibril]

sort fait par défaut un trie syntaxique d'où le 12 avant le 2 par exemple alors qu'en faisant <=> tu fais un tri numérique.

[Philou67430]

Le tri s'est effectué sur des chaines au lieu de nombres entier, ainsi, "10" se trouve avant "2".

[Philou67430]

Pour les deux derniers essais de tri, tu effectues le tri en fonction de la valeur dans %h, or celle-ci est identique pour toutes les clés, les clés sont donc triées de manière relativement aléatoire.

[loula427]

Hmmmm...

sort fait par défaut un trie syntaxique d'où le 12 avant le 2 par exemple alors qu'en faisant <=> tu fais un tri numérique.

alors ca je suis d'accord dans mon code le vrai (le premier) c'est un tri numerique que je veux faire ce qui est bien le cas je crois :

Code :

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

$each_block->{$a} <=> $each_block->{$b}

et sur les cle ... ce qui n'est peut etre pas le cas (je sais plus la ):

Code :

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

sort { $each_block->{$a} <=> $each_block->{$b} } keys %$each_block

[Philou67430]

En fait non, tu fais un tri sur les valeurs, pas sur les clés (le dernier opérande de sort est "keys %$each_block").

Il faut donc écrire :

Code :

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

sort { $a <=> $b } keys %$each_block

[Philou67430]

Si tu veux trier les valeurs sur les clés il faut faire :

Code :

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

map $each_block->{$_}, sort { $a <=> $n } keys %$each_block;