#!/usr/bin/perl
# time-stamp: <00/09/05 14:30:42 kawasan>
# Time-stamp: <00/10/20 16:42:06 kawasan>
#
# ','区切りで表記されたテキストテーブルデータを
# HTML表記で吐き出す
# 
# 入力は標準入力
# 出力は標準出力
#

# HTML-File形式 = 0/1 = Off/On;
$html = 0;

if ( $html == 1 ) {
    print "<ｈｔｍｌ>\n";
    print "\n";
    print "\n";
    print "\n";
    print "<ｂｏｄｙ>\n";
}

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
print "\n";
print "<ｔａｂｌｅ border>\n";

while () {
    if ( /^#/ ) {
	next;
    }

    if ( /^$/ ) {
	next;
    }

    # ','区切りのデータを配列に取り込む
    chop();
    @tbls = split /,/;

    # 1行分処理
    print "<ｔｒ>";
    foreach $tbl (@tbls) {
	print "<ｔｄ>";
	print $tbl;
	print "";
    }
    print "\n"
}

print "\n";
print "\n";

if ( $html == 1 ) {
    print "\n";
    print "\n";
}