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

[Andrey Asyakin]

print time(); ?

В Ср., 21/09/2011 в 13:10 +0400, Nikolay Mishin пишет:
> perl -MTime::Local -e '@t = gmtime(time);print timelocal( 0, 0, 0,
> $t[3], $t[4], $t[5], $t[6], $t[7],$t[8] )+4*3600'
> 
>