我想这个问题可能会引起一些不太重要的问题,但我一直想知道为什么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中.
或者可能不是.您可以在@L_403_1@上找到对话.
顺便说一句,以下内容的意图非常明显：
my $x = <> // return;
无论如何,隐藏线路末端的回报是一种不好的做法.替代方案是：
( my $x = <> ) // return;
defined( my $x = <> ) or return;
my $x = <>; $x // return;
my $x = <>; return if !defined($x);
那些与常用的5.8兼容.
>那些从事Perl工作的人.