On Mon, 10 Feb 2003 16:42:43 -0800, [EMAIL PROTECTED] (David) wrote:
>Chris wrote:
>
>> I need to work with epoch time past the year 2038.
>>
>> my $time = gmtime(2147483647 + 1);
>> print $time;
>>
>> any ideas?
>
>try:
>
>#!/usr/bin/perl -w
>use strict;
>
>use Date::Manip;
>
>print "35 years and 20 minutes from now is: ",
> UnixDate(ParseDate("35 years 20 minutes"),"%s"),"\n";
>
>print "epoch 2149461226 seconds translate to: ",
> UnixDate(ParseDate("epoch 2149461226"),"%m/%d/%Y %H:%M:%S"),"\n";
>
>__END__
>
>prints:
>
>35 years and 20 minutes from now is: 2149462888
>epoch 2149461226 seconds translate to: 02/10/2038 16:33:46
>
>david
Nice. Do you know a hack? I am limited to a small perl 5.6.1 distro.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
