的Perl：差異代碼

Question

我新的Perl和我試圖找到兩個片段之間的區別：

$string && $string eq 'foo' 
$string eq 'foo' 

我試了幾個條件，但我無法找到的差異。有人可以幫助我找出差異嗎？

Answer 1

一個區別是，在第二線可能會產生一個警告信息（使用use warnings;時）如果變量從未被分配一個值：

use warnings; 
use strict; 

my $string; 

if ($string && $string eq 'foo') { 
    print "true1\n"; 
} 
else { 
    print "false1\n"; 
} 

if ($string eq 'foo') { # Get warning 
    print "true2\n"; 
} 
else { 
    print "false2\n"; 
} 

警告消息是：