Який правильний спосіб перевірити, чи рядок порожній у Perl?

Я щойно використовував цей код, щоб перевірити, чи рядок порожній:

if ($str == "")
{
  // ...
}

А також те саме з оператором не дорівнює ...

if ($str != "")
{
  // ...
}

Здається, це працює (я думаю), але я не впевнений, що це правильний шлях, чи є якісь непередбачені недоліки. Щось у цьому просто не добре.

Для порівняння рядків у Perl використовуйте eqабо ne:

if ($str eq "")
{
  // ...
}

Оператори ==and !=є числовими операторами порівняння. Вони спробують перетворити обидва операнди на цілі числа, перш ніж їх порівнювати.

Для отримання додаткової інформації див. Сторінку керівництва perlop .

1. Завдяки тому, що рядки зберігаються в Perl, отримання довжини рядка оптимізовано.
   if (length $str)є хорошим способом перевірити, чи рядок не є порожнім.

2. Якщо ви потрапили в ситуацію, коли ви ще не вбереглися від них undef, тоді загалом для "непустого", що не буде попереджати, є if (defined $str and length $str).

Можливо, ви хочете використовувати "eq" замість "==". Якщо вас турбують деякі крайні випадки, ви також можете перевірити наявність невизначених:

if (not defined $str) {

# this variable is undefined

}

Як уже згадували кілька людей, eq є правильний оператор.

Якщо ви use warnings;введете свій сценарій, ви отримаєте попередження щодо цього (та багатьох інших корисних речей); Я б також рекомендував use strict;.

Сама концепція "належного" способу робити що-небудь, крім використання CPAN, у Perl відсутня.

У будь-якому випадку це числові оператори, вам слід скористатися

if($foo eq "")

або

if(length($foo) == 0)

Щоб перевірити наявність порожнього рядка, ви також можете зробити наступне

if (!defined $val || $val eq '')
{
    # empty
}