Time::Epoch - Convert between Perl epoch and other epochs
#!/usr/bin/perl -wl use Time::Epoch; my $perlsec = 966770660; # Sun Aug 20 07:24:21 2000 -0400 on Mac OS my $epochsec = perl2epoch($perlsec, 'macos', '-0400'); my $perlsec2 = epoch2perl($epochsec, 'macos', '-0400'); print $perlsec; print $perlsec2; print $epochsec; # correct time on Unix: print scalar localtime $perlsec; # correct time on Mac OS (-0400): print scalar localtime $epochsec;
Exports two functions, perl2epoch and epoch2perl. Currently only goes between Perl (Unix) epoch and Mac OS epoch. This is in preparation for an eventual move of Perl to its own universal epoch, so we can get the system epoch of any platform that differs from Perl's.
perl2epoch
epoch2perl
macos
Takes additional optional parameter of time zone differential. If time zone differential not supplied, we guess by getting the different between localtime and gmtime with <Time::Local::timelocal>.
localtime
gmtime
Hm. With the above test, scalar localtime $perlsec under my Linux box and scalar localtime $epochsec under my Mac OS box are off by one second from each other. Maybe a leap second thing? Odd.
scalar localtime $perlsec
scalar localtime $epochsec
Chris Nandor <pudge@pobox.com>, http://pudge.net/
Copyright (c) 2000-2003 Chris Nandor. All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, distributed with Perl.
perl(1), perlport(1), Time::Local.
To install Time::Epoch, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Time::Epoch
CPAN shell
perl -MCPAN -e shell install Time::Epoch
For more information on module installation, please visit the detailed CPAN module installation guide.