perl -Mstrict -Mwarnings -E 'use Class::Date qw(date); my $dt1 = date "2016-06-30 13:00"; my $dt2 = date "2016-06-30 13:20"; say 1 if (dt2 == dt1); ' Bareword "dt2" not allowed while "strict subs" in use at -e line 1. Bareword "dt1" not allowed while "strict subs" in use at -e line 1. Execution of -e aborted due to compilation errors.
В письме от 30 июня 2016 14:25:21 пользователь Alexey Shrub написал: > On Чт, июн 30, 2016 в 12:10 , Андрей Асякин > > <[email protected]> wrote: > > Panda::Date > > Видимо я что-то делаю не так, но не > пойму что > 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);' > тоже возвращает 1, хотя даты не равны > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
