ココとPerlで头びませんか(栏まれてから部泣々)

お寐栏泣を兜えてくださいこのペ〖ジは≈钳奉泣や退泣ˇ箕癸の艰评∽≈沸册泣眶の纷换∽の鲁试です。まだご枉になっていない数は、それぞれを徊雇にしてください。

艰り圭えず棱汤の涟に、こちら≈お寐栏泣を兜えてください∽を斧てください。栏钳奉泣から、附哼部盒か、栏まれた泣は部退泣か、栏まれてから部泣誊か、奔钳を部搀沸赋したか、これから忿える淡前泣はいつか(栏寐部泣)を纷换します。

いかがでしたでしょうか。それではスクリプトを棱汤しますが、その涟に钳奉泣の掐蜗茶烫のHTMLについて词帽に棱汤しておきます。

掐蜗フォ〖ム

继靠の山绩や嘿かいテ〖ブルの淡揭は臼维しましたので、涩妥なときはソ〖スを斧てください。橙磨灰をshtmlにしましたが、もちろんhtmlでもhtmでも菇いません。
掐蜗のペ〖ジ nisukeisan.shtml では惧のように、POSTメソッドで谰务钳(startyear)と奉(startmon)、泣(startday)を掐蜗するようになっています。POSTメソッドについては≈テキストの咖仑え∽を徊救してください。CGIに滦して称掐蜗灌誊デ〖タの苞畔し叹を肋年しています。

送ココの寐栏泣は1991钳2奉24泣ですから冯蔡はこうです—

それではCGIスクリプトの嘿かい棱汤を幌めましょう。棱汤は称フレ〖ズごとにソ〖スを绩しながら乖います。このペ〖ジの呵稿にスクリプト链挛を山绩できるようにしました。コピ〖アンドペ〖ストをすれば悸乖できます。

#!/usr/local/bin/perl #GET,POST借妄 require './stdin.txt';
#!/usr/local/bin/perlでPerlの疤弥を离咐しています。
require './stdin.txt'はGET,POST借妄の借妄ができるようにするstdin.txtを粕み哈むものです。requireについては≈疯り矢剁を钙び哈む∽を徊救してください。
≮ⅹPerl Reference: require≯
stdin.txtについては≈テキストの咖仑え∽を徊救してください。

###############################
# POST GET デ〖タ艰评 滦炳
###############################

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
}

1;

# 介袋肋年 $title = "お寐栏泣を兜えてください"; $leap = 0;# 奔钳冉年フラグ $leaps = 0;# 奔钳沸册搀眶 $days = 0;# 沸册泣眶 # 1奉から12奉までの奶撅奉琐 @monthday = ('31','28','31','30','31','30','31','31','30','31','30','31'); # 纷换倡幌泣艰评 $startyear = $FORM{'startyear'};# 掐蜗钳 $startmon = $FORM{'startmon'};# 掐蜗奉 $startday = $FORM{'startday'};# 掐蜗泣
介袋肋年婶尸です。黎ほどの掐蜗フォ〖ムから流られる钳奉泣の艰评を乖っています。

# 附哼泣箕の艰评 ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); $year2 = $year + 1900; $mon2 = $mon + 1; $startmon2 = $startmon - 1; $yyyymmddJ = sprintf("%d钳%d奉%d泣", $year2, $mon2, $mday); $yyyymmddJ2 = sprintf("%d钳%d奉%d泣", $startyear, $startmon, $startday); $yobiJ = sprintf("%s", ("泣", "奉", "残", "垮", "腾", "垛", "炮")[$wday]);
localtime(time)で附哼泣箕を艰评しています。拒しくは≈钳奉泣や退泣ˇ箕癸の艰评∽を徊救してください。
≮ⅹPerl Reference: time≯
≮ⅹPerl Reference: localtime≯

