哈希作为参数传递如何处理？

mantou

sub hash_sort { &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;my %org_hash= $_[0]; &nbsp;&nbsp;my @key_s  = sort {$org_hash{$b} <=> $org_hash{$a}} keys %org_hash;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;foreach(@key_s) &nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;printf "%s\t$org_hash{$_}\n", $_; &nbsp;&nbsp;&nbsp;} } hash_sort %hashcc

哈希如何作为参数来传递

addf

展开成list吧

perljoker

用引用传递：

1. 
   
2. sub hash_sort
   
3. {
   
4.    
   
5.   my $org_hash= shift;
   
6.   my @key_s  = sort {$org_hash{$b} <=> $org_hash{$a}} keys %{$org_hash};   
   
7.   foreach(@key_s)
   
8.   {
   
9.       printf "%s\t$org_hash->{$_}\n", $_;
   
10.    }
    
11. }
    
12. 
    
13. hash_sort \%hashcc
    

复制代码

mantou

有一小地方要纠正一下

sub hash_sort { &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;my $org_hash= shift; &nbsp;&nbsp;my @key_s  = sort {$org_hash->{$b} <=> $org_hash->{$a}} keys %{$org_hash};    &nbsp;&nbsp;foreach(@key_s) &nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;printf "%s\t$org_hash->{$_}\n", $_; &nbsp;&nbsp;&nbsp;} } hash_sort \%hashcc

谢谢，我想到了引用。但在使用引用的值时，没有使用-> 所以出错。
引用还是蛮重要的，希望对其他兄弟也能有所启发