Dichiarare e popolare una tabella hash in un solo passaggio in Perl

Question

Attualmente quando voglio costruire una tabella di look-up che uso:

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

C'è un modo che io possa fare di inizializzazione in linea in un unico passaggio? (Cioè popolano allo stesso tempo sto dichiarandolo?)

Answer 1

Basta usare la vostra mappa per creare una lista poi cadere in un riferimento ad hash come:

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

Answer 2

Aggiornamento: mi dispiace, questo non lo fa fai quello che vuoi esattamente, dato che devi ancora dichiarare $ has_field per primo.

Si potrebbe utilizzare una fetta hash:

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

La destra sta usando l'operatore x di ripetere uno dal valore scalare di @Campi (vale a dire il numero di elementi nella propria matrice). Un'altra opzione nella stessa vena:

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

Answer 3

Dove ho provato smart match può essere da 2 a 5 volte più veloce la creazione di un hash di ricerca e sperimentazione per il valore volta. Quindi, a meno che non si sta andando a riutilizzare l'hash di un buon numero di volte, è meglio fare una partita intelligente:

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

E 'una buona cosa da ricordare che dal 5.10, Perl ha ora un modo nativo a chiedere "è questo valore non testato nessuno di questi valori noti", è partita intelligente.