perl 排序 两个 限制条件

ic_seu

题目：给出5个人的薪水，其中有三个人的是一样的，请用perl排列出薪水值由大到小，薪水一样的按照姓名的ACSII大小值排列。

请问，这个是如何实现？ 用sort or 也没想明白。

网上找了个，例子有疑问：1.employees数组的元素是怎么组织的？ 为什么第二次是‘{}’ 而不是‘（）’？

1. 
   
2. @employees = (
   
3.   { FIRST =>'Bill',   LAST =>'Gates',   
   
4.     SALARY => 600000, AGE =>; 45 },
   
5.   { FIRST =>'George', LAST =>'Tester'  
   
6.     SALARY =>55000, AGE =>29 },
   
7.   { FIRST =>'Steve', LAST =>'Ballmer',  
   
8.     SALARY =>600000, AGE =>41 }
   
9.   { FIRST =>'Sally', LAST => 'Developer',
   
10.     SALARY =>55000, AGE =>29 },
    
11.   { FIRST =>'Joe',   LAST =>'Tester',  
    
12.     SALARY =>55000, AGE =>29 },
    
13. );
    
14. sub seniority {
    
15.   $b->{SALARY}   <=> $a->{SALARY}
    
16.   or $b->{AGE}   <=> $a->{AGE}
    
17.   or $a->{LAST}   cmp $b->{LAST}
    
18.   or $a->{FIRST}   cmp $b->{FIRST}
    
19. }
    
20. @ranked = sort seniority @employees;
    
21. foreach $emp (@ranked) {
    
22.   print "$emp->{SALARY}$emp->{AGE}$emp->{FIRST}$emp->{LAST} /n";
    
23. }
    
24. 
    
25. 打印结果是：
    
26. 600000 45     Bill Gates600000 41     Steve Ballmer
    
27. 55000   29     Sally Developer
    
28. 55000   29     George Tester
    
29. 55000   29     Joe Tester
    
30. 
    
31. 
    

复制代码

pebay888

不懂呵呵

fiser

{}是hash, @employees是一个以hash为元素的数组，这里的hash表示了每个employee的salary age等信息。 sort or对比较项的优先排序。按你的意思把
or  $a->{FIRST}   cmp $b->{FIRST}放到第二行就可以了。

hezb

学习一下