如何使用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

您可以使用自己的循環來構建列表，而不是使用ParseRecur。

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

Answer 2

從手冊頁： 「有可以代替數值易復發的說明來進行解析英文字符串的極少數。」 查看手冊頁中的示例。

所以，如果你想一個月的天陣列 - 在2010年說的6月，你會怎麼做：

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