Perché questo perl DateTime matematica produce risultati imprevisti?

Question

#!/usr/bin/perl 
use DateTime; 

$a = DateTime->new(year=>1952,month=>10,day=>21); 
$b = DateTime->new(year=>2015,month=>10,day=>31); 

$dif = $b-$a; 

print $dif->years() ." ". $dif->months() ." ". $dif->days(); 
# result: 63 0 3 

Da dove vengono i 3 giorni? Mi aspetto 63 0 10.

#!/usr/bin/perl 
use DateTime; 

$a = DateTime->new(year=>1952,month=>11,day=>1); 
$b = DateTime->new(year=>2015,month=>10,day=>31); 

$dif = $b-$a; 

print $dif->years() ." ". $dif->months() ." ". $dif->days(); 
# result 62 11 2 

mia aspettative per questo è 62 11 31 o così.

Sto provando a fare una data base di nascita per l'età. Il mese e l'anno sembrano funzionare come mi aspetto, ma la giornata sembra imprevedibile. Ho letto la documentazione CPAN ma ancora non capisco.

Answer 1

$dif->years, $diff->months e in particolare $diff->days non fare ciò che ci si aspetta. Dal DateTime::Duration documentation ...

Questi metodi restituiscono numeri indicano quante dell'unità in oggetto rappresenta, dopo aver fatto una conversione di qualsiasi unità più grandi. Per esempio , giorni vengono prima convertiti in settimane, quindi il resto è restituito. Questi numeri sono sempre positivi.

Ecco ciò che ogni metodo ritorna:

$dur->years()  == abs($dur->in_units('years')) 
$dur->months()  == abs(($dur->in_units('months', 'years'))[0]) 
$dur->weeks()  == abs($dur->in_units('weeks')) 
$dur->days()  == abs(($dur->in_units('days', 'weeks'))[0]) 

Se trovate questa confusione, anche a me

quello che vuoi è in_units.

# 63 0 10 
say join " ", $dif->in_units('years', 'months', 'days');