Perl中map结合双引号字符串与胖逗号的语法错误问题

• 问题根源：Perl对map { ... }的两种语法解析优先级
  Perl的map支持两种写法：map BLOCK LIST（代码块模式）和map EXPR, LIST（表达式模式）。当{ ... }紧跟在map后时，解析器会优先尝试将其解析为哈希引用表达式（属于EXPR的一种），只有当无法解析为哈希引用时，才会将其视为代码块。

• map { "/$_" => 1 } qw(foo bar baz);报错的原因
  解析器看到{ "/$_" => 1 }时，会优先尝试解析为哈希引用。此时，字符串开头的/会被误判为正则匹配操作符m/的起始，后续的双引号"就成了多余的语法元素，直接触发语法错误。

• map { '/' . $_ => 1 } qw(foo bar baz);正常的原因
  当块内以'/' . $_开头时，这是一个二元字符串拼接表达式，无法被解析为哈希引用的合法起始（哈希引用的键起始不能是二元操作符）。解析器因此放弃哈希引用的解析逻辑，转而按代码块模式处理，此时$_正确绑定为map的迭代变量，逻辑正常运行。

• 单独{ "/$_" => 1 };正常的原因
  在单独语句的上下文里，Perl会将{ ... }视为代码块而非哈希引用表达式。块内的"/$_" => 1只是一个普通表达式（=>是逗号的语法糖），不会触发哈希引用的解析逻辑，因此没有语法问题。

内容的提问来源于stack exchange，提问作者Guido Flohr