|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Elias Sergueeff 2:5020/400 17 Jan 2003 21:42:20 To : All Subject : Date? --------------------------------------------------------------------------------
Hello, All!
Hе понял...
Сижу,пишу, никого не трогаю.
Долго пишу, почти неделю.
Все работает, есть правда пара непоняток, но это мелочи.
Потом перегрузился.
HЕ РАБОТАЕТ!
;%?"!!!!
Суть:
До перезагрузки было так:
$NOW = strftime "%d.%m.%Y %H:%M:%S %z", localtime;
die "$NOW\n";
Выводилось нечто типа:
2003011718:36:46 +0300
И код типа:
$NOW = ParseDate($NOW);
if (! $NOW) {
print "Wrong data format\n";
};
Hичего не писал.
Сейчас:
$NOW = strftime "%d.%m.%Y %H:%M:%S %z", localtime;
die "$NOW\n";
Выводит:
17.01.2003 20:06:17 +0300
И соответственно
ParseDate пустую строку дает.
Что я поменял?
В начале стоит это:
use POSIX;
use POSIX qw(:sys_wait_h :errno_h);
use Fcntl ':flock';
use IO::Socket;
use Date::Manip;
use Symbol;
В принципе дело к вечеру, может я где мышкой потыкал...
И del понажимал... не там где надо, коментарии удалял.
Все ж работало...
Как вернуть как было?
Hу или как сделать, чтобы
ParseDate переваривал и мог сравнивать строки в формате:
strftime "%d.%m.%Y %H:%M:%S %z"
Если важно, то сейчас:
[ilja@mb t]$ locale
LANG=en_US
LC_CTYPE=ru_RU.KOI8-R
LC_NUMERIC=en_US
LC_TIME=en_US
LC_COLLATE=ru_RU.KOI8-R
LC_MONETARY=ru_RU.KOI8-R
LC_MESSAGES=en_US
LC_PAPER="en_US"
LC_NAME="en_US"
LC_ADDRESS="en_US"
LC_TELEPHONE="en_US"
LC_MEASUREMENT="en_US"
LC_IDENTIFICATION="en_US"
LC_ALL=
slackware 9
Summary of my perl5 (revision 5.0 version 8 subversion 0)
Date::Manip последний 5.40.
WBR,
Ilja
--- ifmail v.2.15dev5
* Origin: Unknown Sharashka (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/53525b953125.html, оценка из 5, голосов 10
|