Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
Архив форумов ЦИТФорума
Море(!) вопросов - Море(!) ответов
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 
Как правильно задавать вопросы

opredelnie daty v perl

 
Перейти:  
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Программирование
Предыдущая тема :: Следующая тема  
Автор Сообщение
chatl
Гость





СообщениеДобавлено: Сб Май 31 2003 17:41    Заголовок сообщения: opredelnie daty v perl Ответить с цитатой

Narod, pishu gostevuhu cgishnuju. Vse rabotajet krome daty. Net li takoi funkcii v perl kotoraja krasivo daty savit otpravki messagi, datu po tallinnskomu vremeni? Ja hostjus' na kakom-to amerikanskom servere i vremja na nem golimoe otstajet na neskol'ko mesjacev, da i chasy ne te. Ja probyval localtime i druguju erundu s grinvechem, no vse ne to. mozhet est' chto-nibud' vrode "date" v JS?
Вернуться к началу
sh



Зарегистрирован: 11.03.2002
Сообщения: 121

СообщениеДобавлено: Вс Июн 01 2003 18:46    Заголовок сообщения: Re: opredelnie daty v perl Ответить с цитатой

$a = scalar(localtime());
print $a;
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Lucky



Зарегистрирован: 15.05.2003
Сообщения: 6
Откуда: Каменск

СообщениеДобавлено: Вс Июн 01 2003 19:06    Заголовок сообщения: Re: opredelnie daty v perl Ответить с цитатой

Меняй смещение.

#!/usr/bin/perl

$timeoffset = 0; # Time offset - change it's value if your server time
# conflicts with your local time.

# You may insert 'undef' instead of unused variables when you upload the
# script to web server.
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isds t) = localtime(time + (3600*$timeoffset));

# Hours, minutes, seconds, day and month should be in two-digit format.
$hour = "0$hour" if ($hour $mday.$mon.$year $hour:$min:$sec\n";

# Hint: you may call this script by SSI using this tag:
#


А лучше смени хостинг Smile
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
sh



Зарегистрирован: 11.03.2002
Сообщения: 121

СообщениеДобавлено: Вс Июн 01 2003 19:08    Заголовок сообщения: Re: opredelnie daty v perl Ответить с цитатой

хотя сорри не дочитал коммент ... какой смысл брать время юзера ведь тогда бардак с датами будет, если хочешь чтоб было время как у тебя то возьми ты по гринвичу и вычти\добавь сколько надо, например($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time);
$hour += 2;
print "$hour:$min:$sec\n";
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
chatl
Гость





СообщениеДобавлено: Пн Июн 02 2003 03:06    Заголовок сообщения: Re: opredelnie daty v perl Ответить с цитатой

Spasibo, spasibo, no esli brat' vremja po grinvichu, to slishkom gemorroino vse schitat'. Tam naprimer $year ne pishetsja kak 2003, a idet kak 103 ot 1900-ogo goda vidimo. I tak so vsemi chislami. Tut problema, napimer, takaja. Server pokazyvajet 01.04, a seichas 01.05 na samom dele. Dalaja $mon+1, riskjuesh' ves' janvar' prozhit' v 13-om mesjace. I sekundami, i chislami mesjaca, kotory postojanno menjajutsja, takaja ze erunda.
Ja vse taki vzjal vrenja jusera. Bog s nim, u bol'shinstva chasy hodjat normal'no i bol'shinstvo userov (tochnee vse) opjat' zhe iz mojego vremennogo pojasa.
Ja sdelal eshe odin parametr v forme, kotory neset datu poluchennuju iz javascript: date().
poka ochen' ne ploho smotritsja.
Вернуться к началу
Показать сообщения:   
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Программирование Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2002 phpBB Group
Русская поддержка phpBB

 

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 6608306, ICQ 232284597
Пресс-релизы — pr@citforum.ru
Послать комментарий
Информация для авторов
This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2006 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...