Perl: Yıl ve hafta sayısı göz önüne alındığında, bu haftaki ilk tarihi nasıl alabilirim?

Question

Mükemmel Perl DateTime modülünü kullanarak, bir tarih için yıl ve hafta sayısını elde etmek önemsizdir, ancak diğer yöne gitmek biraz daha zor görünmektedir. Yıl ve hafta numarası ile başlayan bir tarih elde etmek nasıl gerçekleşir?

Answer 1

Dene:

use Date::Calc qw(:all); 

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

Answer 2

Burada sadece DateTime kullanarak bunu yapmak için tek yolu şudur:

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";