
#●
#---------------------------------------------------------------------------------------
# 名称     | ReadFile
# Version  | 1.00
# 処理名   | ファイル入力
# 動作内容 | ファイルの内容をメモリに読み込んで順番を逆にする
# 引数     | ファイル名
# 戻り値   | 配列
#
sub ReadFile {

	local($file) = @_;
	local(@lines);

	if (!open(IN,$file)) { &Error('エラー','メッセージファイルが見つかりません.'); }
	@lines = <IN>; # 配列に一度に読み入れる(大きなファイルで実行しないこと)
	@lines = reverse @lines; # 順番を入れ替える(新しい順に表示するため)
	close(IN);

	return @lines;

}#End_of_ReadFile

