Question

如果我将哈希引用定义为：

my %hash1=(
    "a" => 1,
    "b" => 2,
    "c" => {
               "d" => 4,
               "e" => 5
           }
    );

my $r_hash1 = \%hash1;

将使用：

$r_hash1->{c}=();

要清除％hash1 {c}中的键以便重复使用吗？

如果是这样，我也想知道我是否有：

my %hash1=(
    "a" => 1,
    "b" => 2
);

my %hash2=(
    "d" => 4,
    "e" => 5
);

my $r_hash1 = \%hash1;
my $r_hash2 = \%hash2;

$r_hash1->{"c"} = $r_hash2;

是否使用：

$r_hash1->{c}=();

释放％hash2使用的内存以供重用，因为它肯定必须在哈希上下文中使用：

%$r_hash1->{c}

但这会在哈希上下文中查看$ r_hash1，而不是$ r_hash1-＆gt; {c}的内容。

感谢。

Answer 1

如果要清空嵌套哈希（但仍然存在哈希），则需要首先取消引用它：

%{ $r_hash1->{c} } = ( );

或者，您可以在其位置分配一个空的hashref：

$r_hash1->{c} = { };

在您的第二个示例中，如果您设置$r_hash1->{c} = $r_hash2，然后使用%{ $r_hash1->{c} } = ( )清除它，%hash2 中的内容将清除。这是因为您要取消引用$r_hash1->{c}，这是$r_hash2的副本，它是对%hash2的引用。

这是一个简单的程序，用于演示结果：

perl -MData::Dumper -E '%h1 = ( a => 1, b => 2 ); %h2 = ( d => 4, e => 5 ); $h1{c} = \%h2; say Dumper \%h1; %{ $h1{c} } = ( ); say Dumper \%h1; say Dumper \%h2'
$VAR1 = {
          'c' => {
                   'e' => 5,
                   'd' => 4
                 },
          'a' => 1,
          'b' => 2
        };

$VAR1 = {
          'c' => {},
          'a' => 1,
          'b' => 2
        };

$VAR1 = {};

这略有缩写（我没有打扰中间命名引用。）第一个转储显示%h1及其对%h2的引用。在取消引用引用并将其清除后，第二个转储显示%h1。第三个转储在清除后显示原始%h2。

另一方面，如果您使用$h1{c} = { }，原始%h2将不受影响，因为您只是替换$h1{c}的值。它最初是%h2的引用;现在它是对新匿名哈希的引用。

Perl：清除嵌套哈希值

1 个答案: