这条语句做什么：（）;

Question

我已经看到了这个样子Perl语句：

() unless $some_var; 

那是什么旨在实现？

Answer 1

if当且仅当条件为真时执行语句。

unless是相反的，它执行语句，除非条件为真（即，如果条件为假）。

更多详情参见：http://perldoc.perl.org/perlsyn.html

（）仅仅是空列表，所以这段代码被提供的情况下空单的默认值，其中$ some_var是假的（可能是因为$ some_var是不确定的）。

Answer 2

如果$ some_var为false，它将返回空列表。

如果我写 @s =() unless $some_var;，如果$some_var为假，我清空@s。

这是我能想到的唯一方法。

Answer 3

它可能用于隐式返回，如果$some_var评估为true，则返回它，否则返回空列表。

Answer 4

本身，这个表达式是一个nop。但是如果没有显式的返回语句并且这个值碰巧是块中的最后一个东西，那么值（空列表）可以从子例程或do（）块自动返回。

Answer 5

这里有一些事情正在进行，但最重要的是这种线通常会显示为执行块的最后一行[1]。在这种情况下，块的值是最后执行的语句的值[2]。现在，包含unless的语句具有左侧的值，如果右侧为true，并且右侧的值为其他值，则这是一种说法“块的值为$some_var if $some_var碰巧是真的，否则为()“。

()仅仅是空列表，所以这段代码被提供的情况下空单，其中$some_var是假的默认值（可能是因为$some_var是不确定的。）

更常用来达到同样的效果与or，在同等

$some_var or(); 

放在一起，我们可以看到这些情况：

use strict; 
use warnings; 

my @x = do {() unless 0 }; 
my @y = do {() unless 5 }; 

print "\@x: <@x>\n\@y: <@y>\n"; 

@x是空阵列，因为0为false，而@y是包含5的数组，因为5为true。

除了作为块的最后一个语句之外的任何地方，() unless $some_var;是无操作的。但是，如果$some_var未另外提及，它确实会抑制once警告。

[1]：这是由eval或do评估或提供给块（例如）map或grep，或作为子程序调用块。

[2]：“最后执行的语句的值”是一个奇怪的短语;大多数只有表达式才有价值但是因为Perl包含了一个概念，即在没有显式返回的情况下，块的值是最后一个语句的值，Perl需要这个奇怪的短语。

Answer 6

解开了谜底：

GetOptions(
    "-interactive", 
    "-request_file=s", 
) or usage(); 

usage unless ($opt_request_file); 
() unless ($opt_interactive); 

看来 '（）;'是误导性的 - 它什么都不做，目的只是提一下$ opt_interactive变量......作为一种压制perl警告'Name'$ var“只使用一次”的方法。

感谢所有试图揭露光芒的人！