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

△▲　WebProg 初心者 ..

407:nobodyさん
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
}

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

次ページ

続きを表示

1を表示