Как использовать оператор && в Perl

Question

Я новичок в Perl и пытаюсь использовать следующий код для выполнения оператора печати, если он удовлетворяет двум условиям.

if ($ARGV[0] eq "test") && ($ARGV[1] eq "test1"){ 
print"test and test1 Selected\n" 
} 

Как настроить код так, чтобы он не выдавал никаких ошибок?

Answer 1

Синтаксис if утверждения:

if (CONDITION) BLOCK 

так, если ваше состояние

($ARGV[0] eq "test") && ($ARGV[1] eq "test1") 

, то вы бы использовать

if (($ARGV[0] eq "test") && ($ARGV[1] eq "test1")) { ... } 

Тем не менее, эти круглые скобки не являются потому что && предназначен для использования именно так.

if ($ARGV[0] eq "test" && $ARGV[1] eq "test1") { ... } 

---

Я не знаю, почему два других предложил маскировка && с низшим приоритетом and. Символы причины используются для разделителей (например, ,, ;, { ... } и т. Д.), И это связано с тем, что упрощает поиск границ в коде с одного взгляда, улучшая читаемость.

Таким образом, наиболее часто используемое соглашение на сегодняшний день является использование or и and для управления потоком (or die, or next, or return и т.д.), а также использовать || и && в выражениях (как вы это делали).

Answer 2

Вы можете поставить эти условия внутри из-if.

if (($ARGV[0] eq "test") && ($ARGV[1] eq "test1")) { 
    print"test and test1 Selected\n" 
} 

(Так что я сделать ненужное дополнение с грубым описанием о логических операторов конъюнкции были некоторые запутанные проблемы и вызвало критику, что я удалил его полностью.)

Для вашего вопроса здесь, я думаю, что просто гнездование использование кронштейна пункт.