Re: Reg. length of anonymous array

[Shiping Wang]

Hi,

How can I rearrange an array in a specific order based on the order of a 
hash? Something like this:

my @a = qw(Mary John Dan);
print join "\t", @a, "\n";
my %b = ( John => 0,
              Dan => 1,      
                Mary => 2);
print "$_ => $b{$_}\n" for (keys %b);
print "$_-$b{$_}\t" foreach sort {$b{$a} <=> $b{$b}} keys %b;

The final order for @a expect:

	John Dan Mary	

Thanks,

Shiping

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>