Làm cách nào để tạo băm băm trong Perl?

Question

Dựa trên sự hiểu biết hiện tại của tôi về băm trong Perl, tôi hy vọng mã này sẽ in "hello world". Thay vào đó nó không in được gì cả.

%a=(); 

%b=(); 
$b{str} = "hello"; 
$a{1}=%b; 

$b=(); 
$b{str} = "world"; 
$a{2}=%b; 

print "$a{1}{str} $a{2}{str}"; 

Tôi giả định rằng một băm giống như một mảng, vậy tại sao tôi không thể tạo một băm khác?

Answer 1

1. Bạn nên luôn sử dụng "sử dụng nghiêm ngặt;" trong chương trình của bạn.

2. Sử dụng tham chiếu và băm vô danh.

use strict;use warnings; 
my %a; 

my %b; 
$b{str} = "hello"; 
$a{1}={%b}; 

%b=(); 
$b{str} = "world"; 
$a{2}={%b}; 

print "$a{1}{str} $a{2}{str}"; 

{%b} tạo ra tài liệu tham khảo để sao chép các hash %b. Bạn cần sao chép ở đây vì bạn làm trống sau.

Answer 2

Hashes of hash rất khó để có được quyền lần đầu tiên. Trong trường hợp này

$a{1} = { %b }; 
... 
$a{2} = { %b }; 

sẽ đưa bạn đến nơi bạn muốn.

Xem perldoc perllol để biết chi tiết đẫm máu về cấu trúc dữ liệu hai chiều trong Perl.

Answer 3

Perl thích làm phẳng cấu trúc dữ liệu của bạn. Đó thường là một điều tốt ... ví dụ: (@options, "another option", "yet another") kết thúc dưới dạng một danh sách.

Nếu bạn thực sự muốn có một cấu trúc bên trong cấu trúc khác, cấu trúc bên trong cần phải là một tham chiếu. Giống như vậy:

%a{1} = { %b }; 

Dấu ngoặc biểu thị băm, bạn đang điền giá trị từ% b và trở lại làm tham chiếu thay vì băm thẳng.

Bạn cũng có thể nói

$a{1} = \%b; 

nhưng mà làm thay đổi% b thay đổi $ a {1} là tốt.

Answer 4

Mike, Alexandr là câu trả lời đúng.

Đồng thời cũng là mẹo. Nếu bạn chỉ học băm perl có một mô-đun gọi là Data :: Dumper có thể in các cấu trúc dữ liệu của bạn một cách dễ dàng, điều này thực sự tiện dụng khi bạn muốn kiểm tra những giá trị mà cấu trúc dữ liệu của bạn có.

use Data::Dumper; 
print Dumper(\%a); 

khi bạn in này nó cho thấy

$VAR1 = { 
      '1' => { 
        'str' => 'hello' 
       }, 
      '2' => { 
        'str' => 'world' 
       } 
     }; 

Answer 5

Câu trả lời ngắn: Phím băm chỉ có thể được liên kết với một đại lượng vô hướng, không phải là một băm. Để làm những gì bạn muốn, bạn cần sử dụng tài liệu tham khảo.

Thay vì băm lại (heh) cách tạo cấu trúc dữ liệu đa cấp, tôi khuyên bạn nên đọc perlreftut. perlref hoàn chỉnh hơn, nhưng ban đầu nó hơi lấn át.