#!/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"; } ###########################################################
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
