Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Counting pregnancy weeks

by ruoso (Curate)
on Jun 09, 2008 at 20:45 UTC ( #691094=CUFP: print w/replies, xml ) Need Help??

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'

Replies are listed 'Best First'.
Re: Counting pregnancy weeks
by Limbic~Region (Chancellor) on Jun 09, 2008 at 22:52 UTC
Re: Counting pregnancy weeks
by svenXY (Deacon) on Jun 10, 2008 at 06:41 UTC
    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.
    svenXY (whose son is now 30 weeks old)
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]

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://691094]
Approved by moritz
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (10)
As of 2016-10-24 21:56 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (310 votes). Check out past polls.