[‚à‚‚¶‚Ö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‚Ö]
|