|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Michael Poliakov 2:5020/400 31 Jul 2000 19:31:06 To : All Subject : Re: date, time -------------------------------------------------------------------------------- On 28 Jul 2000 15:10:52 +0400, Dmitry Ochnev <ochnev@alpha.tula.net> wrote: >> >Как получить и вывести текущую дату и время ? Может, в FAQ занести? print time_stamp(time); sub time_stamp { my ($time) = @_; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time); $mon++; $year += 1900; my $stamp = sprintf("%02d.%02d.%04d %02d:%02d:%02d", $mday, $mon, $year, $hour, $min, $sec); } Michael Poliakov --- ifmail v.2.15dev5 * Origin: Nizhniny Novgorod Information Networks (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/208032d2397e.html, оценка из 5, голосов 10
|