为什么在Perl中没有低优先级的//？

Question

我想这个问题可能会引起一些不太重要的问题,但我一直想知道为什么在Perl中没有低优先级的定义或运算符.我想有一个理由,因为perlop明确地提到了这个事实.

我认为它有用的一个例子就是这样一个子例程:

sub input_many_data {
    my $x = <> // return;
    do_some_processing_with($x);
    my $y = <> // return;
    do_some_processing_with($y);
    return ( $x, $y );
}

while (1) {
    my ( $x, $y ) = &input_many_data or last;
    do_something_with( $x, $y );
}

它确实可以使用$x = (<> // return),但目的会更加明显,并且代码更具可读性且不易出错,具有类似的功能($x = <>) dor return.

Answer 1

我从来没有真正理解为什么有些搬运工^[1]遇到了问题.我觉得有一个缺乏对如何称呼它共识(definedor,dor,err),但现在回想起来,我会倾向于认为真正的原因是缺乏舒适use feature.请记住,use feature并//在同一版本中添加到Perl.

或者可能不是.您可以在p5搬运工邮件列表中找到对话.

顺便说一句,以下内容的意图非常明显:

my $x = <>
   // return;

return无论如何,隐藏一条线末端是一种不好的做法.替代方案是:

( my $x = <> )
   // return;

defined( my $x = <> )
   or return;

my $x = <>;
$x // return;

my $x = <>;
return if !defined($x);

那些与常用的5.8兼容.

1. 那些在Perl上工作的人.