print "Content-type: text/html\n\n"; print qq| <html> <head><title>$title</title> <meta http-equiv="Content-Type" content="text/html; charset=x-euc-jp"> </head> <body link="#006EFF" vlink="#006eff bgcolor="#DDDDDD""> <center> <table width="450" cellpadding="8" border="0"> |;
ここではHTMLのフッタ〖婶尸の淡揭をしています。print矢ではダブルクォ〖テ〖ション(")ではなく、qqを蝗脱しています。\"と今くのが烫泡だっただけです。print矢は≈茶烫に矢机を山绩しよう∽を徊救してください。

&ymd_check;# 纷换倡幌钳奉泣チェックサブル〖チンへ
ymd_checkというサブル〖チンに若ばしています。誊弄は掐蜗钳奉泣が赖しいかどうかのチェックです。

ymd_check
###纷换倡幌钳奉泣チェックサブル〖チン### sub ymd_check{ if($startyear eq '' || $startmon eq '' || $startday eq ''){ &error(1); } if($startyear =~ /\D/ || $startmon =~ /\D/ || $startday =~ /\D/){ &error(2); } if($startmon < 1 || $startmon > 12){ &error(3); } if($startyear > $year2) { &error(4); } if($startyear == $year2){ if($startmon > $mon2) { &error(5); } if($startmon == $mon2 && $startday > $mday) { &error(6); } } $get_year = $startyear; if(&leapyear($get_year) == 1) { $leap = 1; }elsif($startmon == 2 && $startday > 28) { &error(7); } if(($leap == 1 && $startmon == 2 && $startday > 29) || ($leap == 0 && $startday > @monthday[$startmon2])) { &error(8); } }

钳奉泣に部も掐蜗されなかった(ヌル)。
眶机笆嘲が掐蜗された
1奉から12奉の粗でない
寐栏泣の钳が塑泣よりも黎
寐栏の钳が海钳で、かつ寐栏泣の奉が海奉より黎
寐栏の钳が海钳で、かつ寐栏泣の奉が海奉で、かつ泣にちがきょうよりも黎

	if(($leap == 1 && $startmon == 2 && $startday > 29) || ($leap == 0 && $startday > @monthday[$startmon2])) { &error(8); }

######エラ〖山绩サブル〖チン######
sub error{
	$mess = "纷换倡幌钳奉泣は塑泣笆涟でないとエラ〖としています。<br>\n";
	$error = $_[0];
	if($error == 1){ print "钳奉泣が掐蜗されていません。"; }
	if($error == 2){ print "0から9までの染逞眶机で掐蜗してください。"; }
	if($error == 3){ print "<font color='red'>$startmon奉</font>ですか—"; }
	if($error == 4){ print "$mess$year2钳笆涟の钳を掐蜗してください。"; }
	if($error == 5){ print "$mess$mon2奉笆涟の奉を掐蜗してください。"; }
	if($error == 6){ print "$mess<font color='red'>$startday泣</font>が疙っています。$mday泣笆涟の泣烧を掐蜗してください。"; }
	if($error == 7){ print "$startyear钳の$startmon奉には<font color='red'>$startday泣</font>はありません。"; }
	if($error == 8){ print "$startmon奉には<font color='red'>$startday泣</font>はありません。"; }
	print "<br>もう办刨<a href=\"Javascript:history.back()\">掐蜗</a>してください。\n";
	exit(1);
}

######奔钳の冉年サブル〖チン######
sub leapyear
{
	local($get_year) = @_;
	if(($get_year % 4 == 0 && $get_year % 100 != 0) || $get_year % 400 == 0){
		return 1;
	}else{
		return 0;
	}
}

さてこれからがメインの借妄です。

#碰钳碰奉の泣眶纷换 if($startyear == $year2 && $startmon == $mon2){#纷换倡幌が票钳票奉 $days = $mday - $startday; }else{ $days = $mday; } if($startyear == $year2 && $leap == 1 && $startmon2 <= 2 && $startday <= 29){ $leaps++; }
ここでは寐栏泣が海钳でしかも海奉なら、きょうの泣烧から寐栏泣の泣烧を苞いた猛を$daysに洛掐します。掐蜗のチェックで寐栏泣がきょうよりも络きいことはエラ〖としてありますので、ここではマイナスの猛にになることはありません。
票钳票奉でない眷圭は、elseで塑泣の泣烧を$daysに洛掐します。
$daysは寐栏泣からきょうまでの沸册泣眶を掐れる恃眶です。
呵稿の乖にあるif矢は泣眶纷换とは簇犯がありません。奔钳を部搀沸赋したかをカウントするようにしています。

#纷换倡幌奉の泣眶纷换(纷换倡幌钳奉と碰钳奉が票じでない箕) unless($startyear == $year2 && $startmon2 == $mon){ $days = $days + @monthday[$startmon2] - $startday; #倡幌奉が奔钳で2奉29泣笆涟なら1を裁换 if($leap == 1 && $startmon2 <= 2 && $startday <= 29){ $days++; $leaps++; } }
unless矢を蝗っています。if矢の嫡ですね。if矢は≈もしＸＸＸだったら∽ですがunlessは≈もしＸＸＸでなかったら∽です。if矢でも今けますが、この数が今きやすかったので蝗脱しました。寐栏泣の钳奉と海が票じでない箕、$daysに寐栏泣の奉の奉琐泣眶を裁换し、寐栏泣の泣烧を负换しています。
if矢で奔钳のときは$daysに1を颅し、さらに奔钳沸赋搀眶$leapsにも1を颅しています。

#纷换倡幌钳と附哼钳との粗の钳の泣眶纷换 if(($year2 - $startyear) > 1){ $days = $days + ($year2 - $startyear - 1) * 365; for($nen = $startyear + 1;$nen < $year2;$nen++){ $age++;#钳勿裁换 if((($nen % 4 == 0) && ($nen % 100 != 0)) || ($nen % 400 == 0)){ $days++;#面粗钳が奔钳なら1を裁换 $leaps++;#奔钳の搀眶を裁换 } } }
寐栏泣が办候钳笆涟なら、寐栏钳と海钳を近いた钳刨の泣眶を纷换しています。

	for($nen = $startyear + 1;$nen < $year2;$nen++){ 借妄 ]

#荒り奉の泣眶纷换 if($startyear != $year2){# 纷换倡幌钳と附哼钳が佰なる for($tsuki = $startmon;$tsuki < 12;$tsuki++){# 纷换倡幌钳泣眶纷换 $days = $days + @monthday[$tsuki]; } for($tsuki = $mon - 1;$tsuki >= 0;$tsuki--){# 碰钳泣眶纷换 $days = $days + @monthday[$tsuki]; } }else{# 纷换倡幌钳と附哼钳が票じ for($tsuki = $mon -1;$tsuki > $startmon2;$tsuki--){# 碰钳 $days = $days + @monthday[$tsuki]; } }
泣眶纷换の呵稿です。海まで

海奉の奉介からきょうまでの泣眶
寐栏泣の奉介から奉琐までの泣眶
寐栏钳と海钳との粗の钳の泣眶

if($startyear != $year2){　}で海钳寐栏泣の客はelse笆布の借妄に若びます。else笆布をでは碰钳の黎奉から寐栏奉の外奉までの泣眶纷换をします。
纷换倡幌钳と附哼钳が佰なるときは、呵介のfor矢で寐栏奉の外奉から12奉まで、肌のfor矢で海钳の1奉から黎奉までの纷换で、称」称奉の泣眶(@monthday[$tsuki])を$daysに裁换しています。

# 钳勿裁换 if($startyear != $year2 && $startmon2 <= $mon){ unless($startmon2 != $mon && $startday < $day){ $age++; } }
ここでは笆涟に纷换した钳勿に嘿かい裁换をしています。if矢で、海钳栏まれではなくて、かつ寐栏奉が碰奉笆涟の客を滦据にしています。
unless(掘凤){借妄} でif矢の嫡の借妄をしています。寐栏奉が碰奉でなく、かつ、きょうよりも寐栏泣が井さい掘凤を容年できる客に1盒钳勿に裁换しています。

#寐栏泣退泣纷换 $yobi = $wday - $days % 7; $yobiJ2 = sprintf("%s", ("泣", "奉", "残", "垮", "腾", "垛", "炮")[$yobi]);
% は娟途を罢蹋します。链て纷换が姜位した寐栏泣からの栏扯泣眶を７で充って、その途りを滇めます。その猛を$wday(きょうの退泣の猛)から苞いて$yobiに洛掐しています。その猛はマイナスの眷圭もありえます。
sprintfを蝗って$yobiの猛から山绩できる退泣を滇めています。
毋えば、きょうが残退泣なら$wdayの猛は2、栏扯泣眶を7で充った途りが1なら$yobiは2-1で1。$yobiJ2は"奉"となります。sprintfはプラスの猛でもマイナスの猛でも滦炳してくれます。

やっと纷换は姜位しましたので、茶烫に山绩することにします。
#淡前泣ˇ钳勿霹山绩 print "<tr><td width=\"100\"><img src=\"../images/coco_122_l.jpg\" width=\"100\" height=\"80\"></td><td align=\"center\" width=\"250\"><font size=\"+2\"><b>栏寐淡前泣</b></font></td><td align=\"right\" width=\"100\"><img src=\"../images/coco_122_l.jpg\" width=\"100\" height=\"80\"></td></tr>\n"; print "<tr><td colspan=\"3\">きょうは$yyyymmddJ($yobiJ)です。</td></tr>\n"; if($age == ''){$age = 0;} print "<tr><td colspan=\"3\">あなたのお寐栏泣は$yyyymmddJ2ですから $age盒ですね。お寐栏泣は$yobiJ2退泣でしたよ。</td></tr>\n"; print "<tr><td colspan=\"3\">きょうは、あなたのお寐栏泣から眶えて<br>$days泣誊です。</td></tr>\n"; print "<tr><td colspan=\"3\">あなたが海まで沸赋した奔钳は$leaps搀です。</td></tr>\n";
海までの冯蔡を山绩させているだけです。

#淡前泣の纷换 $count == 0;#栏寐淡前泣山绩乖カウント $oneday_sec = 60 * 60 * 24; for($i = 1000;$i < 40001;$i = $i + 1000){# 淡前泣を山绩する泣眶の粗持 if($days < $i){ $myday = $i - $days; $ii = $myday * $oneday_sec; $xtime = time + $ii; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($xtime); $year2 = $year + 1900; if($year > 0){ $mon2 = $mon + 1; $yyyymmddJ = sprintf("%d钳%d奉%d泣", $year2, $mon2, $mday); if($count == 0){ print "<tr><td colspan=\"3\" colspan=\"3\">$yyyymmddJが部の泣かご赂梦ですか々\n"; print "<DIV align=\"right\">ⅹあなたの∝栏寐$i泣≠誊の淡前泣です—</DIV></td></tr>\n"; $count = 1; }else{ print "<tr><td colspan=\"3\" colspan=\"3\">∝栏寐$i泣≠　$yyyymmddJ</td></tr>\n"; } } } }

警し墓いですが、ここでは淡前泣の纷换をしながら山绩しています。for矢で淡前泣を1000泣誊から1000泣髓に纷换するようにしています。
呵介のif矢、if($days < $i){　}で牢の淡前泣を近嘲しています。
淡前泣の沸册擅眶をlocaltimeに涂え泣烧を滇めています。
if($year > 0){　}でlocaltimeの批えが0の眷圭を近嘲しています。localtimeでは2038钳のある泣にち笆惯は纷换できないようだからです。侍の数恕で纷换させてもよかったのですが、localtimeの棱汤のためこの数恕を艰りました。

if($count == 0){　}は呵介のメッセ〖ジとそれ笆惯のメッセ〖ジを恃えたかったので、このようにしました。

print "<tr><td colspan=\"3\"><br>戮の寐栏泣を拇べるなら<a href=\"../nisukeisan.shtml\">コチラ</a></td></tr>\n"; ######フッタ〖借妄###### print qq( </table> </center> <p align="right"><font size="-1">このペ〖ジの豺棱は<a href="../l_nisukeisan2.html">こちらⅹ</a></font></p> <hr> <center> <font size="1">| <a href="Javascript:history.back()">Back</a> | | <a href="../../index.html">Coco's Home</a> | | <a href="../index.html">ココとPerlで头びませんか</a> | <hr> Copyright 2001 Coco's Home. All rights reserved.</font> </center> </body> </html> ); exit(0);
これで呵稿です。ここではHTMLの涅めを乖っているだけです。

これで棱汤が姜位しました。海までパ〖ト髓に山绩していたスクリプトを布にまとめて山绩しておきます。コピ〖して悸赋してみてください。蝗脱するファイルは nisukeisan.cgi と stdin.txt です。CGIの悸乖できる、票じディレクトリに弥いてください。

###############################
# POST GET デ〖タ艰评 滦炳
###############################

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
}

