declarar y rellenar una tabla hash en un solo paso en Perl

Question

Actualmente cuando quiero construir una tabla de consulta que utilizo:

my $has_field = {}; 
map { $has_field->{$_} = 1 } @fields; 

¿Hay alguna manera de hacer la inicialización en línea en un solo paso? (Es decir, lo pueblan, al mismo tiempo que estoy declarando que?)

Answer 1

sólo tiene que utilizar el mapa para crear una lista a continuación, colocar en una referencia a un hash como:

my $has_field = { map { $_ => 1 } @fields }; 

Answer 2

Actualización: lo siento, esto no lo hace haz lo que quieras exactamente, ya que todavía tienes que declarar $ has_field primero.

Se puede usar un trozo de hash:

@{$has_field}{@fields} = (1)x@fields; 

El lado derecho está utilizando el operador x repetir uno por el valor escalar de @fields (es decir, el número de elementos en la matriz). Otra opción en la misma línea:

@{$has_field}{@fields} = map {1} @fields; 

Answer 3

Donde he probado smart match puede ser de 2 a 5 veces más rápido que la creación de un hash de búsqueda y pruebas para el valor vez. Así que a menos que usted va a volver a utilizar el hash de un buen número de veces, lo mejor es hacer un partido inteligente:

if ($cand_field ~~ \@fields) { 
    do_with_field($cand_field); 
} 

Es una buena cosa que recordar que desde 5.10, Perl ahora tiene una manera nativa a pregunte "es este valor no probado cualquiera de estos valores conocidos", es coincidencia inteligente.