Byrne, Dermot wrote:
Hello
As Bill suggested, here is what I have at the moment
$startFormatted is the date that comes out of database
(formatted with DATE_FORMAT( datetime, '%S %i %H %w %m %Y'))
# I have module
use Time::localtime;
# firstly i split variable into parts
my ($sec, $min, $hour, $day, $month, $year) = split(/ +/,$startFormatted);
# but if I put into localtime function
my($localisedsec, $localisedmin, $localisedhour, $localisedday,
$localisedmonth, $localisedyear) = localtime ($sec, $min, $hour, $day,
$month, $year);
# i get 'Too many arguments for localtime ' error
localtime takes one optional arg - an epoch time.
Maybe you want timelocal instead ?
when I put into localtime function like this
my($localisedsec, $localisedmin, $localisedhour, $localisedday,
$localisedmonth, $localisedyear) = localtime ($startFormatted);
# i doesn't mind however
# the statements
print $ENV{TZ};
print "<br>$startFormatted <br>";
print "$sec, $min, $hour, $day, $month, $year <br>";
print "$localisedsec, $localisedmin, $localisedhour, $localisedday,
$localisedmonth, $localisedyear";
#produce this output
CET
00 00 14 0 03 2003
00, 00, 14, 0, 03, 2003
0, 0, 1, 1, 0, 70
--
,-/- __ _ _ $Bill Luebkert ICQ=162126130
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl)
-/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