1;

#!/usr/local/bin/perl

###################################################
# 2001.11.19
# お寐栏泣を兜えてください
# Satoshi Sekiguchi
###################################################

#GET,POST借妄
require './stdin.txt';

# 介袋肋年
$title = "お寐栏泣を兜えてください";
$leap = 0;# 奔钳冉年フラグ
$leaps = 0;# 奔钳沸册搀眶
$days = 0;# 沸册泣眶
# 1奉から12奉までの奶撅奉琐
@monthday = ('31','28','31','30','31','30','31','31','30','31','30','31');
# 纷换倡幌泣艰评
$startyear = $FORM{'startyear'};# 掐蜗钳
$startmon = $FORM{'startmon'};# 掐蜗奉
$startday = $FORM{'startday'};# 掐蜗泣

# 附哼泣箕の艰评
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$year2 = $year + 1900;
$mon2 = $mon + 1;
$startmon2 = $startmon - 1;
$yyyymmddJ = sprintf("%d钳%d奉%d泣", $year2, $mon2, $mday);
$yyyymmddJ2 = sprintf("%d钳%d奉%d泣", $startyear, $startmon, $startday);
$yobiJ = sprintf("%s", ("泣", "奉", "残", "垮", "腾", "垛", "炮")[$wday]);  

# ヘッダ〖山绩
print "Content-type: text/html\n\n";
print qq|
<html>
<head><title>$title</title>
<meta http-equiv="Content-Type" content="text/html; charset=x-euc-jp">
</head>
<body link="#006EFF" vlink="#006eff" bgcolor="#DDDDDD">
<center>
<table width="450" cellpadding="8" border="0">
|;

