perl | función definida()

Defined() en Perl devuelve verdadero si la variable proporcionada ‘VAR’ tiene un valor diferente al valor no definido, o verifica el valor de $_ si no se especifica VAR. Esto se puede usar con muchas funciones para detectar fallas en la operación, ya que devuelven undef si hubo un problema.

Si VAR es una función o referencia de una función, devuelve verdadero si la función se ha definido; de lo contrario, devolverá falso si la función no existe. Si se especifica un elemento hash, devuelve verdadero si se ha definido el valor correspondiente, pero no comprueba la existencia de la clave en el hash

Sintaxis: definido(VAR)

Parámetros:
VAR que se va a comprobar

Devuelve:
Devuelve 0 si VAR no está definido y 1 si VAR contiene un valor

Ejemplo 1:

#!/usr/bin/perl
  
# Defining a variable
$X = "X is defined";
  
# Checking for existence of $X 
# with defined() function
if(defined($X)) 
{
    print "$X\n";
}
  
# Checking for existence of $Y 
# with defined() function
if(defined($Y)) 
{
    print "Y is also defined\n";
} 
else
{
    print "Y is not defined\n";
}

Producción:

X is defined
Y is not defined

 
Ejemplo 2:

#!/usr/bin/perl
  
# Defining a function
sub X
{
      
    # Defining a variable
    $VAR = 20;
}
  
# Checking for existence of $X 
# with defined() function
if(defined(X)) 
{
    print "Function Exists\n";
}
  
# Checking for existence of $Y 
# with defined() function
if(defined($Y)) 
{
    print "Y is also defined\n";
} 
else
{
    print "Y is not defined\n";
}

Producción:

Function Exists
Y is not defined