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