LINUX.ORG.RU

Perl: помогите с отсчетом от даты


0

0
нужно написать два простеньких скриптика, которые при выполнении выдают сколько дней осталось до определенной даты и второй - сколько дней прошло с определенной даты. Чет попытался сам сообразить... не вышло:(
★★★
Хотя бы и так:
use Date::Calc qw(Delta_Days);
my $days = Delta_Days( 2006,07,20,
2006,07,22);
print "Осталось $days дней\n";
Waso
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.