
#●
#---------------------------------------------------------------------------------------
# 名称     | Search
# Version  | 1.00
# 処理名   | 抽出処理
# 動作内容 | 読み込まれたログを抽出する
# 引数     | なし
# 戻り値   | なし
#
sub Search {

	$page_control = $hit = 0;

	foreach $line (@messages) {

		$page_control++;
		if ($page_control < $in{'page_control'}) { next; } # 指定の行数まで読み飛ばす

		($number,$i) = split(/\t/,$line,2); # 番号を取り出す
		if ($deleted{$number} == 1) { next; } # 表示しない(削除)記事を読み飛ばす

		if ($hit != $page) { push(@MESSAGE,$line); $hit++; } # １ページ($page件)に満たない場合は抽出して件数を数える
		else { $next_control = $page_control; last; } # 達したら、ここまで至った行数を次の読み飛ばし行数として指定して終了
	}

}#End_of_Search

