The following script would fail<\/p>\n
use strict;<\/p>\n
my %hash = (-id => 10, -name => ‘Hongyu’);
\nmy %hash2;<\/p>\n
$hash2{hash} = %hash;
\nprint $hash2{hash}{-id}, “\\n”;<\/p>\n
The problem here is that initializing a Perl hash value with a hash is impossible, need to use reference instead<\/p>\n
use strict;<\/p>\n
my %hash = (-id => 10, -name => ‘Hongyu’);
\nmy %hash2;<\/p>\n
$hash2{hash} = \\%hash;
\nprint $hash2{hash}->{-id}, “\\n”;<\/p>\n","protected":false},"excerpt":{"rendered":"
The following script would fail use strict; my %hash = (-id => 10, -name => ‘Hongyu’); my %hash2; $hash2{hash} = %hash; print $hash2{hash}{-id}, “\\n”; The problem here is that initializing a Perl hash value with a hash is impossible, need to use reference instead use strict; my %hash = (-id => 10, -name => ‘Hongyu’); … <\/p>\n