Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Getting timein cgi
- Thread starter Keegan
- Start date
PhoenixDown
Programmer
I use this:
I hope this helps. :-D - PLEASE GO THERE! WE NEED MORE MEMBERS!
Code:
sub Time {
$timeoffset = 0;
($sec,$min,$hour,$mday,$mon,$year) = localtime(time + (3600*$timeoffset));
$hour = "0$hour" if ($hour < 10);
$min = "0$min" if ($min < 10);
$sec = "0$sec" if ($sec < 10);
$mday = "0$mday" if ($mday < 10);
$mon = "0$mon" if ($mon < 10);
$year = 2000 + ($year - 100);
# Date and time variables
$Date = "$mon-$mday-$year";
$Time = "$hour:$min:$sec";
}I hope this helps. :-D - PLEASE GO THERE! WE NEED MORE MEMBERS!
raider2001
Technical User
Another way:
use POSIX;
($Date, $Time) = POSIX::strftime("%m-%d-%Y%H:%M",localtime()) =~ m/^(.{10})(.{5})$/;
And yes you are loading the POSIX module, but it is only 20 KBytes.
use POSIX;
($Date, $Time) = POSIX::strftime("%m-%d-%Y%H:%M",localtime()) =~ m/^(.{10})(.{5})$/;
And yes you are loading the POSIX module, but it is only 20 KBytes.
raider - you would load the POSIX module just to use the time thingy? does it give you any advantages over the builtin functions localtime and gmtime? Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.
raider2001
Technical User
The only advantage would be 2 lines of code compared to 10 lines of code. The disadvantage would be the time required to load the POSIX module. I just wanted to point out another way of doing things.
- Status