Re: Time conversions

[Ed James, TCS Inc, 410-295-1919, [EMAIL PROTECTED]]

On Thu, 18 May 2000 11:30:08 -0400, Mike Marmor <[EMAIL PROTECTED]>
wrote:

> I meant simply converting from time() to OVMS external time format, e.g.
> 17-may-2000 12:34:11.45.

use POSIX qw( strftime);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
$vms_time = POSIX::strftime( "%m-%b-%Y %H:%M:%S.00",
    ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst));
print uc( $vms_time), "\n";

Note that the ".th" is specified by ".00" since it's not available.

Ed James                           [EMAIL PROTECTED]
TeleCommunications Systems, Inc.   voice 410-295-1919
275 West Street, Suite 400         fax   410-280-1094
Annapolis, MD 21401-1740