|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Andrey Sapozhnikov 2:5020/400 05 Mar 2002 20:26:58 To : Nikolay Pichtin Subject : Re: Date --------------------------------------------------------------------------------
Nikolay Pichtin wrote:
> Добренький вечерок Sergey !
>
>
> SS> Как можно получить вчерашнюю дату? То есть то, что выдает
> SS> /bin/date --date \"1 day ago\" +%Y-%m-%d.
> SS> Хочется не вызывать внешние программы.
>
> perldoc Time::Local
Time::Local как раз не нужен. perldoc -f localtime
my ($day, $mon, $year) = (localtime(time - 86400))[3..5];
printf "%04i-%02i-%02i\n", $year + 1900, $mon + 1, $day;
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/5284220d35b3.html, оценка из 5, голосов 10
|