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
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.