|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Andrey Sapozhnikov 2:5020/400 07 Mar 2002 18:48:54 To : Sergey Shibeko Subject : Re: Date --------------------------------------------------------------------------------
Sergey Shibeko wrote:
>>>perldoc Time::Local
>>>
>
> AS> Time::Local как раз не нужен. perldoc -f localtime
>
> AS> my ($day, $mon, $year) = (localtime(time - 86400))[3..5];
> AS> printf "%04i-%02i-%02i\n", $year + 1900, $mon + 1, $day;
> Тут та же проблема - не универсально, то есть для произвольного
> промежутка нужно сначала его высчитать.
> date в этом смысле более универсальна:
> /bin/date --date "1 month ago" +%Y-%m-%d
>
А корректно вычитать месяцы все равно нельзя. Сколько
будет "1 month ago" от 31 марта 2001г ? 31 февраля?
Точто так же и с годами.
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/528443e3716d.html, оценка из 5, голосов 10
|