##############################################
&ymd_check;# 纷换倡幌钳奉泣チェックサブル〖チンへ

#碰钳碰奉の泣眶纷换
if($startyear == $year2 && $startmon == $mon2){#纷换倡幌が票钳票奉
		$days = $mday - $startday;
}else{
		$days = $mday;
}
if($startyear == $year2 && $leap == 1 && $startmon2 <= 2 && $startday <= 29){
	$leaps++;
}

#纷换倡幌奉の泣眶纷换(纷换倡幌钳奉と碰钳奉が票じでない箕)
unless($startyear == $year2 && $startmon2 == $mon){
	$days = $days + @monthday[$startmon2] - $startday;
	#倡幌奉が奔钳で2奉29泣笆涟なら1を裁换
	if($leap == 1 && $startmon2 <= 2 && $startday <= 29){ $days++; $leaps++; }
}

#纷换倡幌钳と附哼钳との粗の钳の泣眶纷换
if(($year2 - $startyear) > 1){
#if($startyear != $year2 && 1 != $year2 - $startyear){
	$days = $days + ($year2 - $startyear - 1) * 365;
	for($nen = $startyear + 1;$nen < $year2;$nen++){
		$age++;#钳勿裁换
		if((($nen % 4 == 0) && ($nen % 100 != 0)) || ($nen % 400 == 0)){
			$days++;#面粗钳が奔钳なら1を裁换
			$leaps++;#奔钳の搀眶を裁换
		}
	}
}

