Perl多哈希演示

Question

我如何创建和添加数据到散列%grade_two像这样

$grade_two{Student}{Subject}{Test}{Score and edited Score} = ();

我不想硬编码数据。i将通过终端<STDIN> or读取文件流到变量中。

{Score and edited Score}应该接受一个或多个条目(数组)if any

我需要使用参考吗?或者我可以不参考吗?请给我一个例子的代码和解释你的答案。谢谢你！

Answer 1

使用@{}符号来"解引用"对数组的哈希引用。请注意,在perl文件的顶部使用"use strict"是一个很好的实践，并且会很长时间改进perl代码风格的方法:)

试试这样写:

use strict;
my %grade_two;
$grade_two{Student}{Subject}{Test}{'Score and edited Score'} = ();
push(@{$grade_two{Student}{Subject}{Test}{'Score and edited Score'}}, "123");
push(@{$grade_two{Student}{Subject}{Test}{'Score and edited Score'}}, "456");
1;