匿名散列的赋值问题？

wfnh

UID: 15976
帖子: 2
积分: 4
在线时间: 10 分钟

1^# wfnh 发表于 2008-08-20 10:51

匿名散列的赋值问题？

请问一下，我的代码有没有问题呢>
$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]};
}

tmp

UID: 34600
帖子: 13
积分: 29
在线时间: 10 分钟

2^# tmp 发表于 2008-08-20 11:56

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

wfnh

UID: 15976
帖子: 2
积分: 4
在线时间: 10 分钟

3^# wfnh 发表于 2008-08-20 11:59

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

suntoltti

UID: 21056
帖子: 2
积分: 4
在线时间: 10 分钟

4^# suntoltti 发表于 2008-08-20 12:56

你到底要什么结构？

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

5^# churchmice 发表于 2008-08-20 13:31

引用是标量
所以应该是

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
my @xueke = qw ( chinese math en );
my $all_scores = [ [ 55,66,77],[75,85,90],[78,86,88]];
my $student = {
"name" => "",
"grades" => {
"chinese" => "",
"math" => "",
"en" => "",
},
};

foreach ( 0..2 ) {
$student->{"grades"}->{$xueke[$_]} = $all_scores->[$_];
#$student->{"grades"}->{$xueke[$_]} = [@{$all_scores->[$_]}]; 这样也是可以的，但是速度慢一点
}

#print the result

{
local $, = " ";
foreach ( 0..2 ) {
print @{$student->{"grades"}->{$xueke[$_]}},"\n";
}
}

wfnh

UID: 15976
帖子: 2
积分: 4
在线时间: 10 分钟

6^# wfnh 发表于 2008-08-21 10:45

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

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

7^# cobrawgl 发表于 2008-08-21 10:57

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

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

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

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

8^# cobrawgl 发表于 2008-08-21 11:02

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

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

9^# churchmice 发表于 2008-08-21 18:24

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