Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Перевод даты в другой формат

Автор: AlexanderI 11.4.2008, 09:12

Существуют ли какие-нибудь готовые модули для перевода вот такой даты Fri, 11 Apr 2008 09:39:19 +0400 в такую 2008-04-11 09:39:19 ?

Автор: GoDleSS 11.4.2008, 09:32

Куча всего, хотя бы посмотрите на следующий список, там тоже есть:
http://search.cpan.org/search?query=Date&mode=module

Автор: amg 11.4.2008, 11:19

AlexanderI, если исходный формат даты жестко задан и не нужно, например, сравнивать даты, то использование модуля - избыточно. Проще и быстрее самому написать регулярку:

Код


%M = qw(Jan 01 Feb 02 Mar 03 Apr 04 May 05 Jun 06 Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12);
$date = 'Fri, 11 Apr 2008 09:39:19 +0400';
$date =~ s/[A-Z][a-z]{2}, (\d\d?) ([A-Z][a-z]{2}) (\d{4}) (\d\d:\d\d:\d\d)(?: \+\d{4})?/$3-$M{$2}-$1 $4/;
print "$date\n";