自己联系的一个小perl

#!/usr/bin/perl my %a = ("id" => "0101","className" => "jane01"); my %b = ( id=>"0101",className=>"jane01"); my %c =( id,"0101",className,"jane01"); print $a{"id"},"n"; print $b{id},"n"; print $c{id},"n"; print %c->{className},"n"; ########################################################### @testCaseList=(1,2,3); print $testCaseList[2],"n"; @testCaseList2=(); push(@testCaseList2,{"janedebug","5555"}); push(@testCaseList2,{"janedebug02","66666"}); push(@testCaseList2,{"janedebug03","77777"}); print $testCaseList2[0]->{janedebug},"n"; foreach my $hash (@testCaseList2) { ? ? print $hash->{"janedebug"},"n"; } ###########################################################