将哈希键转换为数组

Question

我有一个带有以下值的哈希值(%hash)

test0  something1
test1  something
test2  something

我需要使用以下元素从键构建数组

@test_array = part0_0 part1_0 part2_0

基本上,我必须使用testx(key)并将其替换为partx_0

当然,我可以像下面这样轻松创建数组

my @test_array;

foreach my $keys (keys %hash) {
    push(@test_array,$keys);
}

我会的

@test_array = test0 test1 test2

但我想要的是得到part0_0而不是test0,part1_0而不是test1和part2_0而不是test2

Answer 1

为什么不做更容易

my @array = ( keys %hash )

Answer 2

看起来是使用非破坏性/r选项进行替换的好时机.

my @array = map s/^test(\d+)/part${1}_0/r, keys %a;

对于不支持的perl版本/r:

my @array = map { s/^test(\d+)/part${1}_0/; $_ } keys %a: