perl - 当你在同一个 Perl 语句中有一个条件运算符和一个后缀条件时会发生什么？

Question

任何人都可以解释这条线是如何工作的吗？

return $y < 0 ? - pip2 : pip2 if $x == 0;

如果 $y <0它返回 -pip2 ，但是当 $y >= 0 时它返回什么和 $x != 0 ?

这一行来自这个函数:

sub _atan {
    my( $y, $x ) = @_;

    return $y < 0 ? - pip2 : pip2 if $x == 0;
    return atan( $y / $x );
}

Answer 1

后缀“if”表示只在条件为真时才执行return语句，所以

return $y < 0 ? - pip2 : pip2 if $x == 0;

是相同的

if ($x == 0)
{
    return $y < 0 ? - pip2 : pip2 ;
}

如果您对 ?: 三元运算符感到困惑，也可以将其重写为常规 if 语句，以产生此

if ($x == 0)
{
    if ($y<0)
    {
        return -pip2;
    }
    else
    {
        return pip2;
    }
}