tableau hash de hash

Version imprimable

Bonjour,

j'ai un message d'erreur que je ne comprend pas:
Pseudo-hashes are deprecated at cahier.pl line xx, <xxx> line xxx.
No such pseudo-hash field "a" at cahier.pl line xx, <INTERM> line xxx.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
my %hash;
open (INTERM, "<xxxx") or die("Impossible d'écrire xxx$!");
while( my $line=<INTERM>){
if($line =~ /(.*)\tTest\tnege\t([0-9]+)\t([0-9]+)\t(.*)\t(.*)\t(.*)\t(.*) (.*) ; (.*) (.*)$/){
	my $id=$8;
	$hash{$id}{'ge'} =$line;
    }
elsif($line =~ (.*)\tTest\t(.*)\t([0-9]+)\t([0-9]+)\t(.*)\t(.*)\t(.*)\t(.*) (.*) ; (.*) (.*)$/){
	my $id=$9;
	my $nb = { 'deb' => $3, 'ligne' => $line};
	push @{$hash{$id}{'ex'}}, $nb;
    }
}
my ($id,$structure);
my @tab;
 
while ( ($id, $structure) = each (%hash) ) {
 
//le problème vient de cette ligne mais!!
@tab = (sort { $hash{$id}{'ex'}{a}{'deb'} <=> $hash{$id}{'ex'}{b}{'deb'} } @{$hash{$id}{'ex'}});
}

j'ai un tableau de hash de hash ce type et j'aimerais le trier suivant 'deb' et afficher 'ligne'

Code:

1
2
3
4
5
6
7
8
9
10
11
12
$VAR1 = {
          'ex' => [
                         {
                           'deb' => '68',
                           'ligne' => 'aaa'
                         },
                         {
                           'deb' => '70',
                           'ligne' => 'bb'
                         },
 ],
};

ce que je traduit comme ceçi:

Code:

1
2
3
while ( ($id, $structure) = each (%hash) ) {
@tab = (sort { $hash{$id}{'ex'}{a}{'deb'} <=> $hash{$id}{'ex'}{b}{'deb'} } @{$hash{$id}{'ex'}});
}

commet je peux faire le tri?

17/08/2011, 16h18
pontarose

le problème venait du tri:
while ( ($id, $structure) = each (%hash) ) {
@tab = ( sort { $a->{'deb'} <=> $b->{'deb'} } @{$hash{$id}{'ex'}} );

}