プログラムスレッド

74：マナウス ◆nDpXSJz8i.：2012/05/01(火) 18:37:27: #!/usr/local/bin/perl

require '../cgi-lib.pl';
&ReadParse(*in);

$age_y = $in{'year'};
$age_m = $in{'month'};
$age_d = $in{'day'};
$age_y = sprintf("%04d",$age_y);
if ($age_m < 10) { $age_m = sprintf("%01d",$age_m); }
else { $age_m = sprintf("%02d",$age_m); }
if ($age_d < 10) { $age_d = sprintf("%01d",$age_d); }
else { $age_d = sprintf("%02d",$age_d); }
if ($age_y =~/\W+$/) { &error; }
if ($age_m =~/\W+$/) { &error; }
if ($age_d =~/\W+$/) { &error; }

($sec,$min,$hour,$mday,$mon,$year,$wno) = localtime(time);
@wdays = ('SUN','MON','TUE','WED','THU','FRI','SAT');
$nitizi = sprintf("%04d/%02d/%02d(%s) %02d:%02d",$year+1900,$mon+1,$mday,$wdays[$wno],$hour,$min);

$age = "";
$age = $year - $age_y;
if ($age_m > $mon) { $age = $age - 1; }
if ($age_m == $mon) {
if ($age_d > $mday) { $age = $age - 1; }
}

print "Content-type: text/html\n";
print "\n";
print "貴方は $age_y年$age_m月$age_d日生まれ（満$age才）<br>\n";

exit;

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板