‚悤‚±‚»ƒJƒEƒ“ƒ^[ƒeƒXƒg‚ցB
main01.cgi

main01.cgi‚̃XƒNƒŠƒvƒg

#!/usr/local/bin/perl

require "./sub_gettime.pl";


print "Contrnt-type: text/html\n\n";
print &gettime();
exit;

main02.cgi

main02.cgi‚̃XƒNƒŠƒvƒg

#!/usr/local/bin/perl

require "./usr/users/WWW/htdoc/srys/bin/sub_gettime.pl";


print "Contrnt-type: text/html\n\n";
print &gettime();
exit;

sub_gettime.pl‚̃XƒNƒŠƒvƒg  sub gettime { ( $yyyymmdd, $youbi, $hhmmss ) = @_; ( $sec, $min, $hour, $day, $mon, $year, $wday ) = localtime( time ); $yyyymmdd = sprintf("%04d”N%02dŒŽ%02d“ú", $year+1900, $mon+1, $day ); $youbi = sprintf("(%s)", ("“ú", "ŒŽ", "‰Î", "…", "–Ø", "‹à", "“y")[$wday]); $hhmmss = sprintf("%02dŽž%02d•ª%02d•b", $hour, $min, $sec ); return $yyyymmdd.$youbi.$hhmmss; } #ƒTƒuƒ‹[ƒ`ƒ“‚̏I‚í‚è 1