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‚̃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