#!/usr/local/bin/perl

$/ = "";			# 段落モードで処理

print '
┏━━━━━━━━┳━━━━━━━━━━━━━━━┓
┃ 朝 日 新 聞    ┃                              ┃
┃ 今 日 の 朝 刊 ┃ http://www.asahi.com/paper/  ┃
┗━━━━━━━━┻━━━━━━━━━━━━━━━┛
';				# タイトル。一応入れておこう。

				# 現在日時を得る。
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@wday_array = ('日','月','火','水','木','金','土');
$date_now = sprintf("%2d/%2d(%s) %02d:%02d ",$mon+1,$mday,$wday_array[$wday],$hour,$min);

				# それぞれのファイル処理
&ARTICLE("front.html",     "【 総  合 】", 1);
&ARTICLE("national.html",  "【 国  内 】", 2);
&ARTICLE("business.html",  "【 経  済 】", 3);
&ARTICLE("sports.html",    "【スポーツ】", 4);
&ARTICLE("editorial.html", "【 社  説 】", 5);
exit 0;				# 終了

sub ARTICLE {			# 個別のファイルを処理するルーチン
    $mes = $_[2];
    $count = $mes*100;
				# 各分野のタイトル
    print "\n- ASAHI  MES( $mes): $_[1] 朝日新聞 $date_now\n";

    open(FILE,"$_[0]") || die "Can't open file $_[0], stopped";

    while (<FILE>) {
	next unless (/^<h3>/);	# 記事以外は無視

	$count++;		# 記事番号を一つ増やす
				# NIFTYのログ形式に
	s/^<h3>■([^<]*)</00$count\/00000 ABC00000  $1\n($mes)\n</g;
	s/<[^>]*>//g;		# タグを全てとりのぞく
	s/[ 　]*\n[\n]*/\n/g; # 空行・行末のスペースを削除
	s/\n$//g;		# 最後の改行は削除
				# ツリーモードでも文字化けしないように
	s/^([^ ]*) ([^ ]*)  (................)([^\n]*)\n/$1 $2  $3 $4\n/g;
	print $_, "\n\n";
    }
    close(FILE);
}
