Если в Perl оператор потерпел неудачу

Question

Здравствуйте, у меня, похоже, проблемы с этим оператором if.Логически кажется, что это работает.То, что я хочу сделать, это посмотреть, определен ли массив, определен ли он, посмотреть, совпадает ли слово.Но всякий раз, когда я ввожу слово, которое не соответствует, оно все равно вводит оператор if.

if(@split_array and ($split_array[0] eq "cd" or $split_array[0] eq "set" or $split_array[0] eq "alias" or $split_array[0] eq "last"or $split_array[0]))               
{



}

Answer 1

   ... or $split_array[0]

Эта часть означает, что если у вас есть значение в $split_array[0], которое определено, а не равно нулю или пусто, ваше if всегда будет истинным.

Попробуйте выполнить некоторое форматирование, чтобы легче было обнаружить ошибки.Как это:

if (
    @split_array and
    (
        $split[0] eq "cd" or 
        $split[0] eq "set" or 
        $split[0] eq "alias" or 
        $split[0] eq "last" or 
        $split[0]
    )
) 
{ ... }

Answer 2

Почему бы вам не попробовать:

if (@split_array and $split_array[0] =~ /^(?:cd|set|alias|last)$/)
{
    # ...
}

Answer 3

or $split_array[0]))

в самом конце утверждения.Вы не сравниваете это, так что я предполагаю, что это возвращает true для любого слова.