如何在perl中通过引用传递散列

Question

我知道这应该很容易在谷歌上搜索到，更不用说对 perl 的简单使用，但我已经尝试了许多我找到的解决方案，到目前为止，它们都没有给出预期的行为。本质上，我试图调用一个子例程，从该子例程返回对哈希的引用，将该哈希的引用传递给另一个子例程，然后通过类似于以下的代码打印该哈希的内容：

#!/usr/bin/perl                                                                                                                                                                                                   

my $foo = make_foo();

foreach $key (sort keys %$foo) {
    print "2 $key $$foo{$key}\n";
}

print_foo(\%foo);

sub print_foo
{
    my %loc = ???;
    foreach $key (sort keys %loc}) {
        print "3 $key $loc{$key}\n";
    }
}

sub make_foo
{
    my %ret;
    $ret{"a"} = "apple";
    foreach $key (sort keys %ret) {
        print "1 $key $ret{$key}\n";
    }
    return \%ret;
}

有人能告诉我吗？我在不创建哈希的额外副本的情况下执行此操作的最佳方法（通过子例程）？我尝试过的解决方案没有打印出任何以“3”开头的行。

Answer 1

您必须将参数作为引用拉入，然后取消引用它：

sub print_foo
{
    my ($loc) = @_;
    foreach my $key (sort keys %$loc) {
       print "3 $key $loc->{$key}\n";
    }
}

无论何时进行引用，都必须显式取消引用它。另外，请注意，对引用的任何更改都会更改原始引用。如果您想避免更改原始哈希，可以将哈希作为列表传递：

print_foo(%foo); # flattens the hash to a list and passes it in through @_

sub print_foo
{
    my (%loc) = @_; # load the hash from the list
    foreach my $key (sort keys %loc) {
       print "3 $key $loc{$key}\n";
    }
}

或者将哈希引用复制到新哈希中：

sub print_foo
{
    my ($ref_loc) = @_; # changes to %$ref_loc will change %foo
    my %loc = %$ref_loc; # COPY, changes to %loc do not change %foo
    foreach my $key (sort keys %loc}) {
       print "3 $key $loc{$key}\n";
    }
}

Answer 2

其他一切都很好，所以我只专注于 print_foo...

sub print_foo
{
    my %loc = %{shift @_};
    foreach $key (sort keys %loc) {
        print "3 $key $loc{$key}\n";
    }
}

仅供参考，您需要意识到 %loc 现在是哈希的副本（我问了一个问题，在这里解释了这一点： 关于 Perl 中取消引用的正确使用的混乱）。为了避免复印...

sub print_foo
{
    my $loc = shift @_;
    foreach $key (sort keys %$loc) {
        my $val = $loc->{$key}
        print "3 $key $val\n";
    }
}

Answer 3

您希望将其从引用转换为散列，如下所示：

my %loc = %{@_[0]};

或者

my %loc = %{shift};

您也可以将其保留为引用：

my $locref = shift;
foreach $key (sort keys %$locref}) {
    print "3 $key $locref->{$key}\n";
}

可以通过在命令行中键入 perldoc perlref 找到此信息。