Date::Leapsecond - DEPRECATED: use "DateTime" distribution instead
use Date::Leapsecond; use Time::Local;
$epoch_2000 = timegm(0,0,0,1,0,2000 - 1900); $epoch_1990 = timegm(0,0,0,1,0,1990 - 1900); print "Seconds between years 1990 and 2000 are "; print Date::Leapsecond::ut1($epoch_2000) - Date::Leapsecond::ut1($epoch_1990); print " instead of "; print $epoch_2000 - $epoch_1990;
Use UT1 timescale to calculate precise time differences.
This library uses 1 second precision and is known accurate for dates from 1970-01-01 until 2002-12-31.
Returns the value of UT1 epoch, for a given UTC epoch.
UTC epoch is got from Time::Local
Returns the value of UTC epoch, for a given UT1 epoch.
Flávio Soibelmann Glock, <fglock@pucrs.br>