Телеграмм чат группы modernperl страница 7828

Size: a a a

Modern::Perl

2020 February 28

Чем мой велосипед хуже велосипеда более другого человека?

ты серьзно думаешь что вот это:
sub autoflush {
my $old = SelectSaver->new(qualify($_[0], caller));
my $prev = $|;
$| = @_ > 1 ? $_[1] : 1;
$prev;
}
сложнее твоего велосипеда?

источник

19:19пожаловаться #1

Andrey Konovalov in Modern::Perl

cono

я про то что если вот этот $prv_sel_fh = select $fh; селект рванёт, то у тебя previous останется undef

Кстати, разумно. Тогда нельзя select'ить старый, если там undef

источник

19:20пожаловаться #2

Andrey Konovalov in Modern::Perl

cono

Да. И очевидно, почему.

Ок

Andrey Konovalov in Modern::Perl

В моих исходниках там ещё и indirect method call используется, что совсем пздц

источник

19:27пожаловаться #5

Andrey Konovalov in Modern::Perl

5.24.1

источник

19:27пожаловаться #6

Andrey Konovalov in Modern::Perl

Учёл замечания, поправил, на тестовой выборке работает правильно

источник

19:48пожаловаться #7

2020 February 29

Oleg Pronin in Modern::Perl

cono

ну конкретно в твоём коде это не уместно, потому что если print '', вернёт false, у нас случится die.
но проверять случился ил exception, надо по $@, а не по тому что вернул eval

Неправильно, проверять упал ли eval по $@ нельзя. Она иногда может отсутствовать даже если код упал. Правильная проверка по возвращаемому значению. Только по тому, которое всегда ганартированно есть когда евал не вылетел.
my $ok = eval { code...; 1 };
unless ($ok) {
say « eval died: $@« ;
...
}

Wat?

My $ok = eval { 0 };

19:22пожаловаться #10

cono in Modern::Perl

Приведи пример когда нет $@

источник

19:23пожаловаться #11

cono in Modern::Perl

Ну и почитай доку по eval

источник

19:23пожаловаться #12

Оскар in Modern::Perl

perl -E ' say eval { eval { die "XXX"; }; }; say $@;'

источник

19:26пожаловаться #13

crux in Modern::Perl

Оскар

perl -E ' say eval { eval { die "XXX"; }; }; say $@;'

Вариант c $ok в этом случае тоже не поможет

источник

20:00пожаловаться #14

Vadim Goncharov in Modern::Perl

вот за всеми этими случаями и существуют верно проверяющие обертки типа Try::Tiny

источник

20:11пожаловаться #15

cono in Modern::Perl

Оскар

perl -E ' say eval { eval { die "XXX"; }; }; say $@;'

Этот пример не уместный это же эксепшн пропагейшн

источник

20:35пожаловаться #16

Оскар in Modern::Perl

Нужен был пример – я привел. Полагаю, комментарий о ненадежности $@ был именно про это и невозможность контролировать все и вся и что там в коде, завернутом в eval неизвестно

источник

20:42пожаловаться #17

Тм

Товарищ майор in Modern::Perl

cono

Этот пример не уместный это же эксепшн пропагейшн

Он был бы неуместным, если бы не такое не встречалось

источник

20:57пожаловаться #18

Andrey Konovalov in Modern::Perl

А тем временем скоро выйдет новый, революционный MRI!

источник