##===================================== ## ファイルオープン ##===================================== sub fileopen # ($filepath) { local($file) = @_; local(@array); if(!open(IN,$file)){ &error('システムエラー','ファイルをオープンできませんでした。'); } @array = ; close(IN); return (@array); } ##===================================== ## エラー表示 ##===================================== sub error # ($error_tile, $error_message) { print <<"END"; Content-type: text/html ！ＥＲＲＯＲ！
$_[0]

$_[1]

こちらをクリックして前の画面に移動してください。

END exit; } 1;