Jak mogę przypisać dwie tablice do skrótu w Perlu?

Question

Mam linie kodu z dwoma dużymi tablicami (więc nie mogę po prostu zapisać go w hasz), które chcę połączyć z hash.

Na przykład $array1[0] staje się kluczem, a $array2[0] staje się wartością i tak dalej do $array1[150], $array2[150].

Jakieś pomysły, jak to zrobić?

Answer 1

Można to zrobić w jednym przypisania:

my %hash; 
@hash{@array1} = @array2; 

Jest to wspólny idiom. Od perldoc perldata on slices:

Jeśli jesteś zagubiony, dlaczego używasz „@” tam na plasterek hash zamiast z „%”, pomyśl o tym w ten sposób. Klamra (kwadratowa lub kręcona) decyduje o tym, czy jest to tablica, czy też analizowany jest hasz o tablicy lub . Z drugiej strony główny symbol ("$" lub "@") w tablicy lub krzyżyku wskazuje, czy otrzymujesz pojedynczą wartość (skalar) lub liczbę mnogą (lista).

Kiedy widzę jeden z nich widzę wyobrażenie zamek błyskawiczny ...

Answer 2

Martin Clayton ma best answer for your general question, umieścić tam również ciekawą nowością w Perl 5.12. Możesz użyć each on an array, dzięki czemu możesz łatwo iterować przez równoległe tablice. Jest to przydatne, gdy chcesz manipulować wartości przed ich użyciem:

while(my($index, $value) = each @array1) { 
     ...; # maybe do something to $value 
     $hash{ $value } = $array2[$index]; 
     } 

Answer 3

(. Próbowałem delegowania to jako komentarz do odpowiedzi Brian, ale nie mógł uzyskać prawo formatowania)

Musisz zachowaj ostrożność, aby uniknąć zagnieżdżonych zastosowań each. each działa na "globalnym" iteratorze w tablicy. Po osiągnięciu końca zwraca wartość false, a następnie resetuje pozycję do początku. Tak więc poniższy kod powoduje nieskończoną pętlę.

Dzięki RJBS za jego talk at YAPC::NA, gdzie wskazał na globalny charakter wbudowanego iteratora.

use strict; 
use warnings; 

my @array = 'A' .. 'J' ; 

while (my ($index, $value) = each @array){ 
     print "printing ($index, $value) from outer loop\n"; 

     while (my ($index_in, $value_in) = each @array){ 
       print "printing ($index_in, $value_in) from inner loop\n"; 
     } 
} 

Answer 4

use List::MoreUtils qw(zip); 

my @a = 'A' .. 'E'; 

my @b = 1 .. 5; 

my %hash = zip @a, @b;