Perl：@_和$ _之间的解除引用

Question

我对以下代码有疑问：

#!/usr/bin/perl

use strict;
use warnings;

my %dmax=("dad" => "aaa","asd" => "bbb");
my %dmin=("dad" => "ccc","asd" => "ddd");

&foreach_schleife(\%dmax,\%dmin);

sub foreach_schleife {
        my $concat;
        my $i=0;

        foreach my $keys (sort keys %{$_[0]}) {
                while ($_[$i]) {
                        $concat.="$_[$i]{$keys} ";
                        print $_[$i]{$keys}."\n";
                        $i++;
                }
                $i=0;
                $concat="";
        }
}

输出是：

   bbb
   ddd
   aaa
   ccc

我不明白这一点。 通常你必须取消引用哈希，数组等的引用。为什么不在这里？ 足以写：

$_[$i]{$keys}."\n";

而不是那样的：

$$_[$i]{$keys}."\n";

为什么？ 它与变量@_ / $_吗？

Answer 1

我的猜测是因为一个数组（或哈希，就此而言）只能包含哈希引用，你的第二个索引行为意味着理解引用。

我认为开发人员需要更好地记录这一点。

要看到它对*_不特殊，你可以在循环之前尝试这个：

my @a = @_;

这期间：

print $a[$i]{$keys}."\n";

我认为最重要的是，如果你只有一个标量引用作为基础，那么至少需要一个-> 。 所以

my ( $damxr, $dminr ) = @_;

需要

$dmaxr->{ $key };

Answer 2

您不必取消引用$_[0]和$_[1]是$_[$i]{$keys}是$_[$i]->{$keys}的有效简写符号当你的引用在数组或哈希中时， $_[$i]->{$keys} 。

$$_[$i]{$keys}不起作用，因为它会尝试将特殊变量$_取消引用到标量。 正确的语法是%{$_[$i]} ，但是你必须使用%{$_[$i]}->{$keys} ，这更详细。

Answer 3

@_是子例程参数的数组，因此$_[$index]访问$index处的元素

如果您有引用，则取消引用只会很好，但@_不是一个引用。