perl | función cada()

Esta función devuelve una lista de dos elementos que consiste en el par clave y valor para el siguiente elemento de un hash cuando se llama en el contexto de la lista, para que pueda iterar sobre él. Mientras que solo devuelve la clave para el siguiente elemento del hash cuando se llama en contexto escalar.

Sintaxis: cada MY_HASH
Parámetro:
MY_HASH se pasa como parámetro a esta función

Devuelve:
una lista de 2 elementos de pares clave-valor para el contexto de lista, mientras que solo la clave para el contexto escalar.

Ejemplo 1:

#!/usr/bin/perl
  
# Initializing a Hash
%hash = (Geeks => 1, of => 2 , Geek => 3);
  
# each() function
while (($key, $value) = each(%hash))
{
      
    # Printing(key, value) pair
    print("$key = $value\n");
}

Geek = 3
of = 2
Geeks = 1

Ejemplo 2:

#!/usr/bin/perl
  
# Initializing a Hash
%hash = (Geeks, of, Geek);
  
# each() function for scalar context
while (($key) = each(%hash))
{
      
    # Printing(key)
    print("$key ");
}

Geek Geeks