Counting pregnancy weeks

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'
[download]

daniel

Comment on Counting pregnancy weeks Download Code

Replies are listed 'Best First'.
Re: Counting pregnancy weeks by Limbic~Region (Chancellor) on Jun 09, 2008 at 22:52 UTC
ruoso, Congrats! See also Date::Pregnancy. Oh, and when you are ready for the next one, check out Data::Ovulation. Cheers - L~R	[reply]
Re: Counting pregnancy weeks by svenXY (Deacon) on Jun 10, 2008 at 06:41 UTC
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)	[reply]
Re: Counting pregnancy weeks by andreas1234567 (Vicar) on Jun 10, 2008 at 07:08 UTC
Congratulations ruoso. My wife's expecting our second daughter late July. Off to buy baby clothes.. -- No matter how great and destructive your problems may seem now, remember, you've probably only seen the tip of them. [1]	[reply]

Back to Cool Uses for Perl