《大骆驼》中，SORT与OR的疑惑！请您指教。

QUOTE:

对散列按照数值排序是 sort 函数的常用法之一。比如，如果 %sales_amount 散列记录部门销售情况，那么在排序过程里做一次散列查找就可以让我们将散列键字根据它们的数值排序：

# 从销售额最高的部门到最低的部门

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

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

你可以通过使用 || 或者 or 操作符级连多个比较的方法进行额外层次的排序。这种方法相当漂亮，因为比较操作符通常在相等的时候返回 0，这样就令它们能落到下一个比较。下面，散列键字首先根据它们相关的销售额排序，然后在根据键字本身进行排序（以处理有两个或多个部门销售额相同的情况）：

   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";
   }

QUOTE:

原帖由 windows.li 于 2008-1-2 11:45 发表

--------------------------------------------------------------------------------------
如果各部门销售额均不等，经测试，也可以通过“or”落到下一个比较啊！！！...

QUOTE:

# 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";
}

QUOTE:

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
}

QUOTE:

原帖由 windows.li 于 2008-1-2 15:56 发表

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我将＃2，＃3，＃4全部删除后，程序Result不变！＃2－4连排序都是对的！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ...