Help with sorting...

[Joe Trubisz]

Hi...

I have something like this:

$rec = {};
$rec->{a} = 1;
$rec->{b} = 4;
$D{$rec->{a}}=$rec;
$rec = {};
$rec->{a} = 2;
$rec->{b} = 1;
$D{$rec->{a}}=$rec;
$rec = {};
$rec->{a} = 3;
$rec->{b} = 3;
$D{$rec->{a}}=$rec;

What I want to do is sort D based on the value of b.

Can someone explain to me what the sort command should look like?
I'm stumped!

TIA,
Joe

[Joe Smith]

Joe Trubisz wrote:

$rec = {};
$rec->{a} = 1;
$rec->{b} = 4;
$D{$rec->{a}}=$rec;
$rec = {};
$rec->{a} = 2;
$rec->{b} = 1;
$D{$rec->{a}}=$rec;
$rec = {};
$rec->{a} = 3;
$rec->{b} = 3;
$D{$rec->{a}}=$rec;

What I want to do is sort D based on the value of b.

print "$D{$_}{a} $D{$_}{b}\n" for sort {$D{$a}{b} cmp $D{$b}{b}} keys %D;

-Joe