使用单个哈希的副本填充perl哈希数组

#!/usr/bin/perl

# 定义一个哈希数组
my %hash = (
    key1 => "value1",
    key2 => "value2",
    key3 => "value3"
);

# 创建一个新的哈希数组，并将原始哈希数组的副本复制到新的哈希数组中
my %new_hash = %hash;

# 打印新的哈希数组
foreach my $key (keys %new_hash) {
    print "$key => $new_hash{$key}\n";
}

#!/usr/bin/perl

# 定义一个哈希数组
my %hash = (
    key1 => "value1",
    key2 => "value2",
    key3 => "value3"
);

# 创建一个新的哈希数组，并将原始哈希数组的单个哈希的副本复制到新的哈希数组中
my %new_hash = (%hash{qw(key1)});

# 打印新的哈希数组
foreach my $key (keys %new_hash) {
    print "$key => $new_hash{$key}\n";
}