Архив форумов ЦИТФорума

[eug]

подскажите пожалуйста, добрые люди, как в перле получить данные по текущей дате и времени (библиотека, функция?). заранее премного благодарен...

[September]

3.1. Определение текущей даты


Проблема
Требуется определить год, месяц и число для текущей даты.


Решение
Воспользуйтесь функцией localtime. Без аргументов она возвращает текущую дату и время. Вы можете вызвать localtime и извлечь необходимую информацию из полученного списка:

($DAY, $MONTH, $YEAR) = (localtime)[3,4,5];

Модуль Timc::localtimc переопределяет localtime так, чтобы функция возвращала объект Time::tm:

use Time::localtime;
$tm = localtime;
($DAY, $MONTH, $YEAR) = ($tm->mday, $tm->mon, $tm->year);


Комментарий
Вывод текущей даты в формате ГПТ-ММ-ДД с использованием стандартной функции localtime выполняется следующим образом:

($day, $month, $year) = (localtime)[3,4,5];
printf("The current date is %04d %02d %02\n", $year+1900, $month+1, $day):
The current date is 1999 04 28

Нужные ноля из списка, возвращаемого localtime, извлекаются с помощью среза. Запись могла выглядеть иначе:

($day, $month, $year) = (localtime)[3..5];

А вот как текущая дата выводится в (формате ГПТ-ММ-ДД (рекомендованном стандартом ISO 8601) с использованием Time::localtime:

use Time: : localtline;
$tm = localtime;
printf("The current date is %04d-%02d-%02\n", $tm->year+1900, ($tm->mon)+1, $tm->mday);
The current date is 1999-04-28

В короткой программе объектный интерфейс выглядит неуместно. Однако при большом объеме вычислений с отдельными компонентами даты обращения по имени заметно упрощают чтение программы.

То же самое можно сделать и хитроумным способом, не требующим создания временных переменных:

printf("The current date is %04d-%02d-%02\n",
sub {($_[5]+1900, $_[4]+1, $_[3])}->(localtime));

Кроме того, в модуле POSIX имеется функция strftime, упоминаемая в рецепте 3.8:

use POSIX qw(strftime):
print strftime "%Y-%m-%d\n", localtime:

Функция gmtime работает аналогично localtime, но возвращает время но Гринвичу, а не для местного часового пояса.


А если не маяться дурью, то
http://www.google.ru
key: Perl дата время получить
)))

[eug]

огромное спасибо за исчерпывающий ответ!

[Aragaer]

Вообще, просто вызов localtime в скалярном контексте.
_________________
Open your eyes.
And Awaken.