¿Cómo encontrar si los valores de una matriz son las claves de hash en Perl?

Tengo una matriz que dice @array. Me gustaría saber qué valores de la matriz forman las teclas de un hash, digamos% hash. ¿Hay una manera simple de hacerlo además de usar un bucle for?¿Cómo encontrar si los valores de una matriz son las claves de hash en Perl?

por ejemplo,

@array = qw (a b c); 
%hash = (a => 1, b=> 2);

En este caso sólo debe de salida 'a' y 'b'.

Fuente

2012-06-08 Jordan

Tienes algunos problemas bareword si usted está usando 'use strict;' (y debe ser). –

Derecha. Si se supone que esa matriz debe contener las letras literales 'a', 'b' y 'c', debe ser '@array = ('a', 'b', 'c');' o '@array = qw (abc); ' –

@JonathanLeffler: uso estricto, simplemente no lo incluí en el ejemplo. – Jordan

Esto debe hacerlo:

my @array = qw(a b c) ; 
my %hash = (a => 1 , b => 2) ; 

my @result = grep { exists $hash{$_} } @array ;

Fuente

2012-06-08 18:56:45 dgw

¿Cómo encontrar si los valores de una matriz son las claves de hash en Perl?

Respuesta

Cuestiones relacionadas