¿Cuál es la forma correcta de comprobar si una cadena está vacía en Perl?

Acabo de usar este código para verificar si una cadena está vacía:

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

Y también lo mismo con el operador no es igual ...

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

Esto parece funcionar (creo), pero no estoy seguro de que sea la forma correcta, o si hay algún inconveniente imprevisto. Algo simplemente no se siente bien al respecto.

Para comparaciones de cadenas en Perl, use eqo ne:

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

Los operadores ==y !=son operadores de comparación numéricos . Intentarán convertir ambos operandos a números enteros antes de compararlos.

Consulte la página del manual de perlop para obtener más información.

1. Debido a la forma en que las cadenas se almacenan en Perl, se optimiza obtener la longitud de una cadena.
   if (length $str)es una buena forma de comprobar que una cadena no está vacía.

2. Si se encuentra en una situación en la que aún no se ha protegido undef, entonces el truco para "no vacío" que no advertirá es if (defined $str and length $str).

Probablemente desee utilizar "eq" en lugar de "==". Si le preocupan algunos casos extremos, es posible que también desee verificar si hay indefinidos:

if (not defined $str) {

# this variable is undefined

}

Como ya han mencionado varias personas, aquí eqes el operador adecuado.

Si está use warnings;en su secuencia de comandos, recibirá advertencias sobre esto (y muchas otras cosas útiles); Yo también lo recomiendo use strict;.

El concepto mismo de una forma "adecuada" de hacer cualquier cosa, además de utilizar CPAN, no existe en Perl.

De todos modos, esos son operadores numéricos, debe usar

if($foo eq "")

o

if(length($foo) == 0)

Para comprobar si hay una cadena vacía, también puede hacer algo de la siguiente manera

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