为什么我的哈希变平了？

Question

我通过引用一个子例程来传递一个引用数组。当我尝试在子例程中尊重它时，它会给出一个扁平的哈希值。我怎样才能解决这个问题？我不想要一个平面哈希，我无法确定原因。

我确定我在某个地方犯了错误，但无法发现它。任何cmets /建议都完全欢迎！期待听到这个精彩社区的消息！提前致谢。

更新的问题陈述： 基本上我希望通过引用子例程来传递哈希。我的问题是，当我在带有标量变量的子例程中接受它，然后我尝试用 % 符号取消引用它时，我仍然得到一个平面哈希。

更新： 出现了混乱。当我检查我的哈希值是否平坦时，我只检查了print Dumper %hash，而实际上我应该实际检查与print Dumper \%hash。缺少这条信息导致了这个问题。

脚本：

#!/usr/bin/perl

use strict ;
use warnings ;
use Data::Dumper ;

my %h = (moe => "joe", toe => "poe") ;
my @a = (1,2,3,4) ;

my @refs = \(%h,@a) ;

sub sample()
{
  my $ref = shift ;
  my @refs = @{$ref} ;
  print "What I got in the sub! Seems OK!!\n" ;
  print Dumper @refs, "\n" ;

  my %h = %{$refs[0]} ;
  my @a = @{$refs[1]} ;

  print "I am not able to dereference this :(. Please help!! Hash is flat :(\n" ;
  print Dumper %h ;
  print Dumper @a ;
}

&sample(\@refs) ;

输出：

23:34:17[Host@User]$ ./test.pl 
What I got in the sub! Seems OK!!
$VAR1 = {
          'moe' => 'joe',
          'toe' => 'poe'
        };
$VAR2 = [
          1,
          2,
          3,
          4
        ];
$VAR3 = '
';
I am not able to dereference this :(. Please help!! Hash is flat :(
$VAR1 = 'moe';
$VAR2 = 'joe';
$VAR3 = 'toe';
$VAR4 = 'poe';
$VAR1 = 1;
$VAR2 = 2;
$VAR3 = 3;
$VAR4 = 4;

Answer 1

没有什么可以解决的。你有你想要的。 %h 中有一个散列，@a 中有一个数组。

但是Data::Dumper 需要一个参数列表，并将其每个参数视为一个单独的变量来转储。因此，当您将散列或数组传递给 Dumper() 时，它们将展开到列表中，并且您会将它们显示为单独的变量。

如果您想使用Dumper() 查看数组或散列的结构，您应该传入对数据结构的引用。

print Dumper \%h;
print Dumper \@a;

当然，这实际上是您第一次致电Dumper() 时所做的。

print Dumper @refs;

我还应该指出，您的代码中有几个错误（幸运的是？）相互抵消。您使用空原型 (sample() { ... }) 定义子例程 sample，这意味着如果您向其传递任何参数，您将收到致命错误。但是当您调用子例程时，您会使用 & (&sample(@refs))，其效果之一是关闭原型检查 - 因此即使您将参数传递给子例程，它也可以工作。

最好完全省略原型 (sub sample { ... }) 并调用不带 & 符号的子例程 (sample(@refs)))。