如何將哈希和數組的引用傳遞給子例程

Question

我正在嘗試將散列引用和數組引用傳遞給子例程，但遇到諸如無效類字符串之類的錯誤：

sub test{
           if($chk == 2)
             {
                return(\%hash,\@array);
              } 
        }


my ($has, $arr)= test();

現在我再次不得不"$has, $arr"的引用傳遞給另一個子例程。

這個怎么做？ 我像\\%$has, \\@$arr一樣傳遞它們\\%$has, \\@$arr但這似乎不是傳遞給子例程的正確方法。

Answer 1

做就是了：

anotherSub($has, $arr);

$has和$arr已經是引用。

Answer 2

我的％Hash =（'1'=>'one'）;

我的@Arr =（'1'，'2'）;

＆fun（\\％Hash，\\ @ Arr）;

sub fun（）{

my $Hash_Ref=shift;

my $Arr_Ref=shift;
enter code here
&Fun2($Hash_Ref,$Arr_Ref);

} sub fun2（）{

my $Hash_Ref=shift;

my $Arr_Ref=shift; 

}