ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     04 Mar 2003  17:06:49
 To : Yura Kocyuba
 Subject : Re: Вопросик махенький
 -------------------------------------------------------------------------------- 
 

 Yura Kocyuba <i@yura.com.ua> wrote:
 
 > Hi All!
 > Столкнулся с такой зачкой - нужно от даты отнять n-ое кол-во дней. Все 
 > шло нормально пока было FreeBSD date -v-nd и получаем желаемый 
 > результат. Hо для переносимости кода нужно реализовать на perl.
 > Может кто сталкивался, подскажите пожалуйста.
 
 В лоб:
 
 use POSIX qw(strftime);
 use constant DAY => 5;
 
 sub day_sub($) {
   return localtime (time - 86400 * shift || 0);
 }
 
 print strftime "%Y-%m-%d %H:%M:%S\n", day_sub DAY;
 
 -- 
 VP992-RIPE | Hа земле рожденный, снова должен стать землей...
            | (c) Ария, "Генератор зла" '98, "Беги за Солнцем"
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Вопросик махенький   Yura Kocyuba   04 Mar 2003 16:56:01   Re: Вопросик махенький   Vladimir Podgorny   04 Mar 2003 17:06:49   Re: Вопросик махенький   Ivan Frolcov   04 Mar 2003 19:11:38   Re: Вопросик махенький   Igor S Chencov   04 Mar 2003 20:40:56   Re: Вопросик махенький   Andrey N. Demushkin   06 Mar 2003 09:42:50   Вопросик махенький   Renat Araslanow   06 Mar 2003 14:58:25