| 2005年7月のカレンダータグ作成
&Make_Calendar( 2005, 7 );
---------------------------------------------------
●Sample
require "calendar.pl";
$year = 2005; #西暦(4桁)
$month = 7; #月
my $TR = &Make_Calendar($year, $month);
my $HTML = "<HTML><BODY>";
$HTML =. "<TABLE>";
$HTML =. $TR;
$HTML =. "</TABLE>";
$HTML =. "</BODY></HTML>";
print "Content-Type: text/html\n\n";
print $HTML;
---------------------------------------------------
|
年と月を指定すると、指定年月のカレンダータグが返ってきます。