#!/usr/local/bin/perl
#
# http://www.taiyosha.co.jp/comic/comic_han.html のhtmlを
# テキストに変形する
# このサイトが…もちょっとまともな作りなら簡単なのに…
#

$/ = "\r";			# セパレータ = '\r'

while (<>) {
    $cnt++ if (/^<HR>/);	# <HR> がパートの区切り
    if (/<TITLE>/) {
	s/^[^>]*>([^<]*)<.*$/\1/;
	s/\r$//;
	print "0.$_\n";
    }
    if ($cnt==3) {		# コミック部分の空行以外だけ抜き出す
	s/\r$//;		# 行末の \r は邪魔
	s+\xa5([0-9上下])+/\1+;	# 半角の '・' を削除する…普通使うか!?

	s/<[^>]*>//g;		# タグ削除

	next if /^\s*$/;	# 空行は飛ばせ

	if (/^ /) {		# 本のタイトル
	    s/^[ ]*//;
	    print "\t$_\n";
	} else {		# 出版社
	    $pub++;
	    print "$pub.$_\n";
	}
    }
}
