AB
Size: a a a
2020 February 28
VG
ну, логичный маппинг, получается
AB
Было ощущение что где-то кодировали как раз в 2 байта 0x001d
VG
ошибочно, я полагаю
AK
https://gist.github.com/DRVTiny/3758c139f95e16c62749c63896b66e14
Кому не лень, проверьте, плиз, логика ок?
Кому не лень, проверьте, плиз, логика ок?
c
perl -le 'eval { "" } or print "eval failed?"'
eval failed?
eval failed?
AK
Косяк уже вижу сам со scalar(@_), интересно именно то, что касается селекта
AK
perl -le 'eval { "" } or print "eval failed?"'
eval failed?
eval failed?
Как бы нет
c
ну конкретно в твоём коде это не уместно, потому что если print '', вернёт false, у нас случится die.
но проверять случился ил exception, надо по $@, а не по тому что вернул eval
но проверять случился ил exception, надо по $@, а не по тому что вернул eval
c
а почему не сделать
use IO::Handle;
$fh->autoflush(1);
STDOUT->autoflush(1);
...
зачем своя функция с тонной логики?
use IO::Handle;
$fh->autoflush(1);
STDOUT->autoflush(1);
...
зачем своя функция с тонной логики?
SZ
а почему не сделать
use IO::Handle;
$fh->autoflush(1);
STDOUT->autoflush(1);
...
зачем своя функция с тонной логики?
use IO::Handle;
$fh->autoflush(1);
STDOUT->autoflush(1);
...
зачем своя функция с тонной логики?
++
AK
ну конкретно в твоём коде это не уместно, потому что если print '', вернёт false, у нас случится die.
но проверять случился ил exception, надо по $@, а не по тому что вернул eval
но проверять случился ил exception, надо по $@, а не по тому что вернул eval
А что там ещё может вызвать exception?
На тему autoflush в IO::Handle - мне совершенно не нравится то, что там происходит и к подгрузке какого количества кода это приводит
На тему autoflush в IO::Handle - мне совершенно не нравится то, что там происходит и к подгрузке какого количества кода это приводит
AK
Да, ещё use IO::Handle можно и не делать начиная с 5.14
c
ну это же какой-то велосипед, ещё и не факт что с круглыми колёсами
c
ну как минимум если select рванёт die-ем, то у тебя произойдт select(undef) and return
AK
Чем мой велосипед хуже велосипеда более другого человека?
AK
ну как минимум если select рванёт die-ем, то у тебя произойдт select(undef) and return
Вообще там не просто return
AK
Смотри внимательно: сначала выбирается тот fh, который был выбран по дефолту раньше
AK
А так весь этот eval и сделан ровно потому что select 'hello world' - это нормально и не вызывает исключение
c
я про то что если вот этот $prv_sel_fh = select $fh; селект рванёт, то у тебя previous останется undef