- 399 名前：nobodyさん [04/10/19 04:03:03 ID:L2S4WNHR]
- 複数の変数をサブルーチンで取り出そうと思ったんですがうまくいきません。
どうダメだったんでしょうか、採点お願いします。
1.key、2.key、3.key、、、というファイルを読み込んで、
それぞれの内容を出力するcgiです。
LoadKey(1);
LoadKey(2);
LoadKey(3);
・
・
・
sub LoadKey
{
open($_[0]KEY, "./$_[0].key") or die("エラー：ファイルが開けません");
eval{flock($_[0]KEY, 2); };
${$_[0]key} = <$_[0]KEY>;
close($_[0]KEY);
}
print $1key$2key$3key…;
