如何将两个hash传递给子函数?

yangds

Perl中如何实现将两个hash当作参数传递给子函数?

sub Test(){
        my (%hash1,%hash2)=@_;
        ......
}

&Test(%hash_a,%hash_b);

lokchungk

reference

[ 本帖最后由 lokchungk 于 2009-10-14 23:09 编辑 ]

Perl_Er

下面这个帖子里面的那本书progperl.pdf , subroutine那章有关告诉你怎么传多个hash array.
http://bbs3.chinaunix.net/thread-1565373-1-1.html

shaneqi

&Test(\%hash_a,\%hash_b);

yangds

谢谢大家，实践ing……

DQP

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. sub foo(\%\%){
   
7.     print Dumper @_;
   
8. }
   
9. 
   
10. my %bar1 = (a => 1, b => 2);
    
11. my %bar2 = (a => 3, b => 4);
    
12. foo(%bar1, %bar2);
    

复制代码

除了显示的用引用当参数外 还可以用函数原型的办法