|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artem Chuprina 2:5020/400 17 Jan 2003 23:54:58 To : Elias Sergueeff Subject : Re: Date? -------------------------------------------------------------------------------- Здравствуй, Elias Sergueeff. ES> Hello, All! ES> Hе понял... ES> Сижу,пишу, никого не трогаю. ES> Долго пишу, почти неделю. ES> Все работает, есть правда пара непоняток, но это мелочи. ES> Потом перегрузился. ES> HЕ РАБОТАЕТ! ES> ;%?"!!!! ES> Суть: ES> До перезагрузки было так: ES> $NOW = strftime "%d.%m.%Y %H:%M:%S %z", localtime; ES> die "$NOW\n"; ES> Выводилось нечто типа: ES> 2003011718:36:46 +0300 Что, понятно, неверно. ES> И код типа: ES> $NOW = ParseDate($NOW); ES> if (! $NOW) { ES> print "Wrong data format\n"; ES> }; ES> Hичего не писал. ES> Сейчас: ES> $NOW = strftime "%d.%m.%Y %H:%M:%S %z", localtime; ES> die "$NOW\n"; ES> Выводит: ES> 17.01.2003 20:06:17 +0300 Что, соответственно, верно. ES> И соответственно ES> ParseDate пустую строку дает. ES> Что я поменял? ES> В начале стоит это: ES> use POSIX; ES> use POSIX qw(:sys_wait_h :errno_h); ES> use Fcntl ':flock'; ES> use IO::Socket; ES> use Date::Manip; ES> use Symbol; ES> В принципе дело к вечеру, может я где мышкой потыкал... ES> И del понажимал... не там где надо, коментарии удалял. ES> Все ж работало... ES> Как вернуть как было? ES> Hу или как сделать, чтобы ES> ParseDate переваривал и мог сравнивать строки в формате: ES> strftime "%d.%m.%Y %H:%M:%S %z" А формат обязательно такой? У ParseDate вообще документировано, какие форматы он разбирает. -- 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) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1445466264dc9.html, оценка из 5, голосов 10
|