use Data::Dumper;

my $hash = {
            foo => 'bar',os  => 'linux'
           };

my @keys = qw (foo os);

my $extra = 'test';

my @final_array = (map {$hash->{$_}} @keys,$extra);

print Dumper \@final_array;

输出是

$VAR1 = [
          'bar','linux',undef
        ];

难道元素不应该是“bar,linux,test”吗？为什么最后一个元素未定义,如何将元素插入@final_array？我知道我可以使用push函数但是有没有办法将它插入到与使用map命令相同的行上？

基本上,操作数组意味着在实际脚本中的sql命令中使用,我想避免在此之前使用额外的变量,而是执行以下操作：

$sql->execute(map {$hash->{$_}} @keys,$extra);