|
                       |
 |

CGI-Programmierung
Serveruhrzeit auf deutsche Uhrzeit umstellen
- #!/usr/local/bin/perl
#-- HTTP-Header ausgeben
print"Content-type: text/html\n\n";
print "<html><body>\n";
print "<br>\n";
print "<H1>\n";
#-- Zeit
$time = time + 6 * 3600; # das +6 bezieht sich auf die Zeitverschiebung
($sec, $min, $hour, $day, $mon, $year) = (localtime($time))[0,1,2,3,4,5];
print " Die aktuelle Zeit ist: ${hour}:${min}:${sec} Uhr\n"
;
#--Ende
print "<br>\n";
print "</H1>\n";
print "</html></body>\n";
|
|