Làm thế nào tôi có thể tạo một băm Perl từ một mảng với các khóa và một mảng khác với các giá trị?

Question

Trong Perl, làm cách nào để tạo băm từ mảng @A và @B có số phần tử bằng nhau? Mục tiêu là phải có mỗi giá trị @A làm khóa để định giá trong @B. Khi đó, hàm băm %C sẽ giúp xác định duy nhất một phần tử từ @B khóa cung cấp từ @A.

Answer 1

nó đơn giản như

my %c; 
@c{@a} = @b; 

Answer 2

Nếu tôi hiểu vấn đề một cách chính xác:

my %c; 
$c{$a[$_]} = $b[$_] for (0 .. @a-1); 

Answer 3

A là chìa khóa, B là những giá trị của băm C:

use strict; 
use warnings; 

my @a = 1 .. 3; 
my @b = 4 .. 6; 
my %c; 
for (0 .. $#a) { 
    $c{$a[$_]} = $b[$_] 
} 

Hãy ghi nhớ rằng không phải bất kỳ giá trị trùng lặp trong mảng A.

Answer 4

use List::MoreUtils 'mesh'; 
my %c = mesh @a, @b; 

Đó là cách nó được thực hiện trong nội bộ (nếu bạn chắc chắn về số lượng tương đương của các yếu tố):

my %c = map { $a[$_] => $b[$_] } 0 .. $#a;