ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Diskin                        2:5061/6.97    01 Jul 2003  18:56:49
 To : Ivan
 Subject : Работа с датами в Perl
 -------------------------------------------------------------------------------- 
 

 
 01 Jul 03 18:15, Ivan wrote to All:
 
  I> нужно по двум датам например 01.01.2001-01.01.2004 получить список
  I> всех дней за указанный промежуток т е 01.01.2001 02.01.2001.... и т п
  I> Как это сделать?
 
 #################################
 
 #!/usr/bin/perl -w
 use strict;
 
 use Date::Manip;
 
 my $format = '%d.%m.%Y';
 
 my $date1 = UnixDate('01.01.2001', $format);
 my $date2 = UnixDate('01.01.2004', $format);
 my @arr = ParseRecur('0:0:0:1:0:0:0', $date1, $date1, $date2);
 
 foreach (@arr) {
     print UnixDate($_, $format) . "\n";
 }
 
 #################################
 
 Hе очень экономно, но работает. :)
 Если будет при запуске ругаться на TimeZone (особенно под win) - добавь в начало
 $ENV{TZ} = 'MSK';
 
 Dmitry
 
 --- GoldED+/W32 1.1.4.7
  * Origin: ююю dda@ic.ru ююю (2:5061/6.97)
 
 

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

Тема:    Автор:    Дата:    Работа с датами в Perl   Ivan   01 Jul 2003 18:15:33   Работа с датами в Perl   Dmitry Diskin   01 Jul 2003 18:56:49   Re: Работа с датами в Perl   Denis Poznyakov   01 Jul 2003 18:33:00