[perl]匿名散列的赋值问题?

sh/bash/dash/ksh/zsh等Shell脚本
回复
wfnh
帖子: 84
注册时间: 2008-02-20 11:46
送出感谢: 0
接收感谢: 0
联系:

[perl]匿名散列的赋值问题?

#1

帖子 wfnh » 2008-08-20 11:03

请问一下,我的代码有没有问题呢>
$student= //散列
{
name=>'',
grades=>{
chinese=>'',
math=>'',
en=>'',
},
};
$all_scores=[ [55, 66, 77,],[75, 85, 90],[78, 86, 88] ];//匿名数列
@xueke=qw/chinese,math,en/;
下面是我的赋值语句,我试了很多方法,都不行,到底那里错了,还望指教:
for($i=0;$i<3;$i++)
{
$student->{grades}->{$xueke[$i]}=@{$all_scores->[$i]};
}
wfnh
帖子: 84
注册时间: 2008-02-20 11:46
送出感谢: 0
接收感谢: 0
联系:

#2

帖子 wfnh » 2008-08-21 10:49

已解决了!!
回复

回到 “Shell脚本”