PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: "Charles Taylor" <taylorc at sybase dot com>
Subject: Year 2000 problems??
Date: Jan 29 1998 4:20PM

Two dumb questions about time;
     1)Will the script below work in 2000? till.....
     2)This runs on NT, can a millisecond value be extracted?

# Calculate the file modification date
     ($a,$b,$c,$da,$mo,$yr,$x,$y,$z) = localtime((time)-($age*86400));
     $m = ($mo + 1);
     $m = sprintf("%02d",$m);
     $da = sprintf("%02d",$da);
     $c = sprintf("%02d",$c);
     $b = sprintf("%02d",$b);
     $a = sprintf("%02d",$a);
     $yr=(1900 + $yr);
     $ACTIVITYdate = "$yr$m$da.$c:$b:$a";

~Chuck