Question

（注意：我想出了这一点，最后一直看到）

有点迟了，我一直盯着这段代码太久了。我终于写了一个简短的测试程序来测试哈希并通过引用传递它们，它的行为并不像我期望的那样。我确信有一些非常简单的东西我很想念......有人能发现它吗？

#!/usr/bin/perl
use Data::Dumper;

my %hash = ();
print "BEFORE ADDING KEYS\n";
print Dumper (\%hash);
test (\%hash, 10);
print "AFTER ADDING KEYS\n";
print Dumper (\%hash);

sub test {

 my %hash = %{$_[0]};
 my $number = $_[1];
 if ($number == 0) { return; }

 print "BEFORE ADDING KEY HASH_REF=$_[0] NUMBER=$number\n";
 print Dumper (\%hash);
 $hash{$number} = $number;
 print "AFTER ADDING KEY\n";
 print Dumper (\%hash);    
 test ($_[0], $number - 1);
}

我希望这段代码将数字10到1添加到我的哈希中，但是一旦测试例程完成递归，哈希就会被删除并且不包含任何内容。我错过了什么？这是输出：

BEFORE ADDING KEYS
$VAR1 = {};
BEFORE ADDING KEY HASH_REF=HASH(0xdb82fd0) NUMBER=10
$VAR1 = {};
AFTER ADDING KEY
$VAR1 = {
          '10' => 10
        };
BEFORE ADDING KEY HASH_REF=HASH(0xdb82fd0) NUMBER=9
$VAR1 = {};
AFTER ADDING KEY
$VAR1 = {
          '9' => 9
        };

...

BEFORE ADDING KEY HASH_REF=HASH(0xdb82fd0) NUMBER=1
$VAR1 = {};
AFTER ADDING KEY
$VAR1 = {
          '1' => 1
        };
AFTER ADDING KEYS
$VAR1 = {};

更改此行：

$hash{$number} = $number;

为：

$_[0]->{$number} = $number;

让一切按预期工作。为什么第一个语句会修改一个新的本地％哈希，当我希望这个本地％哈希指向我最初传递给例程的相同的去引用哈希引用时？

Answer 1

一切都按预期运作。您在test子中的第一个语句会生成传递哈希的副本：

 my %hash = %{$_[0]};

要改变传递的哈希值，您应该使用hashref，如：

 my $hashref= $_[0];

 $hashref->{key} = 'val';

这种方法会改变原始哈希值，而不是它的副本。

perl传递哈希引用不符合预期

1 个答案: