zBernie has asked for the wisdom of the Perl Monks concerning the following question:
I'm trying to calculate the number of years, months, weeks, days, hours, minutes, and seconds which have elapsed since my son's birthday, which was 3/13/12 at 8:16 AM. The script below produces output which is almost correct. One problem is that it does not output the days. Here's the output at the time I ran it:
3 years
4 months
3 weeks
16 hours
16 minutes
13 seconds
The 3 years and 4 months are correct, but 3 weeks does not, and there are no days. What am I doing wrong?
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use DateTime; $\ = "\n"; my $bday = DateTime->new( year => 2009, month => 3, day => 13, hour => 8, minute => 16 ); my $now = DateTime->now(time_zone => 'America/New_York'); #print Dumper $t2; # subtract_datetime returns a "DateTime::Duration" object my $dtd1 = now$->subtract_datetime($bday); print $dtd1->years . q{ years} if $dtd1->years; print $dtd1->months . q{ months} if $dtd1->months; print $dtd1->weeks . q{ weeks} if $dtd1->weeks; print $dtd1->days . q{ days} if $dtd1->days; print $dtd1->hours . q{ hours} if $dtd1->hours; print $dtd1->minutes . q{ minutes} if $dtd1->minutes; print $dtd1->seconds . q{ seconds} if $dtd1->seconds; print $dtd1->nanoseconds . q{ nanoseconds} if $dtd1->nanoseconds;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Problem using DateTime
by Khen1950fx (Canon) on Aug 04, 2012 at 05:29 UTC | |
Re: Problem using DateTime
by tobyink (Canon) on Aug 04, 2012 at 09:13 UTC | |
Re: Problem using DateTime
by Anonymous Monk on Aug 04, 2012 at 06:29 UTC | |
by zBernie (Novice) on Aug 04, 2012 at 13:48 UTC | |
Re: Problem using DateTime
by frozenwithjoy (Priest) on Aug 04, 2012 at 06:34 UTC | |
Re: Problem using DateTime
by Anonymous Monk on Aug 04, 2012 at 05:32 UTC | |
Re: Problem using DateTime
by sundialsvc4 (Abbot) on Aug 04, 2012 at 18:04 UTC | |
by tobyink (Canon) on Aug 04, 2012 at 18:09 UTC |
Back to
Seekers of Perl Wisdom