为什么在`map` BLOCK中没有插值？

Question

这会在Perl v5.20中引发错误:

use strict;
use warnings;
my @a = (2,3,9);
my %b = map { "number $_" => 2*$_ } @a;

错误:

syntax error at a.pl line 4, near "} @a"
Execution of a.pl aborted due to compilation errors.

这不是:

use strict;
use warnings;
my @a = (2,3,9);
my %b = map { "number ".$_ => 2*$_ } @a;

为什么$_在mapBLOCK 中不允许插值？

Answer 1

map 有两种语法:

map BLOCK LIST
map EXPR, LIST

Perl必须确定您使用的语法.问题是,既BLOCK和EXPR可启动{,因为{ ... }可散列的构造函数(例如my $h = { a => 1, b => 2 };).

这意味着Perl的语法含糊不清.当遇到歧义时,perl在向前看一点之后猜测你的意思.在你的情况下,它猜错了.它猜测{是哈希构造函数的开始而不是块的开始.您需要明确消除歧义.

以下是消除块和散列构造函数歧义的便捷方法:

+{ ... }   # Not a valid block, so must be a hash constructor.
{; ... }   # Perl looks head, and sees that this must be a block.

所以在你的情况下,你可以使用

my %b = map {; "number $_" => 2*$_ } @a;