Perl的触发器运算符有bug吗？它有全局状态,如何重置它？

发布时间：2020-12-15 21:24:36 所属栏目：大数据来源：网络整理

导读：我很失望。 OK，所以这可能是我发现的最有趣的 Perl错误。即使今天我正在学习关于Perl的新东西。本质上，触发器运算符，它返回假，直到左手边返回真，然后真直到右手边返回假保持全局状态(或这是我假设)。我可以重置它(也许这将是一个很好的补充Perl 4-esqu

我很失望。 OK，所以这可能是我发现的最有趣的 Perl错误。即使今天我正在学习关于Perl的新东西。本质上，触发器运算符，它返回假，直到左手边返回真，然后真直到右手边返回假保持全局状态(或这是我假设)。

我可以重置它(也许这将是一个很好的补充Perl 4-esque几乎没有使用reset())？或者，没有办法安全地使用这个操作符？

我也不看这个(全局上下文位)在perldoc perlop的任何地方记录这是一个错误？

码

use feature ':5.10';
use strict;
use warnings;

sub search {
    my $arr = shift;
    grep { !( /start/ .. /never_exist/ ) } @$arr;
}

my @foo = qw/foo bar start baz end quz quz/;
my @bar = qw/foo bar start baz end quz quz/;

say 'first shot - foo';
say for search @foo;

say 'second shot - bar';
say for search @bar;

扰流板

$ perl test.pl
first shot
foo
bar
second shot

解决方法

有人能澄清文件的问题吗？清楚地表明：

Each ".." operator maintains its own boolean state.

“每个”意味着什么，有一些模糊，但我不认为文件将很好地服务于一个复杂的解释。

注意Perl的其他迭代器(每个或标量上下文glob)可能导致相同的问题。因为每个的状态都绑定到一个特定的哈希，而不是特定的代码位，每个可以通过调用(即使在void上下文中)哈希上的键来重置。但对于glob或..，除了通过调用迭代器，直到它被重置，没有重置机制。示例glob错误：

sub globme {
    print "globbing $_[0]:n";
    print "got: ".glob("{$_[0]}")."n" for 1..2;
}
globme("a,b,c");
globme("d,e,f");
__END__
globbing a,c:
got: a
got: b
globbing d,f:
got: c
Use of uninitialized value in concatenation (.) or string at - line 3.
got:

对于过于好奇，这里有一些例子，在源代码是一个不同的..操作符：

单独关闭：

sub make_closure {
    my $x;
    return sub {
        $x if 0;  # Look,ma,I'm a closure
        scalar( $^O..!$^O ); # handy values of true..false that don't trigger ..'s implicit comparison to $.
    }
}
print make_closure()->(),make_closure()->();
__END__
11

注释掉$ x if 0行，看看非闭包有所有“副本”共享的单个..操作，输出为12。

主题：

use threads;
sub coderef { sub { scalar( $^O..!$^O ) } }
coderef()->();
print threads->create( coderef() )->join(),threads->create( coderef() )->join();
__END__
22

线程代码从线程创建之前的任何状态开始，但是线程中的状态的改变与其他任何事物的隔离。

递归：

sub flopme {
    my $recurse = $_[0];
    flopme($recurse-1) if $recurse;
    print " "x$recurse,scalar( $^O..!$^O ),"n";
    flopme($recurse-1) if $recurse;
}
flopme(2)
__END__
1
 1
2
  1
3
 2
4

每个递归深度是一个单独的..运算符。

（编辑：李大同）

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