Здравствуйте.

Я почти не разбираюсь в Perl, поэтому если что не пинайте меня за глупый вопрос:

У меня происходит следующее:

my $q = new CGI;
my $now = strftime("%d.%m.%Y", localtime time);
my $date1 = $q->param('date1') || $now;

# Если в первый раз запускаем отчёт- проставляем текущую дату потому как # она ещё не заполнена


Выполняется запрос к БД (запрос там раньше...не буду показывать)

$sth->execute();

while(my $a = $sth->fetchrow_arrayref)
{

тут надо проверить:
если $a->[1] (тоесть дата документа....БД её возвращает в формате "dd.mm.yyyy") больше даты которую мы получили параметром $date1

push @records, {
NDoc => $a->[0],
DataDoc => $a->[1],
....................
};
}

Подскажите плиз как сравнить даты. Спасибо

Спасибо!!!