Quelle est la bonne façon de vérifier si une chaîne est vide en Perl?

Je viens d'utiliser ce code pour vérifier si une chaîne est vide:

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

Et aussi la même chose avec l'opérateur not equals ...

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

Cela semble fonctionner (je pense), mais je ne suis pas sûr que ce soit la bonne façon, ou s'il y a des inconvénients imprévus. Quelque chose ne va tout simplement pas.

Pour les comparaisons de chaînes en Perl, utilisez eqou ne:

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

Les opérateurs ==et !=sont des opérateurs de comparaison numériques . Ils tenteront de convertir les deux opérandes en nombres entiers avant de les comparer.

Consultez la page de manuel perlop pour plus d'informations.

1. En raison de la façon dont les chaînes sont stockées en Perl, l'obtention de la longueur d'une chaîne est optimisée.
   if (length $str)est un bon moyen de vérifier qu'une chaîne n'est pas vide.

2. Si vous êtes dans une situation où vous ne vous êtes pas déjà prévenu undef, alors le fourre-tout pour "non-vide" qui ne vous avertira pas est if (defined $str and length $str).

Vous voudrez probablement utiliser "eq" au lieu de "==". Si vous vous inquiétez de certains cas extrêmes, vous pouvez également vérifier si non défini:

if (not defined $str) {

# this variable is undefined

}

Comme déjà mentionné par plusieurs personnes, eqest le bon opérateur ici.

Si vous êtes use warnings;dans votre script, vous recevrez des avertissements à ce sujet (et bien d'autres choses utiles); Je recommanderais use strict;aussi.

Le concept même d'une manière «correcte» de faire quoi que ce soit, à part l'utilisation de CPAN, est inexistant en Perl.

Quoi qu'il en soit, ce sont des opérateurs numériques, vous devriez utiliser

if($foo eq "")

ou

if(length($foo) == 0)

Pour rechercher une chaîne vide, vous pouvez également faire quelque chose comme suit

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