Deklaracja i wypełnić tabelę hash w jednym kroku w Perlu

Question

Obecnie, kiedy chcę zbudować tabelę przeglądową używać:

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

Czy istnieje sposób mogę zrobić inline inicjalizacji w jednym kroku? (Tj wypełnić go w tym samym czasie jestem uznającej go?)

Answer 1

Wystarczy użyć mapy, aby utworzyć listę następnie spadek w odniesieniu hash jak:

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

Answer 2

Update: Przepraszam, to nie robi rób dokładnie to, co chcesz, ponieważ najpierw musisz zadeklarować $ has_field.

Można użyć kawałek skrótu:

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

z prawej strony jest za pomocą operatora x powtórzyć jeden przez skalarne wartości @fields (to liczba elementów w tablicy). Inną opcją w tym samym duchu:

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

Answer 3

Gdzie Przetestowałem to smart match może być od 2 do 5 razy szybciej niż tworzenie i testowanie hash odnośnika do wartości raz. Więc jeśli masz zamiar ponownego wykorzystania hash dużą liczbę razy, to najlepiej zrobić inteligentne dopasowanie:

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

To dobry jest, aby pamiętać, że od 5.10, Perl ma teraz drogę rodzimy do zapytaj "czy ta nieprzetestowana wartość jest jedną z tych znanych wartości", to jest inteligentny mecz.