perl - 如何在Perl中的嵌套列表运算符中区分$ _？

Question

使用嵌套数组操作实现算法通常很有用。例如，要查找列表中以每个给定字符开头的单词数，您可以在Python中执行以下操作：

>>> a = ["foo","bar","baz"]
>>> map(lambda c: len(filter(lambda w: w.startswith(c), a)), ('a','b','c','d','e','f'))
[0, 2, 0, 0, 0, 1]

在表达式 w.startswith(c)中，区分两个循环迭代变量 w和 c很简单，因为它们具有不同的名称。

在Perl中，我想做这样的事情：

@a = ("foo", "bar", "baz");
map length(grep $_ =~ /^$_/, @a), ('a','b','c','d','e','f')

但是，明显的问题是 $_仅引用最里面的 grep迭代变量（适合左侧的 $_），而不是外面的 map变量（适合 /^$_/ ）。在Perl中避免这种问题的惯用方式是什么？

Answer 1

只需分配给局部变量：

@a = qw(foo bar baz);
map {my $ch = $_; scalar grep $_ =~ /^$ch/, @a} qw(a b c d e f)