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;
}