perl | Teclas() Función

La función keys() en Perl devuelve todas las claves del HASH como una lista. El orden de los elementos en la Lista no necesita ser el mismo siempre, pero coincide con el orden devuelto por los valores y cada función.

Sintaxis: claves (HASH)

Parámetro:
HASH: Hash cuyas claves se van a imprimir

Devolución: para el contexto escalar, devuelve el número de claves en el hash, mientras que para el contexto de lista devuelve una lista de claves.

Ejemplo 1:

#!/usr/bin/perl
  
%hash = ('Ten' => 10,
         'Eleven' => 11,
         'Twelve' => 12,
         'Thirteen' => 13);
  
@values = values( %hash );
print("Values are  ", join("-", @values), "\n");
  
@keys = keys( %hash );
print("Keys are ", join("-", @keys), "\n");

Producción:

Values are  11-12-13-10
Keys are Eleven-Twelve-Thirteen-Ten

Ejemplo 2:

#!/usr/bin/perl
  
%hash = ('Geek' => 1,
         'For' => 2,
         'Geeks' => 3);
  
@values = values( %hash );
print("Values are  ", join("-", @values), "\n");
  
@keys = keys( %hash );
print("Keys are ", join("-", @keys), "\n");

Producción:

Values are  3-2-1
Keys are Geeks-For-Geek