Perl：引用散列以传递给另一个例程

Question

在上传 excel 电子表格的代码中，它为我提供了数组 ref 中的数据：

for( @{$listref} ){...

我使用$_->{'whateverthehashkeyis'} 访问它，没有问题。

我需要做的是将我在当前循环迭代中访问的哈希传递给另一个子例程。

这是我遇到问题的地方。我尝试了不同的东西，但没有运气。

这不起作用，但它应该是我需要做的一个例子

%args = @{$_};

$results = &format_trading_card_preview_item(\%args);
....
sub format_trading_card_preview_item
{
    my %args = shift;

我认为我需要做的是取消引用散列以将其发送过来。那正确吗？

提前感谢您的帮助

Answer 1

看起来$listref 是对哈希引用数组的引用。

如果您需要使用保存散列引用的变量，那么最好命名该变量而不是使用默认标量 $_

取消引用哈希并将其复制到%args 也是没有意义的，只是引用 那个 哈希并将其作为参数传递给您的子例程

使用 & 符号 & 字符调用子例程是错误的，自 17 年前 Perl v5.5 出现以来一直如此

你的循环应该是这样的

for my $item ( @$listref ) {
    format_trading_card_preview_item($item);
}

在子例程中，它很大程度上取决于你想对传入的哈希做什么，但你什么也没说，所以最好将它作为参考并编写

sub format_trading_card_preview_item {
    my ($item) = @_;
    ...
}

或者你可以使用for的语句修饰符形式，像这样

format_trading_card_preview_item($_) for @$listref;

Answer 2

要回答您的问题，您无需取消引用哈希引用即可将其传递给另一个子例程。创建一个浅拷贝然后引用该新哈希是低效的，但从技术上讲它可以正常工作。

但是，您的问题是，您使用语法取消引用实际上是哈希引用的数组引用，从而混淆了哈希和数组。实际上，您应该收到一条错误消息，基本上是在说同样的话：

不是 foo.pl 行中的 ARRAY 引用 ...

你真正想做的是这样的：

for my $href (@$listref) {  # variable names could be better
    # do something
    my $results = format_trading_card_preview_item($href);
    # do something else
}

sub format_trading_card_preview_item {
    my $args = shift;
    print $args->{foo};
    return 42;
}

查看 perlreftut 和 perlref 了解有关 Perl 引用和嵌套数据结构的更多信息。