Forum Webscript.Ru
Программирование => Perl => Тема начата: APL от 10 Апреля 2009, 14:28:56
-
Вот столкнулся с проблемой... есть дата типа
Fri, 10 Apr 2009 13:03:59 +0400
ну или другого немного формата, но соответствующая date
Я перекодировал на домашней машине так:
open (A, "date -d \'$message{\'date\'}\' +\'%A %d %B %H:%M:%S %Y\'|"); $message{\'date\'} = ; close(A);
но у прова одного не сработало... нет прав кажется на такое...
как мне еще можно использовать date? ну например может модуль есть какой?
-
в чём задача собственно?
-
Задача разбирать и преобразовывать из одного формата в другой. Например в моем примере она переводит дату на локальный язык и убирает лишнее, т.е. Предлагать разбирать самому не надо, я могу, но неохота, слишком много вариантов перебирать, дата может быть по-разному отформатирована и мне могут понадобиться разные форматы
Fri, 10 Apr 2009 13:03:59 +0400
будет
Пятница 10 Апрель 13:03:59 2009
Но это только пример, можно разбирать по всякому, если с использованием date, то все очень просто, но date у меня не везде сработал у внешних провайдеров. Хочется узнать нет ли модуля работающего аналогично команде date
-
perldoc HTTP::Date
perldoc Time::Local
-
Если же ещё нужно и производить манипуляции с датами, то в дополнения к модулям указанным arto Date::Manip (http://search.cpan.org/~sbeck/Date-Manip-5.54/lib/Date/Manip.pod)