多個(gè)哈希按value降序排序時(shí)，能否 只用1個(gè)子程序

weichanghe2000

大家好，請教1個(gè)問題：
多個(gè)哈希按value降序排序時(shí)，能否 只用1個(gè)子程序，而不用2個(gè)呢（如果有5個(gè)或者6個(gè)哈希時(shí)，代碼變得冗余）？
比如有2個(gè)哈希，按value降序排序時(shí)，可以用下面的代碼實(shí)現(xiàn)：

1. my (%courses, %courses1);
   
2. sub desc_sort_subject {
   
3. $courses{$b} <=> $courses{$a}; # Numeric sort descending
   
4. }
   
5. sub desc_sort_subject_1 {
   
6. $courses1{$b} <=> $courses1{$a}; # Numeric sort descending
   
7. }
   
8. 
   
9. %courses = (
   
10. "Portland Panthers" => 10,
    
11. "Sunnyvale Sluggers" => 12,
    
12. "Chico Wildcats" => 5,
    
13. "Stevensville Tigers" => 6,
    
14. "Lewiston Blazers" => 11,
    
15. "Danville Terriors" => 8,
    
16. );
    
17. %courses1 = (
    
18. "Portland Panthers" => 101,
    
19. "Sunnyvale Sluggers" => 121,
    
20. "Chico Wildcats" => 51,
    
21. "Stevensville Tigers" => 61,
    
22. "Lewiston Blazers" => 111,
    
23. "Danville Terriors" => 81,
    
24. );
    
25. 
    
26. 
    
27. foreach my $key (sort desc_sort_subject keys %courses  ) {
    
28. printf "\t%s%5d\n", $key, $courses{"$key"};
    
29. }
    
30. 
    
31. foreach my $key (sort desc_sort_subject_1 keys %courses1  ) {
    
32. printf "\t%s%5d\n", $key, $courses1{"$key"};
    
33. }
    

復(fù)制代碼

sunzhiguolu

回復(fù) 1# weichanghe2000

   
    our %hCourses;
    my (%courses, %courses1);
    sub desc_sort_subject {
    $hCourses{$b} <=> $hCourses{$a}; # Numeric sort descending
    }
   

    %courses = (
    "Portland Panthers" => 10,
    "Sunnyvale Sluggers" => 12,
    "Chico Wildcats" => 5,
    "Stevensville Tigers" => 6,
    "Lewiston Blazers" => 11,
    "Danville Terriors" => 8,
    );
    %courses1 = (
    "Portland Panthers" => 101,
    "Sunnyvale Sluggers" => 121,
    "Chico Wildcats" => 51,
    "Stevensville Tigers" => 61,
    "Lewiston Blazers" => 111,
    "Danville Terriors" => 81,
    );


    foreach my $key (sort desc_sort_subject keys {%hCourses = %courses}  ) {
    printf "\t%s%5d\n", $key, $hCourses{"$key"};
    }

    foreach my $key (sort desc_sort_subject keys {%hCourses = %courses1}  ) {
    printf "\t%s%5d\n", $key, $hCourses{"$key"};
    }

   

weichanghe2000

回復(fù) 2# sunzhiguolu


你好，非常感謝回復(fù)。

我試了下，在window上面，我安裝了perl5.14，可以正確執(zhí)行。
但是我在linux：redhat5.8 系統(tǒng)自帶的perl5.8.8里面執(zhí)行會報(bào)錯(cuò)。

可以幫忙改成能夠在 perl5.8.8 里面也正確嗎？
多謝。

sunzhiguolu

回復(fù) 3# weichanghe2000
把錯(cuò)誤信息貼出來, 或者弄個(gè)圖片瞧瞧...
你上傳的圖片都出問題了, 沒法看!

   

weichanghe2000

回復(fù) 4# sunzhiguolu

好的，我這邊刷新后，可以正�？吹綀D片。

1. Type of arg 1 to keys must be hash (not anonymous hash ({})) at 3.pl line 27, near "}  ) "
   
2. Type of arg 1 to keys must be hash (not anonymous hash ({})) at 3.pl line 31, near "}  ) "
   
3. Execution of 3.pl aborted due to compilation errors.
   

復(fù)制代碼

1. This is perl, v5.8.8 built for i386-linux-thread-multi
   
2. 
   
3. Copyright 1987-2006, Larry Wall

復(fù)制代碼

sunzhiguolu

回復(fù) 3# weichanghe2000
別費(fèi)事了, 這樣試下:

%hCourses = %courses;
foreach my $key (sort desc_sort_subject keys %hCourses  ) {
    printf "\t%s%5d\n", $key, $hCourses{"$key"};
    }

   

weichanghe2000

回復(fù) 6# sunzhiguolu


多謝，這樣真的可以。
在redhat5.8的perl5.8.8里面按照value降序排序了，而且不報(bào)錯(cuò)。

再次感謝您的幫助。

jason680

回復(fù) 1# weichanghe2000

Would you like this way ...

sub sort_by_subject_desc(+) {
  my ($rhCour) = @_;
  return sort {$rhCour->{$b} <=> $rhCour->{$a}} keys %{$rhCour};
}


foreach my $key (sort_by_subject_desc(%courses)) {
  printf "\t%s%5d\n", $key, $courses{"$key"};
}

foreach my $key (sort_by_subject_desc(%courses1)) {
  printf "\t%s%5d\n", $key, $courses1{"$key"};
}

   

sunzhiguolu

回復(fù) 7# weichanghe2000
使用 Jason680 大神提供的方法吧.

   

weichanghe2000

回復(fù) 8# jason680

非常感謝。
但是 sub sort_by_subject_desc(+) {

(+)  這里面的 + 號是什么意思哦？沒有見過這樣的用法。

請幫忙解答下哈。
多謝。