△▲ WebProg 初心者の質問 Part10 ▼▽

[0404 nobodyさん 04/10/19 12:20:15 ID:???]

>>403
ファイルハンドルは開けて閉じてんるんだから
いちいち変数で生成する必要ないでしょ
問題切り分ける為にこれでやってみそ

LoadKey(1);
LoadKey(2);
LoadKey(3);
　・
　・
　・

sub LoadKey
{
my $file = "$_[0]". '.key';
open(KEY, "./$file") or die("エラー：ファイルが開けません");
eval{flock(KEY, 2); };
my $result = <KEY>;
close(KEY);
print $result;
}