如何在Perl中將兩個數組分配給哈希？

Question

我有兩個大數組的代碼行（所以不能把它寫入散列），我想用散列連接。

例如，$array1[0]成爲關鍵字，$array2[0]成爲$array1[150],$array2[150]的值等。

任何想法如何做到這一點？

Answer 1

你可以做一個單一的任務：

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

這是一個常見的成語。從perldoc perldata on slices：

如果你搞不清楚爲什麼您使用 一個「@」有一個散列切片的「％」而不是 ，想起來這個樣子。 括號（正方形或捲曲）的類型 管轄它是否是一個數組或正在查看的 散列。在其他 指針上，數組或哈希上的前導符號（'$'或'@'） 指示您是否獲取單數值 （標量）或複數（列表）。

當我看到這些我看到了拉鍊的精神形象一個...

Answer 2

馬丁克萊頓有best answer for your general question，放也有在Perl 5.12一個有趣的新功能。您可以使用each on an array，以便您可以輕鬆地遍歷並行數組。

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

Answer 3

（我試過張貼這是布萊恩的回答評論，但無法得到的格式右）

你必須：當你想使用它們之前操作的值是非常有用要小心避免嵌套使用each。 each適用於陣列上的「全局」迭代器。到達最後時，返回false，然後將位置重置爲開始位置。因此下面的代碼會導致無限循環。

感謝RJBS的talk at YAPC::NA，他指出了內置迭代器的全局性。

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;