This document is a Mac OS X manual page. Manual pages are a command-line technology for providing documentation. You can view these manual pages locally using the man(1) command. These manual pages come from many different sources, and thus, have a variety of writing styles.

For more information about the manual page format, see the manual page for manpages(5).

Epoch(3)                             User Contributed Perl Documentation                            Epoch(3)



NAME
       Time::Epoch - Convert between Perl epoch and other epochs

SYNOPSIS
         #!/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;

DESCRIPTION
       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.

       Epochs


          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>.

BUGS
          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.

AUTHOR
       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.

SEE ALSO
       perl(1), perlport(1), Time::Local.



perl v5.8.8                                      2003-05-21                                         Epoch(3)