Utilizzando l'eccellente modulo Perl DateTime è banale ottenere il numero dell'anno e della settimana per una data, ma andare dall'altra parte sembra essere un po 'più difficile. Come si fa a ottenere una data che inizia con il numero dell'anno e della settimana?Perl: Dato il numero dell'anno e della settimana, come posso ottenere la prima data in quella settimana?
Prova:
use Date::Calc qw(:all);
my $year = 2012;
my $week = 14;
my ($year2, $month, $day) = Monday_of_Week($week, $year);
Ecco come l'ho sempre fatto. – tchrist
È più semplice della mia versione DateTime, ma se usi già DateTime, probabilmente non vuoi inserire Date :: Calc solo per questo. Non è difficile da fare con DateTime. – cjm
Grazie a tutti e due. Non mi dispiace aggiungere Date :: Calc all'elenco dei moduli. Suppongo che Date :: Calc segua la stessa regola ISO del "quarto giorno di gennaio" come DateTime su questo. Oh diamine. Vado RTFM. :-) Grazie ancora. –
Ecco un modo per farlo utilizzando solo 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";
Quali altri moduli hai provato? – tchrist