さて、HTMLの出力側も整理してみました。 各部分の出力をサブルーチン化して、メインの流れを分かりやすくすると、以下のようになりました。 sub STDOUT_HTML { &STDOUT_HEADER; &STDOUT_DAY_LIST( "header" ); for($index = 0 ; $index < @Msg_Line; $index…