Форум: "Потрепаться";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
ВнизПростенький вопрос по Перлу. Найти похожие ветки
← →
Дмитрий (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)
)
}
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c