Perl. Библиотека программиста

Преобразование полного времени в секунды с начала эпохи

Проблема

Требуется преобразовать дату/время, выраженные отдельными значениями дня, месяца, года и т.д. в количество секунд с начала эпохи.

Решение

Воспользуйтесь функцией timelocal пли timegm стандартного модуля Time::Local. Выбор зависит от того, относится ли дата/время к текущему часовому поясу или Гринвичскому меридиану:

use Time::Local:
$TIME = timelocal($sec, $min, $hours, $mday, $mon, $year);
$TIME = timegm($sec, $min, $hours, $mday, $mon, $year);

Комментарий

Встроенная функция localtime преобразует количество секунд с начала эпохи в компоненты полного времени; процедура timelocal из стандартного модуля Time::Local преобразует компоненты полного времени в секунды. Следующий пример показывает, как определяется количество секунд с начала эпохи для текущей даты. Значения дня, месяца и года получаются от localtime:

# $hours, $minutes и $seconds задают время для текущей даты
# и текущего часового пояса
use Time::Local:
$time = timelocal($seconds, $minutes, $hours, (localtime)[3,4,5]);

Если функции timelocal передаются месяц и год, они должны принадлежать тем же интервалам, что и значения, возвращаемые localtime. А именно, нумерация месяцев начинается с 0, а из года вычитается 1900. Функция timelocal предполагает, что компоненты полного времени соответствуют текущему часовому поясу. Модуль Time::Local также экспортирует процедуру timegm, для которой компоненты полного времени задаются для Гринвичского меридиана. К сожалению, удобных средств для работы с другими часовыми поясами, кроме текущего или Гринвичского, не существует. Лучшее, что можно сделать, — преобразовать время к Гринвичскому и вычесть или прибавить смещение часового пояса в секундах.

В следующем фрагменте демонстрируется как применение timegm, так и настройка интервалов года и месяца:

# $day - день месяца (1-31)
# $mooth - месяц (1-12)
# $year - год, состоящий из четырех цифр (например, 1999)
# $hours, $minutes и $seconds - компоненты времени по Гринвичу
use Time::Local:
$time = timegm($seconds, $minutes, $hours, $day, $month-1, $year-1900):

Как было показано во введении, количество секунд с начала эпохи не может выходить за пределы интервала от 20:45:52 13 декабря 1901 года до 03:14:07 19 января 2038 года включительно. Не преобразуйте такие даты — либо воспользуйтесь модулем Date:: с CPAN, либо выполняйте вычисления вручную.

Преобразование полного времени в секунды с начала эпохи

Проблема

Решение

Комментарий

См. также