[‚à‚­‚¶‚Öbƒgƒbƒvƒy[ƒW‚Öb‘Oƒy[ƒW‚ÖbŽŸƒy[ƒW‚Ö]

‚ÉXV

[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[

@‚TD“ú•tEŽž

@“ú•t‚⎞‚ÍAŽ©•ª‚̃z[ƒ€ƒy[ƒW‚ð‚¢‚Â–K‚ꂽ‚©‚̃^ƒCƒ€ƒXƒ^ƒ“ƒv‚ÉŽg‚í‚ê

@‚Ü‚·B

@“ú•tEŽž‚̃vƒƒOƒ‰ƒ€

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

print "<HTML>\n";
print "<TITLE>“ú•tEŽž</TITLE>\n";
print "<BODY>\n";
#
( $sec, $min, $hour, $mday, $mon, $year, $wday,$isdst ) = localtime(time);
$mon++;
@week = ( '“ú', 'ŒŽ', '‰Î', '…', '–Ø', '‹à', '“y' );
$wday = $week[$wday];
print "$year”N$monŒŽ$mday“ú$wday—j“ú : $hourŽž$min•ª$sec•b \n";
#
print "</BODY>\n";
print "</HTML>\n";



( $sec, $min, $hour, $mday, $mon, $year, $wday,$isdst )
= localtime(time);


@•bi‚O`‚T‚XjA•ªi‚O`‚T‚XjAŽži‚O`‚Q‚RjA“úi‚P`‚R‚PjA

@ŒŽi‚O`‚P‚PjA”Ni¼—ï‚̉º‚QŒ…jA—j“úi‚O`‚UjA‰ÄŽžŠÔ’²®

@i‚O‚©‚Pj‚ª¶•Ó‚Ì•Ï”‚É‚»‚ꂼ‚ê‘ã“ü‚³‚ê‚Ü‚·B


$mon++;


@ŒŽ‚ð‚P‘‚₵‚Ü‚·B$mon = $mon + 1 ‚Å‚à‚¢‚¢‚Å‚·B


@week = ( '“ú', 'ŒŽ', '‰Î', '…', '–Ø', '‹à', '“y' );


@”z—ñ•Ï” @week ‚É—j“ú‚ð‘ã“ü‚µ‚Ä‚¢‚Ü‚·B


$wday = $week[$wday];


@ŽÀsŽž‚Ì—j“ú‚ð•ÏŠ·‚µ‚Ü‚·B


print "$year”N$monŒŽ$mday“ú$wday—j“ú : $hourŽž$min•ª$sec
•b \n";


@“ú•tEŽž‚ð•\Ž¦‚µ‚Ü‚·B



@‚±‚̃vƒƒOƒ‰ƒ€‚É“K“–‚È–¼‘O‚ð‚‚¯‚ÄAƒeƒLƒXƒgƒ‚[ƒh‚ŃAƒbƒvƒ[ƒh‚µ‚Ü‚·B

@ƒp[ƒ~ƒbƒVƒ‡ƒ“‚Í‚V‚T‚T‚Éݒ肵‚Ä‚­‚¾‚³‚¢B



@@ƒeƒXƒgŽÀs

@@@@@@time.cgi

@‚ðƒNƒŠƒbƒN‚µ‚Ä‚­‚¾‚³‚¢B

@‚±‚̃XƒNƒŠƒvƒg‚Í2000”N–â‘è‚ɑΉž‚µ‚Ä‚¨‚è‚Ü‚¹‚ñB‚²Ž©•ª‚Ål‚¦‚Ä‚Ý‚Ä‚­‚¾

@‚³‚¢B



@@‚¤‚Ü‚­“®‚«‚Ü‚µ‚½‚©H

@@“®‚©‚È‚¢‚Æ‚«‚ÍAƒTƒ|[ƒgŒfŽ¦”‚ւǂ¤‚¼B

[‚à‚­‚¶‚Öbƒgƒbƒvƒy[ƒW‚Öb‘Oƒy[ƒW‚ÖbŽŸƒy[ƒW‚Ö]