04/10/19 15:22:20 L2S4WNHR
何度もすいません。解決しました。
$1 = LoadKey(1);
$2 = LoadKey(2);
$3 = LoadKey(3);
sub LoadKey
{
open(KEY, "./$_[0]". ".key") or die("エラー：ファイルが開けません");
eval{flock(KEY, 2); };
$key = <KEY>;
close(KEY);
return $key
}
戻り値を変数に代入していく方法でなんとかやりました。
どうもありがとうございました。