perl 结合 map 和每个

Question

我只是想知道这是否可能:

use Modern::Perl;

my @list = ('a' .. 'j');

map { func($_) } each(@list);

sub func {
  my ($index, $value) = @_;
  say "$index => $value";
}

Answer 1

不，你不能，因为 each 每次被调用时都会返回一个键/值对。您只调用它一次，因此它会将 (0, $list[0]) 传递给 map，并且将为每个值调用一次子例程。

如果你想用你可以写的每个键/值对调用func

map { func($_, $list[$_]) } keys @list;

但这是对 map 的误用，因为它用于将一个列表映射到另一个列表。你应该像这样使用 for

func($_, $list[$_]) for keys @list;

你也可以像这样使用each

my ($i, $v);
func($i, $v) while ($i, $v) = each @list;