- 论坛徽章:
- 0
|
[root@node254 ~]# perl
%student = ( "Math" => {"joe" => 95,"peter"=> 100},
"Science" => {"joe"=> 100,"peter" =>80 }
);
print "on the Math test joe got ";
print "$student{Math}->{joe}.\n";
__END__
on the Math test joe got 95.
[root@node254 ~]# perl
%student = ( "Math" => {"joe" => 95,"peter"=> 100},
"Science" => {"joe"=> 100,"peter" =>80 }
);
print "on the Math test joe got ";
print "$student{'Math'}->{'joe'}.\n";
__END__
on the Math test joe got 95.
[root@node254 ~]# perl
%student = ( "Math" => {"joe" => 95,"peter"=> 100},
"Science" => {"joe"=> 100,"peter" =>80 }
);
print "on the Math test joe got ";
print "$student{\"Math\"}->{\"joe\"}.\n";
__END__
on the Math test joe got 95.
在上面的例子中键有没有引号好象都可以呀,请大侠解惑
[root@node254 ~]# perl -v
This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi |
|