Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Перевод времени

Автор: oWe 8.12.2002, 12:14

Сам скрипт на забугорном хосте, для определения времени используется естественно localtime... Дык вот, как сделать, чтобы к местному(заграничному) времени прибавлялась разница часового пояса? Не просто же прибавлять количество часов???

Автор: Wowa 8.12.2002, 18:54

Код


sub calculate_time {
# calculate Moscow time
my $moffset = 3;
 my ($zsec,$zmin,$zhour,$zday) = (localtime(0))[0,1,2,3];
 my $zoffset = ($zday==31) ? -(24-$zhour):$zhour;
 my ($sec,$min,$hour,$day,$month,$year) = (localtime(time + ($moffset - $zoffset)*3600))[0,1,2,3,4,5];
$year=$year+1900;
$month++;
if ($month<10) {$month='0'.$month};
if ($day<10) {$day='0'.$day};

$date = join ("-", $year, $month, $day);
$date_ext = $date.' ';
$temp = join (":", $hour, $min, $sec);
$date_ext = $date_ext.$temp;
return $date;
}