Tạo một hàm băm Perl với một mảng làm khóa

Question

Làm thế nào tôi có thể đặt một mảng (như tuple trong ví dụ sau) vào một băm trong Perl?

%h=(); 
@a=(1,1); 
$h{@a}=1 or $h{\@a}=1?? 

Tôi đã thử với tham chiếu mảng, nhưng nó không hoạt động. Làm thế nào để làm cho nó hoạt động? Tôi muốn cơ bản de-trùng lặp bằng cách làm băm (trong số những thứ khác với điều này).

Answer 1

Các băm thông thường chỉ có thể có các khóa chuỗi, vì vậy bạn cần phải tạo một số chức năng băm cho các mảng của mình. Một cách đơn giản sẽ chỉ đơn giản là join yếu tố mảng của bạn, ví dụ:

$h{join('-', @a)} = \@a; # A nice readable separator 
$h{join($;, @a)} = \@a; # A less likely, configurable separator ("\034") 

Nhưng cách tiếp cận đó (sử dụng giá trị sentinel) yêu cầu bạn chọn ký tự không được tìm thấy trong khóa. Những điều sau đây không gặp vấn đề đó:

$h{pack('(j/a*)*', @a)} = \@a; 

Hoặc, hãy xem Hash::MultiKey có thể mất một khóa phức tạp hơn.

Answer 2

Tôi đã thử với tài liệu tham khảo mảng, nhưng nó không hoạt động

vui rằng, trang 361 của (mới) Camel cuốn sách có tiêu đề đoạn: Tài liệu tham khảo không làm việc như Hash Phím

Vì vậy, có, bạn đã chứng minh đúng cuốn sách Camel. Sau đó nó tiếp tục cho bạn biết làm thế nào để sửa chữa nó, sử dụng Tie::RefHash.

Tôi đoán bạn nên mua sách.

(Nhân tiện, (1,1) có thể được gọi là một bộ trong Python, nhưng nó được gọi là danh sách trong Perl).

Answer 3

Để loại bỏ bản sao trong mảng bằng cách sử dụng bảng băm:

my %hash; 
@hash{@array} = @array; 
my @unique = keys %hash; 

Ngoài ra, bạn có thể sử dụng map để tạo ra băm:

my %hash = map {$_ => 1} @array;