Perl向哈希push数组操作无效，无法生成预期键值对如何解决

• 哈希键在Perl中仅支持标量类型，将数组@abc直接放入哈希键的大括号{}中时，会触发标量上下文，数组在标量上下文下的返回值是元素总长度，这就是你得到键4的核心原因。
• 原代码中使用push的写法是将对应哈希键的值作为数组引用，往数组内追加元素，和「将@abc的每个元素作为键、对应位置@xyz的元素作为值」的需求逻辑完全不匹配。

方案1：哈希切片赋值（最简洁） #

直接使用Perl的哈希切片特性，一行即可完成赋值，代码如下：

use strict;
use warnings;
use Data::Dumper;

my %hash;
my @abc = ('1234', '2345', '3456', '4567');
my @xyz = ('1234.txt', '2345.txt', '3456.txt', '4567.txt');

# 哈希切片赋值，按索引一一对应赋值
@hash{@abc} = @xyz;

print Dumper(\%hash);

注意：打印哈希时传入哈希的引用\%hash，Dumper的输出结构会更清晰。

运行输出如下：

$VAR1 = {
          '1234' => '1234.txt',
          '2345' => '2345.txt',
          '3456' => '3456.txt',
          '4567' => '4567.txt'
        };

方案2：循环遍历赋值（适合需要额外逻辑的场景） #

如果赋值过程中需要做校验、转换等额外处理，可以通过遍历数组索引实现：

use strict;
use warnings;
use Data::Dumper;

my %hash;
my @abc = ('1234', '2345', '3456', '4567');
my @xyz = ('1234.txt', '2345.txt', '3456.txt', '4567.txt');

for my $i (0..$#abc) {
    # 确保@xyz对应索引有值再赋值，避免出现未定义值
    $hash{$abc[$i]} = $xyz[$i] if exists $xyz[$i];
}

print Dumper(\%hash);

运行输出和方案1完全一致。

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