Спасибо тебе добрый человек, проклятый псевдокод и отсутствие стрикта по дефолту On Чт, июн 30, 2016 в 2:37 , Vladimir Timofeev <vovkasm на gmail.com> wrote: > ))) > А так? > perl -E 'use Panda::Date qw(date); my $dt1 = date "2016-06-30 13:00"; > my $dt2 = date "2016-06-30 13:20"; say 1 if ($dt2 == $dt1);'