Counting pregnancy weeks

[ruoso]

As a few of you might know, my wife is pregnant, and one thing people that is expecting a child finds out is that keeping track of the week count is very hard... So a oneliner comes to hand...

perl -MDateTime -e '$i=DateTime->new(year => 2008,month => 3,day => 5)
+;print "$_ ",$i->add(weeks => 1)->strftime(q{%d/%m}), $/ for 1..40'

[Limbic~Region]

ruoso,
Congrats! See also Date::Pregnancy. Oh, and when you are ready for the next one, check out Data::Ovulation.

[svenXY]

Hi,
congratulations and nice one ruoso++. You'll also find out that it is even harder to keep track of the weeks after the child has been born - your oneliner also does that nicely. Just put in the birthday.
Regards,
svenXY (whose son is now 30 weeks old)

[andreas1234567]

Congratulations ruoso.

My wife's expecting our second daughter late July. Off to buy baby clothes..