如何传递一个散列到Perl中的函数？

发布时间：2020-12-15 21:25:15 所属栏目：大数据来源：网络整理

导读：我有一个函数，它接受一个变量和一个关联数组，但我似乎不能让他们传递正确。我认为这与函数声明有关，但我不能弄清楚它们如何在Perl中工作。有没有很好的参考，如何完成我需要的？我应该补充说，它需要通过引用传递。 sub PrintAA{ my $test = shift; my %

我有一个函数，它接受一个变量和一个关联数组，但我似乎不能让他们传递正确。我认为这与函数声明有关，但我不能弄清楚它们如何在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}?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!