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

△▲　WebProg 初心者 ..

404:nobodyさん
04/10/19 12:20:15
>>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;
}

次ページ