《大駱駝》中，SORT與OR的疑惑！請您指教。

windows.li

對散列按照數(shù)值排序是 sort 函數(shù)的常用法之一。比如，如果 %sales_amount 散列記錄部門銷售情況，那么在排序過程里做一次散列查找就可以讓我們將散列鍵字根據(jù)它們的數(shù)值排序：

# 從銷售額最高的部門到最低的部門

    sub bysales { $sales_amount{$b} <=> $sales_amount{$a} }

    for $dept (sort bysales keys %sale_amount) {
        print "$dept => $sales_amount{$dept}\n";
    }

你可以通過使用 || 或者 or 操作符級連多個比較的方法進(jìn)行額外層次的排序。這種方法相當(dāng)漂亮，因為比較操作符通常在相等的時候返回 0，這樣就令它們能落到下一個比較。下面，散列鍵字首先根據(jù)它們相關(guān)的銷售額排序，然后在根據(jù)鍵字本身進(jìn)行排序（以處理有兩個或多個部門銷售額相同的情況）：

   sub by_sales_then_dept {
      $sales_amount{$b} <=> $sales_amount{$a}
         ||
      $a cmp $b
   }

   for $dept (sort by_sales_then_dept keys %sale_amount) {
      print "$dept => $sales_smount{$dept}\n";
   }

--------------------------------------------------------------------------------------
這句小弟不明白：這種方法相當(dāng)漂亮，因為比較操作符通常在相等的時候返回 0，這樣就令它們能落到下一個比較。
如果各部門銷售額均不等，經(jīng)測試，也可以通過“or”落到下一個比較�。。�！
語法困惑，請大大們指教！

[ 本帖最后由 windows.li 于 2008-1-2 11:57 編輯 ]

perljoker

把測試程序打出來看看

royalzhang

原帖由 windows.li 于 2008-1-2 11:45 發(fā)表

--------------------------------------------------------------------------------------
如果各部門銷售額均不等，經(jīng)測試，也可以通過“or”落到下一個比較啊�。�！...

咋測試地？
各部門銷售額均不等的話，根本就不需要or后的比較啊……

windows.li

# An array of references to anonymous hashes
my @employees = (
    { FIRST =>'Bill',   LAST =>'Gates',
      SALARY =>600000, AGE =>45 },
    { FIRST =>'George', LAST =>'Tester',
      SALARY =>55000, AGE =>29 },
    { FIRST =>'Steve',  LAST =>'Ballmer',
      SALARY =>580000, AGE =>41 },
    { FIRST =>'Sally',  LAST =>'Developer',
      SALARY =>50000, AGE =>29 },
    { FIRST =>'Joe',    LAST =>'Tester',
      SALARY =>40000, AGE =>29 },
);
sub seniority {
    $b->{SALARY}     <=> $a->{SALARY}
    or $b->{AGE}     <=> $a->{AGE}
    or $a->{LAST}    cmp $b->{LAST}
    or $a->{FIRST}   cmp $b->{FIRST}
}
my @ranked = sort seniority @employees;
foreach my $emp (@ranked) {
    print "$emp->{SALARY}\t$emp->{AGE}\t$emp->{FIRST}\t$emp->{LAST}\n";
}

------------------------------------------------------------------------
Result:
600000  45      Bill    Gates
580000  41      Steve   Ballmer
55000   29      George  Tester
50000   29      Sally   Developer
40000   29      Joe     Tester
-----------------------------------------------
程序段
sub seniority {
    $b->{SALARY}     <=> $a->{SALARY}  ＃1
    or $b->{AGE}     <=> $a->{AGE}     ＃2
    or $a->{LAST}    cmp $b->{LAST}    ＃3
    or $a->{FIRST}   cmp $b->{FIRST}   ＃4
}
其中＃1執(zhí)行后結(jié)果應(yīng)該為“真”阿，“or“后，＃2，＃3，＃4應(yīng)該都不會執(zhí)行的呀！為何Result中還顯示了＃2，＃3，＃4的結(jié)果?
大大們救命阿！

perljoker

如有雷同，純屬巧合
你把  or $b->{AGE}     <=> $a->{AGE}     ＃2    這行去掉再試試看

windows.li

sub seniority {
    $b->{SALARY}     <=> $a->{SALARY} ＃1
    or $b->{AGE}     <=> $a->{AGE}    ＃2
    or $a->{LAST}    cmp $b->{LAST}   ＃3
    or $a->{FIRST}   cmp $b->{FIRST}  ＃4
}

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我將＃2，＃3，＃4全部刪除后，程序Result不變�。�2－4連排序都是對的！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
老大，何故？謝謝！

perljoker

原帖由 windows.li 于 2008-1-2 15:56 發(fā)表

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我將＃2，＃3，＃4全部刪除后，程序Result不變�。�2－4連排序都是對的！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ...

不是程序bug了，是你自己bug了，自己給自己困擾啊
你把前面兩種的次序都弄一樣了，你按第一列排和按第二列排沒區(qū)別啊

實際上說了，你第一列就沒有不同的，他不會進(jìn)入第二次排列，僅僅是第一次排列的結(jié)果，出現(xiàn)第二列也倒序，是純屬巧合

windows.li

剛測試了幾次，恩，是的，純屬巧合！理清思路了，謝謝perljoker朋友的解答，謝謝！