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

(添加额外的行来清理帖子...)

我如何修改它以防止破坏原始条目...真实代码包含更多子散列的键。

Answer 1

你的问题在这里

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

这只会复制一个引用。如果您想要实际副本，则需要克隆您的数据。

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