Forum Webscript.Ru

Программирование => Perl => Тема начата: Lexx от 08 Апреля 2003, 12:55:58

Название: Количество дней между двумя датами
Отправлено: Lexx от 08 Апреля 2003, 12:55:58

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

Название: Количество дней между двумя датами
Отправлено: vladsu от 08 Апреля 2003, 19:42:40

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


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";