VPF::Дата в формате ISO8601 - Форум программистов

Logo

Дата 5.2.2010, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 694
Регистрация: 22.7.2008

Репутация: 3
Всего: 10

Нужно сделать ввод даты в формате ISO 8601. Не понятно, как сделать что бы если часовой пояс не указан, использовался текущий пояс (а не UTC).
Пытаюсь так

Код


use DateTime::Format::ISO8601;

my $starttime = time;
my $basedate = DateTime->new(
  time_zone => 'Europe/Moscow',
  year   => 2010,
);
my $p = DateTime::Format::ISO8601->new(
   base_datetime => $basedate,
);
$d = $p->parse_datetime('2010-02-05T00:00:53');
$, = ' ', $\ = "\n";
print 'local: ', localtime $d->epoch;
print 'gm:    ', gmtime $d->epoch;
print 'unix:  ', $d->epoch;
print 'время выполнения скрипта: ', time() - $starttime;
#вывод:
#local:  53 0 3 5 1 110 5 35 0
#gm:     53 0 0 5 1 110 5 35 0
#unix:   1265328053
#время выполнения скрипта:  90

Но во-первых время все равно воспринимается универсальное, а во вторых скрипт ОЧЕНЬ долго думает - в примере 90 секунд.
Perl 5.10, WinXP.

И еще, ISO 8601 летнее время не поддерживает что-ли, или проблема в модуле perl?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »