※ ChatGPTを利用し、要約された質問です（原文：カレンダ－の表示）
カレンダーの表示
このQ&Aのポイント
カレンダーを表示するプログラムの作成方法と表示位置の調整方法を教えてください。
カレンダーを画面の一番上から表示したいのですが、何行か下に表示されてしまいます。一番上から表示する方法を教えてください。
Perlで作成したカレンダーをHTMLフォーマットで表示する方法を教えてください。
下記はカレンダ－を表示するプロガラムです、
画面の一番上から表示したいのですが何行か下に表示されます、
一番上から表示するのは、どうしたら良いですか、
よろしくお願いします。
#!/usr/local/bin/perl
print "Content-type: text/html\n";
print "\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>カレンダ－</TITLE>\n";
print "</HEAD>\n";
##########################################
@youbi = ('日', '月', '火', '水', '木', '金', '土');
print "<BODY BGCOLOR=\"WHITE\">\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" cellpadding=\"1\" cellspacing=\"2\"><TBODY><TR VALIGN=\"top\" BGCOLOR=\"BLUE\"><TD>\n";
$tuki = 0;
for ($k = 1; $k <= 12; $k++)
{
print "<TABLE BORDER=\"0\" BGCOLOR=\"BLUE\" cellpadding=\"2\" cellspacing=\"1\" width=25%><TBODY>\n";
print "<TR ALIGN=\"middle\"><TD colspan=\"7\"><FONT SIZE=\"2\" COLOR=\"WHITE\">$year年 $ntuki月</FONT></TD></TR>\n";
print "<TR>\n";
for ($i = 0; $i < 7; $i++) {
print "<TH BGCOLOR=\"SKYBLUE\"><FONT SIZE=\"2\" COLOR=\"BLACK\">$youbi[$i]</FONT></TH>\n"; }
if (($k == 4) || ($k == 8)){
print "</TBODY></TABLE></TD></TR><BR CLEAR=\"all\"><BR><TR VALIGN=\"top\" BGCOLOR=\"BLUE\"><TD>\n";}
elsif ($k == 12) {
print "</TBODY></TABLE></TD></TR></TBODY></TABLE><BR CLEAR=\"all\"><BR>\n";}
else {
print "</TBODY></TABLE></TD><TD>\n";}
$kuuhaku = 0;
$hiduke = 0;
}
print "</CENTER>\n";
print "</BODY>\n";
print "</HTML>\n";
お礼
有難うございます、 <TBODY>と</TBODY>のタグを削除すると 正しく表示されました。