珀尔 : Dereference between @_ and $_

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 };