Chinaunix

标题: perl 版主 flw 禁止我发言, 管理员帮我回复一个问题, 谢谢啦!! [打印本页]

---

作者: substr函数    时间: 2016-01-03 21:32
标题: perl 版主 flw 禁止我发言, 管理员帮我回复一个问题, 谢谢啦!!
perl 版主 flw 禁止我发言, 管理员帮我回复一个问题, 谢谢啦!!

http://bbs.chinaunix.net/thread-4216945-2-1.html

回复 17楼 weichangh


就是一个 inline sort 代码简洁一点!!
大神! 我是菜鸟哈。
比如酱紫
完全不用子程序?
代码更清晰，简单，明了。

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. my %h1 = (
   
5.     "Portland Panthers"   => 10,
   
6.     "Sunnyvale Sluggers"  => 12,
   
7.     "Chico Wildcats"      => 5,
   
8.     "Stevensville Tigers" => 6,
   
9.     "Lewiston Blazers"    => 11,
   
10.     "Danville Terriors"   => 8,
    
11. );
    
12. my %h2 = (
    
13.     "Portland Panthers"   => 101,
    
14.     "Sunnyvale Sluggers"  => 121,
    
15.     "Chico Wildcats"      => 51,
    
16.     "Stevensville Tigers" => 61,
    
17.     "Lewiston Blazers"    => 111,
    
18.     "Danville Terriors"   => 81,
    
19. );
    
20. 
    
21. for my $k ( sort { $h1{$b} <=> $h1{$a} } keys %h1 ) {
    
22.     printf "\t%s%5d\n", $k, $h1{$k};
    
23. }
    
24. 
    
25. for my $k ( sort { $h2{$b} <=> $h2{$a} } keys %h2 ) {
    
26.     printf "\t%s%5d\n", $k, $h2{$k};
    
27. }
    
28. 
    

复制代码

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2