已经解决.结贴 脚本 Perl - sort 函数中的 or 操作符

sunzhiguolu

我的代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub _sort{
   
7.     $b->{'SALARY'} <=> $a->{'SALARY'} or
   
8.     $b->{'AGE'} <=> $a->{'AGE'}
   
9. }
   
10. 
    
11. my @aFriends = (
    
12. {'NAME' => 'Zhang_San', 'SALARY' => 2_0000, 'AGE' => 21},
    
13. {'NAME' => 'Li_Si', 'SALARY' => 3_5000, 'AGE' => 25},
    
14. {'NAME' => 'Wang_Wu', 'SALARY' => 3_5000, 'AGE' => 19},
    
15. );
    
16. 
    
17. foreach (sort _sort @aFriends){
    
18.     my $rhFriend = $_;
    
19.     printf "Name => %s, Salary => %d, Age => %d\n", $rhFriend->{'NAME'}, $rhFriend->{'SALARY'}, $rhFriend->{'AGE'};
    
20. }
    

复制代码

输出结果如下:

1. 
   
2. Name => Li_Si, Salary => 35000, Age => 25
   
3. Name => Wang_Wu, Salary => 35000, Age => 19
   
4. Name => Zhang_San, Salary => 20000, Age => 21
   

复制代码

耽误大家宝贵时间了, 想明白了...

jason680

回复 1# sunzhiguolu

change the sub name to by_xxx
ex:
  sub by_salary
  sub by_salary_age
then ...
  sort by_salary @aFriends
  sort by_salary_age @aFriends
  
   

sunzhiguolu

回复 2# jason680
大神您好, 非常感谢您为我指出函数名称命名的问题.
您在给函数命名时使用什么规则, 像给变量那样命名吗? 我在为函数命名时也没啥好的方法, 还请您给予指点, 谢谢您...
另外, 像我的函数中如何表示 Salary 按照降序的方式, Age 也是按照降序的方式排序. (既能表达含义又不会让函数名称太长)
   

jason680

回复 3# sunzhiguolu

only for sort function with "sort by xxx"


and you named the sub with by_xxx and using:
sort by_xxx @aAarry;
ex:
sort by_salary @aAarry;
sort by_salary_age @aAarry;


   

sunzhiguolu

回复 4# jason680
懂了, 谢谢您的指点...