Christian: Aktuelle Zeit (nicht seit 1970)

Beitrag lesen

Laß' Dir die Zeit von heute morgen 0:00 Uhr in Millisekunden seit 1970 ausgeben und benutze dies als Bezugspunkt.

Wie kann ich das tun?

Versuch's einfach mal so:
»#!/usr/bin/perl
»use CGI::Carp qw(fatalsToBrowser);
»print "Content-type: text/plain\n\n";
»($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$sommerz) = localtime(time);
»$year = $year + 1900;
»$mon = $mon + 1;
»if($min < "10") {
» $min = "0$min";
»}
»print "Es ist der $mday.$mon.$year\n";
»print "Es ist $hour:$min Uhr und $sec Sekunden";

Christian