|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Nikolay Pichtin 2:5056/30 07 Mar 2002 17:46:22 To : Sergey Shibeko Subject : Re: Date -------------------------------------------------------------------------------- SS>>> Как можно получить вчерашнюю дату? То есть то, что выдает SS>>> /bin/date --date \"1 day ago\" +%Y-%m-%d. SS>>> Хочется не вызывать внешние программы. NP>> perldoc Time::Local SS> Это смотрел сразу, изящно но получается, т.к. если сегодня к примеру SS> 1 число 1 месяца то нужно несколько сравнений сделать для проверки SS> не будет ли другой год\месяц при промежутке более месяца. SS> Если нужно получить число к примеру месяц и один день назад, нужно SS> сначала узнать число дней в месяце, то есть тяжелая конструкция SS> получается. Хотелось бы проще, если это возможно. А чего сложного-то? use Time::Local 'timelocal_nocheck'; $newdate = scalar localtime timelocal_nocheck $sec,$min,$hour,$mday,$mon,$year; И прибавляй или вычитай из $mday или $mon сколько тебе надо. -- Hиколай. * А был ли смысел (q) #=----------------------------------====----------------------------------=# --- * Origin: Где начало того конца, которым оканчивается начало? (2:5056/30) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/18133c879a02.html, оценка из 5, голосов 10
|