Forum Webscript.Ru

Программирование => Perl => Тема начата: Ленивый гость от 16 Сентября 2002, 13:05:25

Название: Как перевести время в формате часы:минуты:секунды в секунды?
Отправлено: Ленивый гость от 16 Сентября 2002, 13:05:25

Как перевести время в формате часы:минуты:секунды в секунды?

Название: Как перевести время в формате часы:минуты:секунды в секунды?
Отправлено: YA от 16 Сентября 2002, 13:43:36

А подумать? Школьная задачка.

$time="2:15:48";
@_=split(":",$time);
$time=$_[0]*3600+$_[1]*60+$_[2];

А можно так:

$time=s/(\\d+):(\\d+):(\\d+)/$1*3600+$2*60+$3/e;

Название: Как перевести время в формате часы:минуты:секунды в секунды?
Отправлено: Ленивый гость от 16 Сентября 2002, 14:34:34

спасибо - не силен в перле - думал, что как в С есь функция преобразования в тики

Название: Как перевести время в формате часы:минуты:секунды в секунды?
Отправлено: Serchey от 16 Сентября 2002, 15:15:51

$time =~ s/\\://g;
$time = substr($time,0,2)*3600 + substr($time,2,2)*60 + substr($time,-2);.