On 11 Feb 2003 10:59:09 -0000, [EMAIL PROTECTED] (Felix
Geerinckx) wrote:

>on Tue, 11 Feb 2003 00:31:22 GMT, [EMAIL PROTECTED] (Chris) wrote:
>
>> Nice. Do you know a hack? I am limited to a small perl 5.6.1
>> distro. 
>
>The hack you are looking for can be found in the source code of the
>Date::Manip module. 

OK. Let me re-phrase that. Do you know a quick hack?

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

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to