Hi Moscow.PM Как можно написать число секунд в 4 часа утра сегодня в одну строчку
use Time::Local; my $time = time; my ( $Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST ) = gmtime($time); my $trunc_time = timelocal( 0, 0, 0, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST ); my $tom1am = $trunc_time + 4*3600;#select trunc(sysdate)+4 from dual print $tom1am; получается так 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' а можно еще короче? Nikolay Mishin -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
