Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: given time1a and b how much is in time2a and b

by fglock (Vicar)
on Mar 31, 2005 at 03:47 UTC ( #443672=note: print w/replies, xml ) Need Help??


in reply to given time1a and b how much is in time2a and b

DateTime::SpanSet can do this for you:

use DateTime::SpanSet; my $dt1 = DateTime->new( year => 2005, month => 1, day => 1 ); my $dt2 = DateTime->new( year => 2005, month => 1, day => 4 ); my $dt3 = DateTime->new( year => 2005, month => 1, day => 7 ); my $dt4 = DateTime->new( year => 2005, month => 1, day => 9 ); my $dt_spanset = DateTime::SpanSet->from_spans( spans => [ DateTime::Span->from_datetimes( start => $dt1, end => $dt2 ), DateTime::Span->from_datetimes( start => $dt3, end => $dt4 ), ] ); print "duration: @{[ $dt_spanset->duration->deltas ]}\n"; # duration: months 0 days 5 minutes 0 seconds 0 nanoseconds 0

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://443672]
help
Chatterbox?
[1nickt]: ... in the calling code ... $rs = $rs->maturity(" stable");. But I don;t enjoy feeling that far away from the SQL and the DB, really.
[1nickt]: The same project (CPAN Testers API) is using experimental signatures (and therefore 5.024) ... which is what replaced Method::Signatures , afaict.
[1nickt]: But the new $job is on an older Perl and therefore using M::S, the syntax of which looks clunky to me, so far.

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2017-11-24 13:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (349 votes). Check out past polls.

    Notices?