Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

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'

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
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 chilling in the Monastery: (8)
As of 2015-12-02 04:11 GMT
Find Nodes?
    Voting Booth?

    My keyboard shows this many letters:

    Results (34 votes), past polls