perl - perlでハッシュ内にハッシュを組み込む方法は?

Question

my %book = (
'name' => 'abc',
'author' => 'monk',
'isbn' => '123-890',
'issn' => '@issn',           
);

my %chapter = (
'title' => 'xyz',
'page' => '90',             
);

「$chapter{name}」と書いたときに「abc」と出力されるように、参照を通じて %chapter 内に %book を組み込むにはどうすればよいですか?

Answer 1

1. のキー/値を にコピーでき%bookます%chapter。

   @chapter{keys %book} = values %book;
   

   または次のようなもの

   %chapter = (%chapter, %book);
   

   できるようsay $chapter{name}になりましたが、 での変更は に%book反映されません%chapter。

2. %bookvia 参照を含めることができます。

   $chapter{book} = \%book;
   

   say $chapter{book}{name}変更が反映されるようになりました。

あなたが言うことができ、$chapter{name}変更を反映するインターフェイスを持つには、いくつかの高度なテクニックを使用する必要があります (これはtieマジックではかなり簡単です) 。