小编Haw*_*awk的帖子

有人可以为我完成这个并解释你做了什么吗？

my %hash;

#$hash{list_ref}=[1,2,3];
#my @array=@{$hash{list_ref}};

$hash{list_ref}=\[1,2,3];
my @array=???

print "Two is $array[1]";

任何人都可以通过更换PFM块使这个打印"4"？

my %hash;
$hash{1}{2}{3}=4;

my @key=qw(1 2 3);

my $key;

for(@key){PFM}

print $hash{$key}