perl | existe() Función

La función exist() en Perl se usa para verificar si un elemento en una array o hash dado existe o no. Esta función devuelve 1 si el elemento deseado está presente en la array dada o hash de lo contrario devuelve 0.

Sintaxis: existe (Expresión)

Parámetros:
Expresión: esta expresión es una array o un hash en el que se va a llamar a la función existente.

Devuelve: 1 si el elemento deseado está presente en la array dada o hash de lo contrario devuelve 0.

Ejemplo 1: Este ejemplo usa la función exist() sobre una array.

#!/usr/bin/perl 
  
# Initialising an array
@Array = (10, 20, 30, 40, 50);
  
# Calling the for() loop over
# each element of the Array
# using index of the elements
for ($i = 0; $i < 10; $i++)
{
      
    # Calling the exists() function
    # using index of the array elements
    # as the parameter
    if(exists($Array[$i]))
    {
        print "Exists\n";
    }
    else
    {
        print "Not Exists\n"
    }
}

Producción:

Exists
Exists
Exists
Exists
Exists
Not Exists
Not Exists
Not Exists
Not Exists
Not Exists

En el código anterior, se puede ver que el parámetro de la función existe() es el índice de cada elemento de la array dada y, por lo tanto, hasta el índice 4 (el índice comienza desde 0) da como salida «Existe» y luego da «No Existe” porque el índice sale de la array.

Ejemplo 2: Este ejemplo usa la función exist() sobre un hash.

#!/usr/bin/perl 
  
# Initialising a Hash
%Hash = (Mumbai => 1, Kolkata => 2, Delhi => 3);
  
# Calling the exists() function
if(exists($Hash{Mumbai}))
{
    print "Exists\n";
}
else
{
    print "Not Exists\n"
}
  
# Calling the exists() function
# with different parameter
if(exists($Hash{patna}))
{
    print "Exists\n";
}
else
{
    print "Not Exists\n"
}

Producción :

Exists
Not Exists

En el código anterior, la función existe() toma la clave del hash dado como parámetro y verifica si está presente o no.