
#●
#---------------------------------------------------------------------------------------
# 名称     | NoListSet
# Version  | 1.00
# 処理名   | 削除番号処理
# 動作内容 | 論理削除番号を定義する
# 引数     | 削除管理ファイル名
# 戻り値   | なし(%deleted)
#
sub NoListSet {

	local($file) = @_;

	if (!open(IN,$file)) { &Error('エラー','削除番号ファイルが見つかりません.'); }
	while ($number = <IN>) { # １行ずつ読み込む

		$number =~ s/\n//; # 改行を削除

		if ($number =~ /^#|^$/) { next; } # コメント行と空行を読み飛ばす
		if ($number =~ /\D/) { next; } # 記事番号(非数字)以外は読み飛ばす

		$number =~ s/\n//; # 改行を削除
		$deleted{$number} = 1; # 削除番号をキーとした連想配列を定義する
	}
	close(IN);

}#End_of_NoListSet

