匿名散列的赋值问题？

wfnh

请问一下，我的代码有没有问题呢>
$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 于 2008-8-20 11:58 编辑 ]

tmp

@xueke=qw/chinese,math,en/;  里面不该有都好, 用空格

wfnh

搞错了！不好意思！现在改回来了！！应该不是这个问题吧？！

suntoltti

你到底要什么结构？

churchmice

引用是标量
所以应该是

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. my @xueke = qw ( chinese math en );
   
6. my $all_scores = [ [ 55,66,77],[75,85,90],[78,86,88]];
   
7. my $student = {
   
8.         "name" => "",
   
9.         "grades" => {
   
10.                 "chinese" => "",
    
11.                 "math" => "",
    
12.                 "en" => "",
    
13.                 },
    
14.         };
    
15. 
    
16. foreach ( 0..2 ) {
    
17.             $student->{"grades"}->{$xueke[$_]} = $all_scores->[$_];
    
18.         #$student->{"grades"}->{$xueke[$_]} = [@{$all_scores->[$_]}]; 这样也是可以的，但是速度慢一点
    
19.         }
    
20. 
    
21. #print the result
    
22. 
    
23. {
    
24. local $, = " ";
    
25. foreach ( 0..2 ) {
    
26.         print @{$student->{"grades"}->{$xueke[$_]}},"\n";
    
27.         }
    
28.         }
    

复制代码

[ 本帖最后由 churchmice 于 2008-8-20 15:33 编辑 ]

wfnh

那我这里到底是什么意思：@{$all_scores->[$i]}！
有点搞不懂！

cobrawgl

$student->{grades}->{$xueke[$i]}=@{$all_scores->[$i]};

左边是个 scalar，右边是个 array，这样左边得到的是array的长度，而不是 array 里的数据。

5 楼已经给你答案啦，你好好看看嘛

cobrawgl

你那个 $student 里其实也用不着提前分配好空间的
弄一个空的hash引用，然后往里放就行了

churchmice

不错
就是所谓的auto vivication(好像是这么拼写的）