Hi Forian,
also für Perl kannst Du das mal probieren:
&uhrzeit;
print "Content-type: text/html\n\n";
print "uhr";
sub uhrzeit {
($sec,$min,$hour) = localtime(time);
if ($sec < 10) {
$sec = "0$sec";
}
if ($min < 10) {
$min = "0$min";
}
if ($hour < 10) {
$hour = "0$hour";
}
$uhr = "$hour:$min:$sec";
chop($uhr) if ($uhr =~ /\n$/);
$time = time();
}
Gruß
Tom