Автор Тема: Проблема со временем в Perl!!!!!!!!!!  (Прочитано 4627 раз)

0 Пользователей и 1 Гость просматривают эту тему.

kentochek

  • Гость
Проблема со временем в Perl!!!!!!!!!!
« : јРав 23, 2006, 02:17:39 pm »
Народ подскажите если кто знает!Такая проблема: есть ли какая-нибудь функция в Perl, которая переводит количество секунд с 1970 года в нормальное время, т.е. к примеру у нас есть число 10234857656 и как узнать какая это дата, сколько времени и.т.д????????

09h

  • Гость
Re: Проблема со временем в Perl!!!!!!!!!!
« Ответ #1 : °ЯаХЫм 13, 2006, 06:29:05 pm »
хз может и есть такой изврат в перле но в чем тут проблема не пойму..

в году 31536000 секунд (калькулятор рулит)
в месяце ..... в дне .....

ну вот и сделай небольшой скрипт который это посчитает
чтото в духе
$x = "10234857656";
while ($x > '31536000') {
$x = $x - "31536000";
$i++;
}
скока лет посчитали , аналогичным образом мучаем остаток и получаем месяцы, дни, часы и последний остаток - секунды

PS а зачем такое варварство мона узнать?
« Последнее редактирование: °ЯаХЫм 13, 2006, 06:37:13 pm от 09h »

Оффлайн $_

  • Титулярный советник
  • ****
  • Сообщений: 147
  • Репутация: 1
  • Пол: Мужской
Re: Проблема со временем в Perl!!!!!!!!!!
« Ответ #2 : јРЩ 20, 2006, 01:27:39 am »
Цитировать
$x = "10234857656";
while ($x > '31536000') {
$x = $x - "31536000";
$i++;
}
Всё конечно хорошо, а вот высокосные года забыл наверно :)

Оффлайн Veliant

  • Надворный советник
  • *****
  • Сообщений: 331
  • Репутация: 7
  • Пол: Мужской
Re: Проблема со временем в Perl!!!!!!!!!!
« Ответ #3 : ПЭТРам 12, 2007, 08:16:02 pm »
делать вам нечего чтоли?
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
Помощь в программировани и различные статьи
http://libcoder.blogspot.com/