使用映射的 Perl 数组和哈希操作

Question

我有以下测试代码

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);

Answer 1

$extra正在通过map并且由于哈希中没有带有键 test 的条目值为 undef .在 map 周围加上括号强制解析:

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