Perl：鑑於年份和週數，我怎樣才能得到那一週的第一次約會？

使用優秀的Perl DateTime模塊，獲得某個日期的年份和週數很簡單，但以另一種方式看起來有點困難。一個人如何獲得從年份和週數開始的日期？Perl：鑑於年份和週數，我怎樣才能得到那一週的第一次約會？

2012-02-23 Ethan Brown

你嘗試什麼其他模塊？ – tchrist 2012-02-23 23:26:23

嘗試：

use Date::Calc qw(:all); 

my $year = 2012; 
my $week = 14; 
my ($year2, $month, $day) = Monday_of_Week($week, $year);

來源

2012-02-23 23:42:06 DVK

這就是我一直這樣做的。 – tchrist 2012-02-23 23:52:18

這比我的DateTime版本更簡單，但如果您已經使用DateTime，那麼您可能不希望爲此僅使用Date :: Calc。用DateTime並不是很難。 – cjm 2012-02-23 23:59:03

謝謝你們兩位。我不介意將Date :: Calc添加到模塊列表中。我認爲Date :: Calc遵循與此相同的「1月第四日」ISO規則作爲DateTime。哦，哎呀。我會去RTFM。：-）再次感謝。 – 2012-02-24 01:11:34

這裏有一個辦法做到這一點只用DateTime：

use DateTime; 

sub first_day_of_week 
{ 
    my ($year, $week) = @_; 

    # Week 1 is defined as the one containing January 4: 
    DateTime 
    ->new(year => $year, month => 1, day => 4) 
    ->add(weeks => ($week - 1)) 
    ->truncate(to => 'week'); 
} # end first_day_of_week 


# Find first day of second week of 2012 (2012-01-09): 
my $d = first_day_of_week(2012, 2); 

print "$d\n";

來源

2012-02-23 23:43:23 cjm

Perl：鑑於年份和週數，我怎樣才能得到那一週的第一次約會？

回答

相關問題