Neden "x = a veya b", Perl'de çalışmıyor? Diğer dillerde

Question

Ben

testvar = onecondition OR anothercondition; 

ya koşul ise gerçek olamayacak TestVar olması yazardı. Ama Perl'de bu beklendiği gibi çalışmıyor.

İçerik değişkeninin boş olduğu veya belirli bir normal ifadeyle eşleştiği bir durumu kontrol etmek istiyorum. Bu örnek program var:

Ben true evals if() ile test "1" ya da bir şey içermesi $ res beklerdik

my $contents = "abcdefg\n"; 
my $criticalRegEx1 = qr/bcd/; 
my $cond1 = ($contents eq ""); 
my $cond2 = ($contents =~ $criticalRegEx1); 
my $res = $cond1 or $cond2; 
if($res) {print "One or the other is true.\n";} 

. Ama boş dizeyi içerir.

Bunu Perl'de nasıl yapabilirim? İfade etrafında

Answer 1

koyun parantez

my $res = ($cond1 or $cond2); 

veya daha yüksek önceliğe || operatörünü kullanmak,

kodunuzu (my $res = $cond1) or $cond2;, daha doğrusu olarak Perlde tarafından yorumlanır olarak

my $res = $cond1 || $cond2; 

,

perl -MO=Deparse -e '$res = $cond1 or $cond2;' 
$cond2 unless $res = $cond1; 

use warnings; kullanıyorduysanız olur da, $cond2 ilgili

Useless use of a variable in void context 

Answer 2

@jackthehipster uyarmak: Sadece $cond1 or $cond2 için parantez koymak doğru her şeyi yaptık kod aşağıda gösterildiği gibi:

my $contents = "abcdefg\n"; 
my $criticalRegEx1 = qr/bcd/; 
my $cond1 = ($contents eq ""); 
my $cond2 = ($contents =~ $criticalRegEx1); 
my $res = ($cond1 or $cond2); 
if($res) {print "One or the other is true.\n";}