使用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 且陣列也無法使用
: 請問該如何寫才好呢..
: 謝謝大家!