[perl] Перевод времени из формата localtime в unixtime

То, что надо. Спасибо!

Эм... не пойму, в чем может быть дело...

#!/usr/bin/perl

use Time::Local;

print timelocal(localtime())."\n";
print timelocal(0, 54, 18, 19, 10, 2009)."\n";

$ perl temp.pl
1255964054
1258646040

WTF?! По идее, они должны отличаться друг от друга не более, чем на 60...

Все, разобрался... там месяц, в отличие от остальных параметров, отсчитывается с нуля...

$mday is the day of the month, and $mon is the month itself, in the range 0..11 with 0 indicating January and 11 indicating December. This makes it easy to get a month name from a list