Perl 如何在一个哈希引用另一个哈希的情况下打印哈希的哈希_Perl

Perl 如何在一个哈希引用另一个哈希的情况下打印哈希的哈希

perl

Perl 如何在一个哈希引用另一个哈希的情况下打印哈希的哈希,perl,Perl,我试图用perl学习复杂的数据结构，为此我编写了一段代码，但没有得到任何输出： #!/usr/bin/perl use strict; use warnings; my %abc=(Education => "BE",Marital_Status => "Single", Age => "28", Working_Exp => "4yrs"); my %cde=(Education => "BE",Marital_Status => "Single", A

我试图用perl学习复杂的数据结构，为此我编写了一段代码，但没有得到任何输出：

#!/usr/bin/perl 
use strict;
use warnings;

my %abc=(Education => "BE",Marital_Status => "Single", Age => "28", Working_Exp => "4yrs");
my %cde=(Education => "BE",Marital_Status => "Single", Age => "29", Working_Exp => "5yrs");


my %info =(info_one => "\%abc", info_two => "\%cde");

foreach my $val (keys %info)
{
  foreach my $check ( keys %{$info{val}})
  {
    print ${$info{val}}{check}."\n";
  }
}

对于学习Perl中的复杂数据结构，没有比

对

info\u one

和

info\u two的赋值是

字符串，因此您希望从

\%abc

和

\%cde

中删除双引号。另外，您需要将

标量符号添加到

val

和

检查

的最后一行

打印

，因为这些都是变量

#!/usr/bin/perl 
use strict;
use warnings;

my %abc= (
    Education => "BE",
    Marital_Status => "Single", 
    Age => "28", 
    Working_Exp => "4yrs"
);
my %cde= (
    Education => "BE",
    Marital_Status => "Single", 
    Age => "29", 
    Working_Exp => "5yrs"
);


my %info = (
   info_one => \%abc,
   info_two => \%cde
);

foreach my $val (keys %info) {
    foreach my $check ( keys %{$info{$val}} ) {
        print ${$info{$val}}{$check}."\n";
    }
}

最后一行有点难看，但当您阅读数据结构烹饪书时，您将学习使用

->

运算符，并更优雅地编写语句。

要学习Perl中的复杂数据结构，没有比

对

info\u one

和

info\u two的赋值是