亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 《大駱駝》中，SORT與OR的疑惑！請(qǐng)您指教。 [打印本頁]

作者: windows.li 時(shí)間: 2008-01-02 11:45
標(biāo)題: 《大駱駝》中，SORT與OR的疑惑！請(qǐng)您指教。

對(duì)散列按照數(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í)連多個(gè)比較的方法進(jìn)行額外層次的排序。這種方法相當(dāng)漂亮，因?yàn)楸容^操作符通常在相等的時(shí)候返回 0，這樣就令它們能落到下一個(gè)比較。下面，散列鍵字首先根據(jù)它們相關(guān)的銷售額排序，然后在根據(jù)鍵字本身進(jìn)行排序（以處理有兩個(gè)或多個(gè)部門銷售額相同的情況）：

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)漂亮，因?yàn)楸容^操作符通常在相等的時(shí)候返回 0，這樣就令它們能落到下一個(gè)比較。
如果各部門銷售額均不等，經(jīng)測(cè)試，也可以通過“or”落到下一個(gè)比較啊�。�！
語法困惑，請(qǐng)大大們指教！

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

作者: perljoker 時(shí)間: 2008-01-02 12:04

把測(cè)試程序打出來看看

作者: royalzhang 時(shí)間: 2008-01-02 13:07

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

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

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

作者: windows.li 時(shí)間: 2008-01-02 13:26

# 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)該都不會(huì)執(zhí)行的呀！為何Result中還顯示了＃2，＃3，＃4的結(jié)果?
大大們救命阿！

作者: perljoker 時(shí)間: 2008-01-02 14:18

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

作者: windows.li 時(shí)間: 2008-01-02 15:56

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連排序都是對(duì)的！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
老大，何故？謝謝！

作者: perljoker 時(shí)間: 2008-01-02 16:51

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

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

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

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

作者: windows.li 時(shí)間: 2008-01-02 17:00
剛測(cè)試了幾次，恩，是的，純屬巧合！理清思路了，謝謝perljoker朋友的解答，謝謝！

歡迎光臨 Chinaunix (http://72891.cn/)