perl - 如何在Perl中创建哈希哈希？

Question

基于我目前对Perl中哈希的理解，我希望这段代码可以打印“hello world”。相反，它不打印任何内容。

%a=();

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

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

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

我假设哈希就像数组一样，那么为什么不能使哈希包含另一个哈希呢？

Answer 1

您应该始终使用“use strict;”。在您的程序中。

使用引用和匿名哈希。

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}创建对哈希 %b副本的引用。您需要在此处复制，因为稍后您将其清空。