Исходное сообщение
"time в perl" Отправлено gawriil, 27-Апр-10 13:19
>[оверквотинг удален] >  $fY = $rY - $vY; $secY = (($vY*366) + ($fY*365)) >* 86400; >  $secD = $rD * 86400; for ($iM=0;$iM<$rM;$iM++) { $tmpDays+=$daysAtMonth[$iM] } > >  $secM = $tmpDays* 86400; $all_date_sec = $secD + $secM + >$secY; $secH = $_[3] * 3600; >  $secM = $_[4] * 60; $secS = $_[5]; $all_time_sec = >$secH + $secM + $secS; >  return $all_time_sec + $all_date_sec; >} Ну вот зачем все это городить? есть отличный модуль Date::Calc на спане