あるハッシュが他のハッシュを参照している場所にハッシュのハッシュを出力する方法

debugcn 投稿 Dev

異端者

私はperlで複雑なデータ構造を学習しようとしています。そのため、iiはコードを記述しましたが、出力が得られません。

#!/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で複雑なデータ構造を学習するために、Perl Data StructuresCookbookよりも優れたリファレンスはありません。

代入info_oneし、info_two are文字列は、あなたが周りから二重引用符を削除したい\%abcと\%cde。また、あなたが追加する必要$にスカラーサインをvalし、check最後にprintそれらの変数であるため、ライン。

#!/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";
    }
}

最後の行は少し醜いですが、Data Structures Cookbookを読む->と、演算子の使用方法とステートメントの記述方法がよりエレガントになります。

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]