为什么在Perl中没有低优先级等同于//？

发布时间：2020-12-16 06:23:28 所属栏目：大数据来源：网络整理

导读：我想这个问题可能会引起一些不太重要的问题,但我一直想知道为什么Perl中没有低优先级的定义或运算符.我认为有一个原因,因为 perlop明确提到了这个事实. 我认为它有用的一个例子就是这样一个子例程： sub input_many_data { my $x = // return; do_some_proce

我想这个问题可能会引起一些不太重要的问题,但我一直想知道为什么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返回.

解决方法

我从来没有真正理解为什么有些搬运工[1]遇到了问题.我认为关于该怎么称呼它(定义者,多尔,错误)缺乏共识,但回想起来,我很想相信真正的原因是使用功能缺乏舒适感.请记住,在同一版本中,使用功能和//已添加到Perl中.

或者可能不是.您可以在p5 porters mailing list上找到对话.

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

my $x = <>
   // return;

无论如何,隐藏线路末端的回报是一种不好的做法.替代方案是：

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

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

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

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

那些与常用的5.8兼容.

>那些从事Perl工作的人.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!