Количество дней между двумя датами

[Lexx]

Есть переменная $s, она содеражи дату, например $s = "12.12.2001".
Как определить старее ли дата в $s на 100 дней и более, чем сегодняшняя (текущая) дата?

[vladsu]

Код: [Выделить]


use strict;
use Time::Local;

my $s = "2002-01-09";
my $shift = -100;

my ($year,$month,$day) = $s =~ /(\\d{4})-(\\d{2})-(\\d{2})/;

print "y" if (time+$shift*86400 > timelocal(00,00,00,$day,$month-=1,$year-=1900));

#time+$shift*86400 > timelocal(00,00,00,$day,$month-=1,$year-=1900) ? print "y" : print "n";