在下面的代码中，从
blog post by Alias，我注意到使用双惊叹号!!。我想知道这是什么意思，我在未来可以去找到解释Perl语法如此。 (是的，我已经在
perlsyn搜索!!)。
- package Foo;
- use vars qw{$DEBUG};
- BEGIN {
- $DEBUG = 0 unless defined $DEBUG;
- }
- use constant DEBUG => !! $DEBUG;
- sub foo {
- debug('In sub foo') if DEBUG;
- ...
- }
更新
感谢您的所有答案。
这里是别人我只是发现是相关的The List Squash Operator x!!
解决方法
这只是两个！布尔不是运算符彼此相邻。
使用这个成语的原因是确保你收到一个1或0.实际上，它返回一个空的字符串，numifys为0.它通常只用于数字或布尔上下文。
你通常会在Code Golf赛事中看到这个，因为它比使用三元组更短？ ：运算符为1和0($ test？1：0)。
- !! undef == 0
- !! 0 == 0
- !! 1 == 1
- !! $obj == 1
- !! 100 == 1
- undef ? 1 : 0 == 0
- 0 ? 1 : 0 == 0
- 1 ? 1 : 0 == 1
- $obj ? 1 : 0 == 1
- 100 ? 1 : 0 == 1