映射:我们可以用某些东西代替条件运算符

Question

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

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

有没有办法我们可以说:

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

或者我们必须为每个条目都有"规则",即否则返回()？

Answer 1

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

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

使用if而不是条件运算符

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

地图表达式不可能不返回值.它返回最后评估的表达式.如果你删除该else子句,那个表达式就是比较,所以它就像你做的那样

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

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

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

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

Answer 2

为此,map块必须返回不需要的项目的空列表.虽然您可以重写代码grep,

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

这失去了很多优雅.

如果我们没有指定else返回值,if似乎隐式传递了false值:

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).