|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Kravchenko 2:5020/400 23 Dec 2002 10:16:41
To : All
Subject : глюк со временем
--------------------------------------------------------------------------------
веду статистику посещений следующим образом:
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 часов...
собственно, как побороть сабж?
кстати Apsche и Perl работают в win2k - мож для такой системы какие-то
особенности?
да и еще, как вы заметили, месяц приходится почему-то прибавлять... выдается
меньшее значение...
- ---
Hе будем лишать детей - детства, стариков - старости, а девушек -
мороженого:)
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