#荒り奉の泣眶纷换
if($startyear != $year2){# 纷换倡幌钳と附哼钳が佰なる
	for($tsuki = $startmon;$tsuki < 12;$tsuki++){# 纷换倡幌钳泣眶纷换
		$days = $days + @monthday[$tsuki];
	}
	for($tsuki = $mon - 1;$tsuki >= 0;$tsuki--){# 碰钳泣眶纷换
		$days = $days + @monthday[$tsuki];
	}

}else{# 纷换倡幌钳と附哼钳が票じ
	for($tsuki = $mon -1;$tsuki > $startmon2;$tsuki--){# 碰钳
		$days = $days + @monthday[$tsuki];
	}
}

# 钳勿裁换
if($startyear != $year2 && $startmon2 <= $mon){
	unless($startmon2 != $mon && $startday < $day){ $age++; }
}

#寐栏泣退泣纷换
$yobi = $wday - $days % 7;
$yobiJ2 = sprintf("%s", ("泣", "奉", "残", "垮", "腾", "垛", "炮")[$yobi]);  

#淡前泣ˇ钳勿霹山绩
print "<tr><td width=\"100\"><img src=\"../images/coco_122_l.jpg\" width=\"100\" height=\"80\"></td><td align=\"center\" width=\"250\"><font size=\"+2\"><b>栏寐淡前泣</b></font></td><td align=\"right\" width=\"100\"><img src=\"../images/coco_122_l.jpg\" width=\"100\" height=\"80\"></td></tr>\n";
print "<tr><td colspan=\"3\">きょうは$yyyymmddJ($yobiJ)です。</td></tr>\n";
if($age == ''){$age = 0;}
print "<tr><td colspan=\"3\">あなたのお寐栏泣は$yyyymmddJ2ですから $age盒ですね。お寐栏泣は$yobiJ2退泣でしたよ。</td></tr>\n";
print "<tr><td colspan=\"3\">きょうは、あなたのお寐栏泣から眶えて<br>$days泣誊です。</td></tr>\n";
print "<tr><td colspan=\"3\">あなたが海まで沸赋した奔钳は$leaps搀です。</td></tr>\n";

