[Moscow.pm] дата в секндах в 4 часа утра сегодня в одну строчку

[Mons Anderson]

On Wednesday 21 September 2011 13:35:02 Nikita Zubkov wrote:
> perl -MTime::Local -e 'print timelocal( 0, 0, 4, (gmtime)[3..8] )'

А вас не смущает смешанное использование *local и gm* ?

все-таки
perl -MTime::Local -e 'print timelocal( 0, 0, 4, (localtime)[3..8] )'
если по местному времени 
или
perl -MTime::Local -e 'print timegm( 0, 0, 4, (gmtime)[3..8] )'
если по GMT

-- 
Mons Anderson aka Vladimir Perepelitsa
<mons на cpan.org> / #99779956 / quanth на irc.freenode.net