perl - 如何将哈希和数组的引用传递给子例程

Question

我正在尝试将哈希引用和数组引用传递给子例程，但收到类似无效类字符串的错误：

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


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

现在我必须再次通过引用传递"$has, $arr"给另一个子例程。

这个怎么做？我像传递它们一样\%$has, \@$arr，但似乎这不是传递给子例程的正确方法。

Answer 1

做就是了：

anotherSub($has, $arr);

$has并且$arr已经是参考。

Answer 2

我的 %Hash=('1'=>'one');

我的@Arr=('1','2');

&fun(\%哈希,\@Arr);

子乐趣（）{

my $Hash_Ref=shift;

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

} 子乐趣2（）{

my $Hash_Ref=shift;

my $Arr_Ref=shift; 

}