Programmieren mit Perl

Timer::Local

use Time::Local;
$time = timelocal($sec,$min,$hours,$mday,$mon,$year);
$time = timegm($sec,$min,$hours,$mday,$mon,$year);

$time = timelocal(50, 45, 3, 18, 0, 73);
print "Skalares localtime liefert: ", scalar(localtime($time)), "\n";
$time += 28 * 365.2425 * 24 * 60 * 60;
print "Achtundzwanzig Jahre später ist es\n\t",
    scalar(localtime($time)), "\n";

Dies gibt folgendes aus:

Skalares localtime liefert: Thu Jan 18 03:45:50 1973
Achtundzwanzig Jahre später ist es
        Wed Jan 17 22:43:26 2001

Das Time::Local-Modul stellt die beiden Funktionen timelocal und timegm zur Verfügung. Sie fungieren als Umkehrfunktionen zu den Standardfunktionen localtime bzw. gmtime. Sie erwarten also eine Liste der numerischen Werte, die die verschiedenen Komponenten ...