|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Yuriy Kaminskiy 2:5020/517.21 07 Jul 2001 04:22:02
To : Mike Salnikov
Subject : Re: Как перевести секунды в дни:часы:минуты:секунды?
--------------------------------------------------------------------------------
>>>>> On 20:12 06/7/2001, Mike Salnikov <2:5006/18.18> writes:
s> Есть стандартная функция?
MS> ($sec,$min,$hour)=(localtime)[0,1,2];
MS> ну и есснно perldoc -f localtime
А с чего ты взял, что ему был нужен перевод unixtime?
ИМХО, subj можно понимать только как "как перевести интервал в секундах в..."
Т.о. правильный ответ: встроенной функции нет, только руками:
use integer;
sub s2dhms {
my $s = shift;
my $m = $s / 60; $s %= 60;
my $h = $m / 60; $m %= 60;
my $d = $h / 24; $h %= 24;
return ($d,$h,$m,$s);
}
--
Yuriy Kaminskiy.
PS А зря перлописатели не сделали операцию деления для списочного
контекста: ((my $m), $s) = $s / 60;
--- Gnus v5.2.25/XEmacs 19.14
* Origin: C2B8 59EA 497A D6F6 2640 0E49 D84A AADA EACE (2:5020/517.21@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Как перевести секунды в дни:часы:минуты:секунды? 