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

[0407 nobodyさん 04/10/19 15:22:20 ID: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
}

戻り値を変数に代入していく方法でなんとかやりました。
どうもありがとうございました。