调试Perl循环：解决向引用数组存储数据时元素重复问题

问题代码 #

foreach my $l(@inarray){
    chop($l);
    if($flag == 0 && $l =~ /^start /){
        my @array01 = split(/\(/,$l);
        $module_name = $array01[0];
        my @array03 = split(/\s/,$array01[-1]);
        $local_data{"module_name"} = $module_name;
        $local_data{"variables"} = \@array03;   
        $flag = 1;
    }
    if($flag == 1 && $l =~ /input/){
        chop($l);
        $l =~ s/input\s+//g;
        my @array01 = split(/,\s/,$l);
        $local_data->{"input"} = \@array01;
    }

    if($flag == 1 && $l =~ /output/){
        chop($l);
        $l =~ s/output\s+//g;
        my @array01 = split(/,\s/,$l);
        $local_data->{"output"} = \@array01;
    }
    if($flag == 1 && $l =~ /end/){
        push @$infos, $local_data;
        $flag = 0;      
    }
     
}

问题原因 #

核心问题是**%local_data是循环外部声明的哈希（或是未用my声明的全局哈希）**。每次处理新模块时，你只是修改这个哈希内的键值对，而push @$infos, $local_data实际是把该哈希的引用添加到数组中。循环结束后，@$infos里的所有元素都指向同一个哈希实例，最终显示的自然都是最后一次修改后的内容。

解决方法 #

每次匹配到^start 开始处理新模块时，创建一个全新的哈希实例，确保每个模块的数据都存储在独立的哈希中。推荐使用哈希引用的方式实现：

foreach my $l(@inarray){
    chop($l);
    if($flag == 0 && $l =~ /^start /){
        # 每次处理新模块时创建全新的哈希引用
        my $local_data = {};
        my @array01 = split(/\(/,$l);
        my $module_name = $array01[0];
        my @array03 = split(/\s/,$array01[-1]);
        $local_data->{"module_name"} = $module_name;
        $local_data->{"variables"} = \@array03;   
        $flag = 1;
    }
    if($flag == 1 && $l =~ /input/){
        chop($l);
        $l =~ s/input\s+//g;
        my @array01 = split(/,\s/,$l);
        $local_data->{"input"} = \@array01;
    }

    if($flag == 1 && $l =~ /output/){
        chop($l);
        $l =~ s/output\s+//g;
        my @array01 = split(/,\s/,$l);
        $local_data->{"output"} = \@array01;
    }
    if($flag == 1 && $l =~ /end/){
        push @$infos, $local_data;
        $flag = 0;      
    }
     
}

修改后，每次处理新模块都会生成独立的哈希引用，@$infos中的每个元素指向不同的哈希实例，就能得到各个模块的独立数据。

内容的提问来源于stack exchange，提问作者Knight