請(qǐng)教關(guān)于array of hash的排序

yang200218

Hi,

請(qǐng)教大家一個(gè)關(guān)于array of hash的排序：

有這樣一個(gè)array:

@AoH = (
    {
       rsh => "0.4",
    },
    {
       telnet=> "0.022",
    },

    {
       ssh => "0.3",
    },
  );

我想按照value的值從小到大輸出，其中 rsh, telnet, ssh 這些key的值是隨機(jī)的。

output：

telnet : 0.022
ssh    : 0.3
rsh     : 0.4

謝謝！

cdtits

1. @res = sort { (values($a))[0] <=> (values($b))[0] } @AoH;
   
2. foreach (@res) {
   
3.     while (($k, $v) = each %{$_}) {
   
4.         print "$k\t: $v\n";
   
5.     }
   
6. }

復(fù)制代碼

congkk

回復(fù) 2# cdtits

可以解釋下@res = sort { (values($a))[0] <=> (values($b))[0] } @AoH;中的<=>符號(hào)的作用嗎?


   

Monox

回復(fù) 3# congkk


    詳細(xì)信息你可以查看

1. $ perldoc perlop

復(fù)制代碼

簡單來說這個(gè) spaceship operator 是一個(gè)二元操作符，它進(jìn)行數(shù)值比較操作，如果操作數(shù) 1 小于操作數(shù) 2 就返回 -1，相等返回 0，否則返回 1。sort 就是根據(jù)返回值是等于 0 還是大于 0 或者小于 0 來進(jìn)行排序的。

yybmsrs

1. my @sort = map  { $_->[0] }
   
2.            sort { $a->[1] <=> $b->[1] }
   
3.            map  { [ $_, (%$_)[1] ] } @AoH;

復(fù)制代碼

xiyoulaoyuanjia

1. print $_[1] for sort { (values($a))[0] <=> (values($b))[0] } @AoH;

復(fù)制代碼

yang200218

學(xué)習(xí)了， 謝謝！

gaoyang636

回復(fù) 5# yybmsrs


    這就是典型的 Schwartzian transform

xmchenb

回復(fù) 6# xiyoulaoyuanjia

6樓的貌似有問題，我改成這樣就可以：
print keys($_),":",values($_),"\n" for sort { (values($a))[0] <=> (values($b))[0] } @AoH;

   

xiyoulaoyuanjia

thanks ! you are right!.
回復(fù) 9# xmchenb