[問題] hash of hash 問題

[gecer (gecer)]

use strict;
use warnings;
use Data::Dumper;

my %Hash1=(key1=>"key1",key2=>"key2",key3=>"key3");

my %HoH2 = (
   A=>%Hash1,

B=>{
    captain  => "pierce",
    major    => "burns",
    corporal => "radar"}

);

print Dumper(\%Hash1) ,"\n",Dumper(\%HoH2);



小弟想在hash 內直接指定另一個hash(紅字)  但是print 後結果如下

$VAR1 = {
          'key1' => 'key1',
          'key3' => 'key3',
          'key2' => 'key2'
        };

$VAR1 = {
          'key2' => 'B',
          'key3' => 'key2',
          'HASH(0x2973ce8)' => undef,
          'A' => 'key1',
          'key1' => 'key3'
        };



看樣子 是小弟語法錯誤  請問要如何指定正確語法?


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.134.181.194
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1464874954.A.458.html
推 CindyLinz: 把 A=>%Hash1 改成 A=>\%Hash1