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

← →
Феликс © (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!

или ООП.

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) ) }

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