Как получить массив дней месяца с Perl Date :: Manip?

Question

Я использую Date :: Manip для множества вещей и хочу создать массив дней месяца. Я думаю мне нужно:

@date = &ParseRecur("2010:4:0:0:0:0:0"); 

но он этого не делает. Я прочитал и перечитал справочную страницу, но не смог получить синтаксис.

@date = &ParseRecur("2010:4:0:1:0:0:0"); 
@date = &ParseRecur("2010:4:0:1*:0:0:0"); 

тоже не работает!

Answer 1

со справочных страниц: "Есть небольшая горстка английских строк, которые можно проанализировать вместо числового повторного описания." Посмотрите примеры на странице руководства.

Итак, если вам нужен массив дней месяца - скажем, для июня 2010 года вы должны сделать:

@dates = ParseRecur("every day in June 2010");

Answer 2

Вы можете создать список с помощью собственного цикла вместо использования ParseRecur.

$month = 4;
for ($day = 1; $day <= 31; $day++) {
    my $date = UnixDate( "$month/$day/2010", "%m-%d-%Y" );
    push( @list, $date ) if (defined $date);
}