使用hash of arrays应该符合这个需求
my @student = ("mary","tina","mike","john","jordan");
my $temp;
my %student_data;
foreach $temp(@student)
{
open(IN,"<$temp");
$student_data{"$temp"} = [ <IN> ];
}
print $student_data{"tina"} -> [0]; #印印看
※ 引述《bwtalk (是黑是白)》之铭言：
: 请问一下perl有动态宣告的功能吗
: 之前用C时有 现在用perl不知道怎么写...Orz
: 例如:
: my @student = ("mary","tina","mike","john","jordan");
: my $temp;
: foreach $temp(@student)
: {
: open(IN,"<$temp");
: @{$temp} = <IN>;
: }
: print $tina[0] #印印看
: 想将各学生的档案读入 且存进以名字为名的阵列(需要动态宣告)
: 像上面这样写会有error 且阵列也无法使用
: 请问该如何写才好呢..
: 谢谢大家!