Perl中的表示法 - || =运算符是做什么的？

Question

我碰巧遇到了一个带有以下语法的perl代码.

sub new{
my ($class, $value)=@_;
$lobby ||= bless{
e=>undef;},$class
}

语法||=是什么意思？

我没有把它作为一个关键词,我在perldoc中找不到类似的语法.

Answer 1

你会在perlop中找到运算符的含义.

它现在做了什么:$lhs ||= $rhs相当于$lhs = $lhs || $rhs.这意味着在Perlish意义上将if $rhs赋值为false.这可以是如果是,如果它是一个空字符串,一个数字,是0.$lhs$lhs$lhsundef

Answer 2

EXPR1 ||= EXPR2;

是相同的

EXPR1 = EXPR1 || EXPR2;

除了EXPR1只评估一次.这是设置默认值的便捷方式.例如:

sub foo {
   my %args = @_;
   $args{host} ||= "localhost";  # Provide a default host name if none provided.
   ...
}

在您的情况下,您似乎有一个单例构造函数.第一次new调用时,它会创建一个新对象.在后续调用中,它将返回先前创建的对象.