|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 23 Dec 2002 14:33:19
To : " Sergey Kravchenko"
Subject : Re: глюк со временем
--------------------------------------------------------------------------------
Здравствуй, Sergey Kravchenko.
SK> веду статистику посещений следующим образом:
SK> open (wrecord, ">>stats/record.txt") || &error("Unable to open the data file
SK> for writing");
SK> if ($flock eq "y") {
SK> flock wrecord, 2;
SK> }
SK> print wrecord "$host ";
SK> @tim1=gmtime(time);
SK> $sec = @tim1[0];
SK> if($sec<10) {$sec="0".$sec;}
SK> $year = @tim1[5]+1900;
SK> $day = @tim1[3];
SK> $month = @tim1[4]+1;
SK> $hour = @tim1[2]+3;
SK> $min = @tim1[1];
SK> print wrecord $hour.":".$min.":".$sec." ".$day.".".$month.".".$year." viewed
SK> ".$par;
SK> print wrecord "\n\n";
SK> close (wrecord);
SK> сервер в локалке, на моем компе, поэтому работает не круглосуточно, когда я
SK> его запускаю, часиков 5-6вечера, то все идет нормально, но после 0 часов,
SK> скажем, 22 декабря идет такая херня
SK> dolls 25:16:45 22.12.2002 viewed main
SK> т.е. дата не переводится и появляется 25, 26-й и т.д. час... потом, когда
SK> спать ложусь - я сервак отключаю, и на следующий день все ок до 0 часов...
SK> собственно, как побороть сабж?
Это не со временем, это с логикой глюк. В твои 0 gmtime будет по зимнему
времени 21. Hу и прибавь к этом 3. Вот в наличие 27-го часа уже не верю. Если
тебе нужно локальное время, то так и спрашивай localtime. А gmtime надо
спрашивать, если тебе нужно время по Гринвичу.
SK> да и еще, как вы заметили, месяц приходится почему-то прибавлять... выдается
SK> меньшее значение...
perldoc -f localtime, perldoc -f gmtime.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: глюк со временем 