perl - Perl - 具有修改数据的新哈希项，来自另一个条目的馈线哈希，破坏了第一个条目

Question

我正在尝试添加一个哈希条目和一个新的、更新的哈希条目，它们源自相同的馈线哈希和原始数据。

但是，当我更新第二个条目的数据时......它破坏了原始条目......即使该数据没有改变......它只能因为两者都是从同一个馈线哈希条目分配而改变的。

这是我为测试此问题而创建的测试程序的示例子例程 - 它使用 Tk 作为输出...

sub hash_issue {
    my %feeder = ();
    my %global = ();
    my %personal = ();

    my $key = 'John';
    my $new_key = 'Johnathan';

    $feeder{$key}{First_Name} = 'John';
    $feeder{$key}{Last_Name} = '';
    $feeder{$key}{Address} = '123 Main Street';
    $feeder{$key}{City} = 'Springfield';
    $feeder{$key}{State} = '';
    $feeder{$key}{Zip} = '';
    $feeder{$key}{Is_Registered} = 0;
    
    $global{$key} = $feeder{$key};
    $main->Output->Append("First Name = $global{$key}{First_Name}  Last Name = $global{$key}{Last_Name}  Address = $global{$key}{Address}  Registered = $global{$key}{Is_Registered}\r\n");
    $global{$new_key} = $feeder{$key};
    $global{$new_key}{First_Name} = $new_key;
    $global{$new_key}{Is_Registered} = 1;
    $main->Output->Append("First Name = $global{$key}{First_Name}  Last Name = $global{$key}{Last_Name}  Address = $global{$key}{Address}  Registered = $global{$key}{Is_Registered}\r\n");
    $main->Output->Append("First Name = $global{$new_key}{First_Name}  Last Name = $global{$new_key}{Last_Name}  Address = $global{$new_key}{Address}  Registered = $global{$new_key}{Is_Registered}\r\n");
}

这是输出...

名字 = John 姓氏 = 地址 = 123 Main Street Registered = 0

名字 = Johnathan 姓氏 = 地址 = 123 Main Street Registered = 1

名字 = Johnathan 姓氏 = 地址 = 123 Main Street Registered = 1

（为清理帖子添加了额外的行...）

我怎样才能修改它以防止破坏原始条目......真正的代码包含更多子哈希的密钥。

标签： perlhash

Answer 1

你的问题在这里

$global{$new_key} = $feeder{$key};

这仅复制参考。如果你想要一个实际的副本，你需要克隆你的数据。

use Clone qw( clone );
$global{$new_key} = clone( $feeder{$key} );