perl表達式的含義爲聲明$ a &&= ;

Question

最近我在博客上遇到了這個Perl表達式，無法抓住它的目的。

my $success = 1; 
    $success &&= $insert_handle->execute($first, $last, $department); 
    $success &&= $update_handle->execute($department); 

Answer 1

EXPR1 &&= EXPR2; 

是短期的

EXPR1 = EXPR1 && EXPR2; 

（EXCE PT是EXPR1只計算一次*）

所提供的代碼

my $success = 1; 
$success &&= $insert_handle->execute($first, $last, $department); 
$success &&= $update_handle->execute($department); 

也被寫爲：

my $success = 0; 
if ($insert_handle->execute($first, $last, $department)) { 
    if ($update_handle->execute($department)) { 
     $success = 1; 
    } 
} 

或

my $success = $insert_handle->execute($first, $last, $department) 
      && $update_handle->execute($department); 

---

* —如果EXPR1有副作用，這很重要，如果它是一個神奇的變量或左值子元素，這很可能發生。

my $x = 3;  # Prints: 
print("$x\n"); # 3 

sub x() :lvalue { print("x\n"); $x } 

x &&= 4;  # x 
print("$x\n"); # 4 

x = x && 5;  # x x 
print("$x\n"); # 5 

Answer 2

可能是： -

my $success = 1; 
$success = $success && $insert_handle->execute($first, $last, $department); 
$success = $success && $update_handle->execute($department); 

類似： -

a += b 
// is equivalent to 
a = a + b 

Answer 3

這是一個漫長的說法。

my $success = 
    $insert_handle->execute($first, $last, $department) 
    && $update_handle->execute($department);