#淡前泣の纷换
$count == 0;#栏寐淡前泣山绩乖カウント
$oneday_sec = 60 * 60 * 24;
for($i = 1000;$i < 40001;$i = $i + 1000){# 淡前泣を山绩する泣眶の粗持
	if($days < $i){
		$myday = $i - $days;
		$ii = $myday * $oneday_sec;
		$xtime = time + $ii;
		($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($xtime);
		$year2 = $year + 1900;
		if($year > 0){
			 	$mon2 = $mon + 1;
				$yyyymmddJ = sprintf("%d钳%d奉%d泣", $year2, $mon2, $mday);
			if($count == 0){
				print "<tr><td colspan=\"3\" colspan=\"3\">$yyyymmddJが部の泣かご赂梦ですか々\n";
				print "<DIV align=\"right\">ⅹあなたの∝栏寐$i泣≠誊の淡前泣です—</DIV></td></tr>\n";
				$count = 1;
			}else{
				print "<tr><td colspan=\"3\" colspan=\"3\">∝栏寐$i泣≠　$yyyymmddJ</td></tr>\n";
			}
		}
	}
}

print "<tr><td colspan=\"3\"><br>戮の寐栏泣を拇べるなら<a href=\"../nisukeisan.shtml\">コチラ</a></td></tr>\n";

######フッタ〖借妄######
print qq(
</table>
</center>
<p align="right"><font size="-1">このペ〖ジの豺棱は<a href="../l_nisukeisan2.html">こちらⅹ</a></font></p>
<hr>
<center>
<font size="1">| <a href="Javascript:history.back()">Back</a> | 
| <a href="../../index.html">Coco's Home</a> | 
| <a href="../index.html">ココとPerlで头びませんか</a> | 
| <a href="./cocohome.cgi">ココのPerlだけでホ〖ムペ〖ジ</a> |
<hr>
Copyright 2001 Coco's Home. All rights reserved.</font>
</center>
</body>
</html>
);


exit(0);


###纷换倡幌钳奉泣チェックサブル〖チン###
sub ymd_check{
	if($startyear eq '' || $startmon eq '' || $startday eq ''){ &error(1); }
	if($startyear =~ /\D/ || $startmon =~ /\D/ || $startday =~ /\D/){ &error(2); }
	if($startmon < 1 || $startmon > 12){ &error(3); }
	if($startyear > $year2) { &error(4); }
	if($startyear == $year2){
		if($startmon > $mon2) { &error(5); }
		if($startmon == $mon2 && $startday > $mday) { &error(6); }
	}
	$get_year = $startyear;
	if(&leapyear($get_year) == 1) { $leap = 1;
		}elsif($startmon == 2 && $startday > 28) { &error(7); }
	if(($leap == 1 && $startmon == 2 && $startday > 29) || ($leap == 0 && $startday > @monthday[$startmon2])) { &error(8); }
}

######エラ〖山绩サブル〖チン######
sub error{
	$mess = "纷换倡幌钳奉泣は塑泣笆涟でないとエラ〖としています。<br>\n";
	$error = $_[0];
	if($error == 1){ print "钳奉泣が掐蜗されていません。"; }
	if($error == 2){ print "0から9までの染逞眶机で掐蜗してください。"; }
	if($error == 3){ print "<font color='red'>$startmon奉</font>ですか—"; }
	if($error == 4){ print "$mess$year2钳笆涟の钳を掐蜗してください。"; }
	if($error == 5){ print "$mess$mon2奉笆涟の奉を掐蜗してください。"; }
	if($error == 6){ print "$mess<font color='red'>$startday泣</font>が疙っています。$mday泣笆涟の泣烧を掐蜗してください。"; }
	if($error == 7){ print "$startyear钳の$startmon奉には<font color='red'>$startday泣</font>はありません。"; }
	if($error == 8){ print "$startmon奉には<font color='red'>$startday泣</font>はありません。"; }
	print "<br>もう办刨<a href=\"Javascript:history.back()\">掐蜗</a>してください。\n";
	exit(1);
}

######奔钳の冉年サブル〖チン######
sub leapyear
{
	local($get_year) = @_;
	if(($get_year % 4 == 0 && $get_year % 100 != 0) || $get_year % 400 == 0){
		return 1;
	}else{
		return 0;
	}
}

お辱れ屯でした—