我的哈希数组：
@cur = [
{
'A' => '9872','B' => '1111'
},{
'A' => '9871','B' => '1111'
}
];
预期结果：
@curnew = ('9872','9871');
解决方法
首先,您的数组必须定义为
my @cur = (
{
'A' => '9872','B' => '1111'
},{
'A' => '9871','B' => '1111'
}
);
注意括号
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dump qw(dump);
my @cur = (
{
'A' => '9872','B' => '1111'
}
);
my @new;
foreach(@cur){
push @new,$_->{A};
}
dump @new;