[‚à‚‚¶‚Ö�bƒgƒbƒvƒy�[ƒW‚Ö�b‘Oƒy�[ƒW‚Ö�bŽŸƒy�[ƒW‚Ö]
‚É�X�V
�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[�[
�@‚T�D“ú•t�EŽž��
�@“ú•t‚⎞��‚Í�AŽ©•ª‚̃z�[ƒ€ƒy�[ƒW‚ð‚¢‚Â–K‚ꂽ‚©‚̃^ƒCƒ€ƒXƒ^ƒ“ƒv‚ÉŽg‚í‚ê
�@‚Ü‚·�B
�@“ú•t�EŽž��‚̃vƒ�ƒOƒ‰ƒ€
#!/usr/local/bin/perl
print "Content-type:
text/html\n\n";
print "<HTML>\n";
print "<TITLE>“ú•t�EŽž��</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);
�@•b�i‚O�`‚T‚X�j�A•ª�i‚O�`‚T‚X�j�AŽž�i‚O�`‚Q‚R�j�A“ú�i‚P�`‚R‚P�j�A
�@ŒŽ�i‚O�`‚P‚P�j�A”N�i�¼—ï‚̉º‚QŒ…�j�A—j“ú�i‚O�`‚U�j�A‰ÄŽžŠÔ’²�®
�@�i‚O‚©‚P�j‚ª�¶•Ó‚Ì•Ï�”‚É‚»‚ꂼ‚ê‘ã“ü‚³‚ê‚Ü‚·�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";
�@“ú•t�EŽž��‚ð•\ަ‚µ‚Ü‚·�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‚Ö]
|