Question

因此，我理解以下代码的作用及其工作原理，但似乎应该有不同的方法来执行此操作：

my @squares = map { $_ > 5 ? ($_ * $_) : () } @numbers;

有没有办法我们可以说：

my @squares = map { if ($_ > 5) then ($_ * $_) } @numbers;

或者我们必须对每个条目都有“规则”，即return return（）？

Answer 1

为此，map块具有以返回不需要的项目的空列表。虽然您可以使用grep，

重写代码

my @squares = map { $_**2 } grep { $_ > 5 } @numbers;

这会失去很多优雅。

如果我们没有指定else返回值，则if似乎隐式传递了错误值：

say $_+0 for map{ if($_>5){$_**2} } 3..7;
# 0
# 0
# 0
# 36
# 49

对我们来说没用。

但是我们总是可以编写一个过滤映射来返回我们的块的值，如果它是false，则写入空列表：

sub mapgrep (&@) {
  my $cb = shift;
  map { local $_ = $_; $cb->($_) || () } @_;
}

my @squares = mapgrep { $_**2 if $_ > 5 } @numbers;

然而，这依赖于副作用，如果不以其他方式处理此状态，则条件返回条件的值。我无法看到明确记录的位置。

（注意：Perl没有关键字then）。

Answer 2

amon给了你很多信息，但实际上没有回答这个问题。相当于

map { $_ > 5 ? ($_ * $_) : () }

使用if代替条件运算符是

map { if ($_ > 5) { $_ * $_ } else { () } }

地图表达式不可能不返回值。它返回最后评估的表达式。如果删除else子句，那么该表达式就是比较，所以它与你做的相似

map { if ($_ > 5) { $_ * $_ } else { $_ > 5 } }

虽然$_ > 5只执行一次，所以我猜它更接近

map { ($_ > 5) && ($_ * $_) }

所以是的，你必须对每个条目都有一个规则，因为它是不可能的。