如何將兩個hash傳遞給子函數(shù)?

yangds

Perl中如何實現(xiàn)將兩個hash當作參數(shù)傳遞給子函數(shù)?

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

&Test(%hash_a,%hash_b);

lokchungk

reference

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

Perl_Er

下面這個帖子里面的那本書progperl.pdf , subroutine那章有關(guān)告訴你怎么傳多個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);
    

復制代碼

除了顯示的用引用當參數(shù)外 還可以用函數(shù)原型的辦法