Вообще-то документацию ты должен сам читать. 
Если нужно именно с Date::Calc, то можно так:
| Код |
#!/usr/bin/perl -w
use strict;
use Date::Calc qw(Delta_DHMS);
my $date1 = "01.10.1988";
my $date2 = "01.10.1989";
my( $days1, $month1, $year1 ) = ($date1 =~ /^(\d{2})\.(\d{2})\.(\d{4})$/);
my( $days2, $month2, $year2 ) = ($date2 =~ /^(\d{2})\.(\d{2})\.(\d{4})$/);
my( $days, $hours, $minutes, $seconds ) = Delta_DHMS( $year1, $month1, $days1, 0, 0, 0,
$year2, $month2, $days2, 0, 0, 0 );
print "Разница между датами $date1 и $date2:\n";
print "Дней: $days\n";
print "Часов: $hours\n";
print "Минут: $minutes\n";
print "Секунд: $seconds\n";
|
|