ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Gennadij Pastuhov                    2:5036/26      16 Apr 2003  09:38:44
 To : All
 Subject : дата
 -------------------------------------------------------------------------------- 
 

 
 Пока сделано примерно так:
 
 my $days = shift;
 my $today = (gmtime(time))[3];
 if ($article{'date'} =~ /^(\d+)/) {
         my $day = $1;
 }
 push @flist, $fname if ($today - $days > $day);
 
 Пока не настал конец месяца, всё ок :) Ищется более правильное решение.
 
 ... Jonny wanna live
 --- GoldED+/W32 1.1.5-021124                                 xenofont.chat.ru
  * Origin: Zomby Station (2:5036/26)
 
 

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

Тема:    Автор:    Дата:    дата   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