[新手分享]把hash中姓名排序

melocy

感觉应该是\L***\E组合，转换为小写。

1. 
   
2. [mhung@mybsd ~]$ cat  w1.pl
   
3. #!/usr/bin/perl
   
4. 
   
5. my %last_name = qw {
   
6.   fred flintstone Wilma Flintstone Barney Rubble
   
7.   betty rubbel Bamm-Bamm Rubble PEBBLES FLINSTONE
   
8. };
   
9. 
   
10. my @keys = sort {
    
11. "\L$last_name{$a}\E" cmp "\L$last_name{$b}\E"
    
12.   or
    
13. "\L$a\E" cmp "\L$b\E"
    
14. } keys %last_name;
    
15. 
    
16. foreach (@keys) {
    
17.   print "$last_name{$_}, $_
    
18. ";
    
19. }
    
20. 
    
21. [mhung@mybsd ~]$ ./w1.pl
    
22. FLINSTONE, PEBBLES
    
23. Flintstone, Wilma
    
24. Rubble, Bamm-Bamm
    
25. Rubble, Barney
    
26. flintstone, fred
    
27. rubbel, betty
    
28. 
    

复制代码