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'
};
看樣子 是小弟語法錯誤 請問要如何指定正確語法?

把 A=>%Hash1 改成 A=>\%Hash1