Size: a a a

2020 December 09

SZ

Sergey Zhmylove in Modern::Perl
Понятно, тогда действительно проще нагородить хеш
источник
2020 December 10

SZ

Sergey Zhmylove in Modern::Perl
@solhov но надо помнить, что оно у тебя может лишнее навыполнять, когда паттерн не матчится
источник

SZ

Sergey Zhmylove in Modern::Perl
@PerlBanjoBot print "hello world" =~ /(w)(?{$::i=666})^/ ? "match" : "fail";
print $::i;
источник

P

PerlBanjoBot in Modern::Perl
Sergey Zhmylove
@PerlBanjoBot print "hello world" =~ /(w)(?{$::i=666})^/ ? "match" : "fail";
print $::i;
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
да, о несовпадающем хвосте я не подумал. но по большому счету это ни на что не повлияет в моем случае
источник

AK

Andrey Konovalov in Modern::Perl
Народ, подскажите, а если всё-таки хочется базонезависимо узнать last_insert_id, а не делать $dbh->{mysql_insertid}, как сейчас, то... откуда же мне знать $catalog и $schema, если как обычно в конструктор класса передаётся просто сам $dbh, который оперирует только таблицами?
Положим, я могу передавать имя схемы в конструктор, чтобы все запросы были к $schema.$table_name, но $catalog-то откуда взять?..
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
а откуда такая идея что он базовонезависимо существует?
источник

AK

Andrey Konovalov in Modern::Perl
Vyacheslav Olkhovchenkov
а откуда такая идея что он базовонезависимо существует?
Так last_insert_id же. Конечно там тоже есть подводные камни, но, скажем, если базовонезависимость распространяется на тупо Postgre vs My (как это имеет место, я думаю, в большинстве веб-ориентированных проектов), то всё вполне адекватно работает... если знаешь конечно заветных 4 параметра :)
источник

SZ

Sergey Zhmylove in Modern::Perl
Andrey Konovalov
Так last_insert_id же. Конечно там тоже есть подводные камни, но, скажем, если базовонезависимость распространяется на тупо Postgre vs My (как это имеет место, я думаю, в большинстве веб-ориентированных проектов), то всё вполне адекватно работает... если знаешь конечно заветных 4 параметра :)
Эмм, базонезависимо никак.
А вот pg/maria что-то наверное придумать можно
источник

AK

Andrey Karepin in Modern::Perl
Andrey Konovalov
Народ, подскажите, а если всё-таки хочется базонезависимо узнать last_insert_id, а не делать $dbh->{mysql_insertid}, как сейчас, то... откуда же мне знать $catalog и $schema, если как обычно в конструктор класса передаётся просто сам $dbh, который оперирует только таблицами?
Положим, я могу передавать имя схемы в конструктор, чтобы все запросы были к $schema.$table_name, но $catalog-то откуда взять?..
каталог только для мускуля, вроде
источник

AK

Andrey Konovalov in Modern::Perl
Andrey Karepin
каталог только для мускуля, вроде
У мускуля каталог - это вообще какое-то значение типа "default", там как раз его по сути нет, поскольку то, что называется "базой" в мускуле - это "схема" в том же Postgre
источник

AK

Andrey Konovalov in Modern::Perl
А кто-нибудь в реальной практике сталкивался с тем, что вызов close($fh)  возвращал ошибку, кроме случая, когда $fh уже кем-то закрыт?
источник

SZ

Sergey Zhmylove in Modern::Perl
Andrey Konovalov
А кто-нибудь в реальной практике сталкивался с тем, что вызов close($fh)  возвращал ошибку, кроме случая, когда $fh уже кем-то закрыт?
Да
источник

AK

Andrey Konovalov in Modern::Perl
И в какой ситуации? Дескриптор на залипшей NFS?
источник

AK

Andrey Konovalov in Modern::Perl
Проблемы с сокетом?
источник

AP

Anton Petrusevich in Modern::Perl
Andrey Konovalov
Народ, подскажите, а если всё-таки хочется базонезависимо узнать last_insert_id, а не делать $dbh->{mysql_insertid}, как сейчас, то... откуда же мне знать $catalog и $schema, если как обычно в конструктор класса передаётся просто сам $dbh, который оперирует только таблицами?
Положим, я могу передавать имя схемы в конструктор, чтобы все запросы были к $schema.$table_name, но $catalog-то откуда взять?..
в общем случае, никак. некоторым достаточно туда просто андефы передать параметрами, а некоторым пустые строки...
источник

SZ

Sergey Zhmylove in Modern::Perl
Andrey Konovalov
И в какой ситуации? Дескриптор на залипшей NFS?
Ну когда массив отваливается, например и фс не успевает.
На нфс это я тоже ловил в жизни
https://ibb.co/gZwN6zv
источник

AT

Artem Tepponen in Modern::Perl
А есть вообще смысл на ошибку в close реагировать?
источник

VG

Vadim Goncharov in Modern::Perl
всё бросить и помереть - случилось невероятное!
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
а что там случается если close на сокет, а та сторона RST на остаток буфера?
источник