> -----Original Message----- > From: Harry Putnam [mailto:[EMAIL PROTECTED]] > Sent: Monday, December 16, 2002 3:15 PM > To: [EMAIL PROTECTED] > Subject: localtime question - zero padding - mnth discrepancy > > > > I really have two questions here: > > 1) How can I get padded numbers in the single digit range in this > script?
Check the length of second, minute and hour. If the length == 1 then add a leading zero eg. $sec = "0" . $sec Maybe there is some other "magical" way of doing this, if there is i'm not aware of it :) > 2) Hoping tbis isn't some glaring mistake and I'm too blind to see it. > Notice how the month is off by 1 > perldoc -f localtime Basically it says that: 0 = January and 11 = December So just increment $month ie. $month++ > cat test.pl > > #!/usr/local/bin/perl -w > $now = time; > ## 1 day = 86400 > > $date_spec = ($now - 86400); > # local time adjusted > @lta = localtime($date_spec); > > # 0=second > # 1=minute > # 2=hour > # 3=day of mnth > # 5=year > # 4=mnth > # 6=day of week > > print " $lta[4]/$lta[3]/" . ($lta[5] += 1900) . " > $lta[2]:$lta[1]:$lta[0]\n"; > print localtime() . "\n"; > > OUTPUT: > > 11/14/2002 20:9:4 > Sun Dec 15 20:09:04 2002 > > Notice how the bare print on `localtime()' gives the desired padding. > Notice how the eleventh mnth is reported in the adjusted time. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
