ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     16 Apr 2003  15:16:05
 To : Gennadij Pastuhov
 Subject : Re: дата
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Gennadij Pastuhov.
 
 GP> Есть строка вида "31/03/2003", хранящая некую дату. Есть некое число.
 GP> Требуется узнать, отстоит ли эта дата от текущей назад на "число" дней?
 
 GP> Пока сделано примерно так:
 
 GP> my $days = shift;
 GP> my $today = (gmtime(time))[3];
 GP> if ($article{'date'} =~ /^(\d+)/) {
 GP>         my $day = $1;
 GP> }
 GP> push @flist, $fname if ($today - $days > $day);
 
 GP> Пока не настал конец месяца, всё ок :) Ищется более правильное решение.
 
 Преобразовывать посредством timelocal к нормальному времени и вычитать.
 Hадеюсь, сколько секунд в сутках, объяснять не надо?
 
 -- 
 Artem Chuprina
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
 --- ifmail v.2.15dev4
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    дата   Gennadij Pastuhov   16 Apr 2003 09:38:44   Re: дата   Artem Chuprina   16 Apr 2003 15:16:05   Re: дата   Victor Wagner   16 Apr 2003 15:16:35