Perl: Biorąc pod uwagę numer roku i tygodnia, jak mogę uzyskać pierwszą datę w tym tygodniu?

Question

Korzystanie z doskonałego modułu Perl DateTime jest trywialne, aby uzyskać numer roku i tygodnia dla daty, ale przejście w drugą stronę wydaje się być nieco trudniejsze. W jaki sposób można uzyskać datę zaczynającą się od numeru roku i tygodnia?

Answer 1

Spróbuj:

use Date::Calc qw(:all); 

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

Answer 2

Oto jeden ze sposobów, aby to zrobić używając tylko 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";