|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ivan Frolcov 2:5020/400 24 Dec 2002 21:52:19
To : Sergey Kravchenko
Subject : Re: глюк со временем
--------------------------------------------------------------------------------
On Mon, 23 Dec 2002 06:16:42 +0000 (UTC), " Sergey Kravchenko"
<skravch@aport.ru> wrote:
>веду статистику посещений следующим образом:
>open (wrecord, ">>stats/record.txt") || &error("Unable to open the data file
>for writing");
>
>if ($flock eq "y") {
>flock wrecord, 2;
>}
>print wrecord "$host ";
>@tim1=gmtime(time);
>$sec = @tim1[0];
>if($sec<10) {$sec="0".$sec;}
>$year = @tim1[5]+1900;
>$day = @tim1[3];
>$month = @tim1[4]+1;
>$hour = @tim1[2]+3;
>$min = @tim1[1];
>print wrecord $hour.":".$min.":".$sec." ".$day.".".$month.".".$year." viewed
>".$par;
>print wrecord "\n\n";
>close (wrecord);
>сервер в локалке, на моем компе, поэтому работает не круглосуточно, когда я
>его запускаю, часиков 5-6вечера, то все идет нормально, но после 0 часов,
>скажем, 22 декабря идет такая херня
>dolls 25:16:45 22.12.2002 viewed main
>т.е. дата не переводится и появляется 25, 26-й и т.д. час... потом, когда
>спать ложусь - я сервак отключаю, и на следующий день все ок до 0 часов...
>собственно, как побороть сабж?
О воин, службою живущий!
Читай устав на сон грядущий!
И ото сна с утра восстав,
Читай усиленно устав!
(с)А.В.Суворов
Где ты такое курить научился, что к часам начал 3 прибавлять?
>кстати Apsche и Perl работают в win2k - мож для такой системы какие-то
>особенности?
Hаверное...
>да и еще, как вы заметили, месяц приходится почему-то прибавлять... выдается
>меньшее значение...
Черт его знает, понапридумывают всякого...
>Hе будем лишать детей - детства, стариков - старости, а девушек -
>мороженого:)
Программистов - документации? Hу прочитай, что в ней по поводу времени
написано...
--- ifmail v.2.15dev5
* Origin: Golden Telecom (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
