Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Вниз

Простенький вопрос по Перлу. 


Феликс   (2002-01-25 19:07) [0]

Времена меняются, а я по-прежнему фигово знаю Перл. Люди, если вас не затруднит, объясните как получить значение времени (минуты и секунды), даты (месяца, года и числа)? Заранее спасибо!



Merlin   (2002-01-25 19:18) [1]

my ($sec,$min,$hour,$day,$mes,$year) = localtime(time); $year -= 100; $mes++;
#-- Все в переменных, год в формате 02

#-- Вот так это можно выводить на экран
my $Adate = sprintf("%02d.%02d.%02d %02d:%02d", $day,$mes,$year, $hour,$min);
print $Adate;



Феликс   (2002-01-25 19:26) [2]

Спасибо Merlin!



Дмитрий   (2002-01-25 19:47) [3]

или ООП.

use Time::localtime;
use TIme::Local;

###

sub ntime {
my $tm = localtime(time());
return sprintf(
"%s:%s:%s %s.%s.%s",
(length($tm->hour) == 1 ? "0".$tm->hour : $tm->hour),
(length($tm->min) == 1 ? "0".$tm->min : $tm->min),
(length($tm->sec) == 1 ? "0".$tm->sec : $tm->sec),
(length($tm->mday) == 1 ? "0".$tm->mday : $tm->mday),
(length($tm->mon+1) == 1 ? "0".($tm->mon+1) : ($tm->mon+1)),
($tm->year+1900)
)
}




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
14-32544          vopros                2002-01-23 16:48  2002.03.11  
Всем кому нужна помощь по программированию


6-32530           Evgueni               2001-12-23 17:10  2002.03.11  
Как сменить стартовую страницу в IE средствами Delphi?


1-32506           Vladimir K.           2002-02-22 04:42  2002.03.11  
Подвисание формы при выполнении цикла


1-32508           kingdom               2002-02-25 13:24  2002.03.11  
Как удалить директорию с поддиректориями


6-32528           daosv                 2001-12-26 13:23  2002.03.11  
Пожалуйста помогите чайнику!