我有一个函数，它接受一个变量和一个关联数组，但我似乎不能让他们传递正确。我认为这与函数声明有关，但我不能弄清楚它们如何在Perl中工作。有没有很好的参考，如何完成我需要的？
我应该补充说，它需要通过引用传递。
sub PrintAA
{
my $test = shift;
my %aa = shift;
print $test . "\n";
foreach (keys %aa)
{
print $_ . " : " . $aa{$_} . "\n";
$aa{$_} = $aa{$_} . "+";
}
}
解决方法
传递引用而不是哈希本身。作为
PrintAA("abc",\%fooHash);
sub PrintAA
{
my $test = shift;
my $aaRef = shift;
print $test,"\n";
foreach (keys %{$aaRef})
{
print $_," : ",$aaRef->{$_},"\n";
}
}
也参见perlfaq7：How can I pass/return a {Function,FileHandle,Array,Hash,Method,Regex}?