Perl - 分配散列 - 为什么分配的变量被更改？

Question

我有以下问题： 我有一个perl程序，它正在提取csv文件，读取它们并输出结果。 有关csv结构的信息是在上述档案中提供的XML文件中。 在旧版本我已阅读这些XML文件CSV文件和everithing的每一行程序的精细工作：

...; 
foreach $b (@gz_files) 
{ 
    if (index($b, 'condition1') >= 0 
    || index($b, 'condition2') >= 0 
    || index($b, 'condition3') >= 0) 
    { 
    $lt = localtime; 
    open (my $outputfile, '>>'.'/path_to_output/'.$dir_file.'.tmp') 
     || die print $lfh "$lt -  /path_to_output/$dir_file\.tmp - $!\n"; 
    if ($b ne "") 
    { 
     # this is the procedure, which reads xml_files 
     %cv_tmp = eventstype::initialize($complex_xml_path, $rating_input_xml_path); 
     @EXPORT=qw(%cv_tmp); 
...; 

该代码添加从XML文件的结构为％cv_tmp变量。 在CSV文件的foreach行之后，我将％cv_tmp的值赋给进一步操作的％complex_vals。

... 
%complex_vals=%mainfile::cv_tmp; 
... 

但这种操纵我注意到％cv_tmp更改后 - 这很奇怪，因为这是分配的右侧。 我不想在每个CSV行上更改％cv_tmp。 对不起，但我绝对是新手。 预先感谢您。

Answer 1

你也许有类似

my %h1; 
$h1{foo}{bar} = 123; 

my %h2 = %h1; 
$h2{foo}{bar} = 456; 

print "$h1{foo}{bar}\n"; # 456 

如果是这样，你不改变%h1或%h2;您正在更改由$h1{foo}和$h2{foo}引用的（匿名）散列。您需要复制引用的散列（而不是引用散列）来解决此问题。

use Storable qw(dclone); 

my %h1; 
$h1{foo}{bar} = 123; 

my %h2 = %{ dclone(\%h1) }; 
$h2{foo}{bar} = 456; 

print "$h1{foo}{bar}\n"; # 123