Как правильно проверить, пуста ли строка в Perl?

Я только что использовал этот код, чтобы проверить, пуста ли строка:

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

И то же самое с оператором не равно ...

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

Кажется, это работает (я думаю), но я не уверен, что это правильный способ или есть ли какие-либо непредвиденные недостатки. Что-то в этом не так.

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

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

Операторы ==и !=представляют собой числовые операторы сравнения. Они попытаются преобразовать оба операнда в целые числа перед их сравнением.

См. Справочную страницу perlop для получения дополнительной информации.

1. Из-за того, как строки хранятся в Perl, получение длины строки оптимизируется.
   if (length $str)- хороший способ проверить, что строка не пуста.

2. Если вы находитесь в ситуации, от которой вы еще не позаботились undef, то самое главное для «непустого», который не предупреждает, - это if (defined $str and length $str).

Вероятно, вы захотите использовать «eq» вместо «==». Если вы беспокоитесь о некоторых крайних случаях, вы также можете проверить undefined:

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
}