Вы не это искали? Вот пример из модуля https://metacpan.org/module/Combinator When you are tired of writing layered closures use AnyEvent::DBI; ... $dbh->exec("select ...", sub { ... $dbh->exec("select ...", sub { ... $dbh->exec("select ...", sub { ... $dbh->exec("select ...", sub { ... }); }); }); }); You can achieve that like this: use Combinator; use AnyEvent::DBI; ... {{com $dbh->exec("select ...", {{next}}); ... --ser(Continue reading)
On Fri, Feb 3, 2012 at 9:39 PM, Андрей П. Ковбович <akovbovich <at> gmail.com> wrote: > Вы не это искали? > > Вот пример из модуля https://metacpan.org/module/Combinator Все остались при своих мнениях :) Вообще вложенные анонимные функции и closures самый лучший вариант, в плане понимаемости, но немного медленноватый. -- -- Moscow.pm mailing list moscow-pm <at> pm.org | http://moscow.pm.org
Теоретически это как раз то что нужно, а практически проблема в убогости перлового source filtering, который Combinator использует. При нормальных макросах вложенность такого рода разруливалась бы намного проще. /dk On Fri, Feb 03, 2012 at 11:39:51PM +0400, Андрей П. Ковбович wrote: > Вы не это искали? > > Вот пример из модуля https://metacpan.org/module/Combinator > > When you are tired of writing layered closures > > use AnyEvent::DBI; > ... > $dbh->exec("select ...", sub { > ... > $dbh->exec("select ...", sub { > ... > $dbh->exec("select ...", sub { > ... > $dbh->exec("select ...", sub { > ... > }); > }); > }); > }); >(Continue reading)
2012/2/3 Андрей П. Ковбович <akovbovich <at> gmail.com>: > Вы не это искали? > > Вот пример из модуля https://metacpan.org/module/Combinator > > When you are tired of writing layered closures Я как раз про это и говорил. Синтаксис не очень симпотичный, но мотивация совпадает абсолютно. -- Best regards, Ruslan. -- -- Moscow.pm mailing list moscow-pm <at> pm.org | http://moscow.pm.org
в некоторых случаях нельзя составить полное выражение для unpack и приходится итеративно вытаскивать данные. например $str = unpack 'L / a*', $data; заберет строку из начала $data и потом можно будет сделать substr $data, 0, length $str + 4, ''; и продолжить изымать данные из $data следующими итерациями unpack. однако если например мы вынимаем две-три-N строк одним выражением, а так же используем выражения вроде 'w / a*', то посчитать общую длину того что мы вынули становится довольно накладно, а в некоторых случаях и получается что надо pack сделать чтобы понять какая длина была в упакованном виде (как например в случаях с 'w'). Вопрос: можно как-то решать эти проблемы не упаковывая обратно все? -- -- Moscow.pm mailing list moscow-pm <at> pm.org | http://moscow.pm.org(Continue reading)
в некоторых случаях нельзя составить полное выражение для unpack и
приходится итеративно вытаскивать данные.
например
$str = unpack 'L / a*', $data;
заберет строку из начала $data и потом можно будет сделать
substr $data, 0, length $str + 4, '';
и продолжить изымать данные из $data следующими итерациями unpack.
однако если например мы вынимаем две-три-N строк одним выражением, а
так же используем выражения вроде 'w / a*', то посчитать общую длину
того что мы вынули становится довольно накладно, а в некоторых случаях
и получается что надо pack сделать чтобы понять какая длина была в
упакованном виде (как например в случаях с 'w').
Вопрос: можно как-то решать эти проблемы не упаковывая обратно все?
--
Moscow.pm mailing list
moscow-pm <at> pm.org | http://moscow.pm.org
-- -- Moscow.pm mailing list moscow-pm <at> pm.org | http://moscow.pm.org
> 1. my @bytes = map { ord($_) } split //, $data; # и тупо работает с байтами
> 2. Поищите готовый модуль для работы с вашими данным
> 2. Если все действительно так плохо, напишите XS
ну XS или работа с байтами это понятно. но это все
некрасиво. если уж
XS браться писать, то свой аналог unpack, только такой
чтобы в объекты
распаковывал.
> А с чем вы таким работаете, если не секрет?
двоичный протокол к одной из новых БД
--
--
Moscow.pm mailing list
moscow-pm <at> pm.org | http://moscow.pm.org
Тогда берите готовую библиотеку для работы с этим протоколом (возможно, он уже используется другими СУБД?) или пишите на сях свою (ок, прототип, пожалуй, можно и на Perl нахреначить, но не более того). Как следует отладьте ее, а потом напишите XS (останется только обернуть сишные функции). Все равно в какой-то момент выясниться, что работать с этой СУБД нужно еще из С/C++, Python, Ruby и Haskell. Или ваша реализация на Perl тупо окажется слишком медленной/требовательной к памяти/трудной в сопровождении. Тут к гадалке не ходи.
ну XS или работа с байтами это понятно. но это все некрасиво. если уж
> 1. my <at> bytes = map { ord($_) } split //, $data; # и тупо работает с байтами
> 2. Поищите готовый модуль для работы с вашими данным
> 2. Если все действительно так плохо, напишите XS
XS браться писать, то свой аналог unpack, только такой чтобы в объекты
распаковывал.двоичный протокол к одной из новых БД
> А с чем вы таким работаете, если не секрет?
-- -- Moscow.pm mailing list moscow-pm <at> pm.org | http://moscow.pm.org
Приветствую всех, в жж посоветовали спросить тут :) http://event.perlrussia.org/perlburg3/schedule Там кто-то еще будет, имеет смысл ехать, или так вот 4 доклада и всё? Если я поеду - я бы мог сделать несколько пятиминуток про Dancer. Это кому-то надо? А кто может отревьювить мои презентации? -- Best Regards, Nick Knutov http://knutov.com ICQ: 272873706 Voice: +7-904-84-23-130 -- -- Moscow.pm mailing list moscow-pm <at> pm.org | http://moscow.pm.org
Приветствую всех,
в жж посоветовали спросить тут :)
http://event.perlrussia.org/perlburg3/schedule
Там кто-то еще будет, имеет смысл ехать, или так вот 4 доклада и всё?
Если я поеду - я бы мог сделать несколько пятиминуток про Dancer. Это кому-то надо? А кто может отревьювить мои презентации?
--
Best Regards,
Nick Knutov
http://knutov.com
ICQ: 272873706
Voice: +7-904-84-23-130
--
Moscow.pm mailing list
moscow-pm <at> pm.org | http://moscow.pm.org
-- -- Moscow.pm mailing list moscow-pm <at> pm.org | http://moscow.pm.org
RSS Feed171 | |
|---|---|
304 | |
276 | |
184 | |
228 | |
153 | |
370 | |
312 | |
155 | |
179 | |
53 | |
271 | |
176 | |
66 | |
123 | |
154 | |
124 | |
102 | |
178 | |
71 | |
111 | |
62 | |
129 | |
257 | |
167 | |
185 | |
226 | |
459 | |
276 | |
403 | |
346 | |
292 | |
161 | |
158 | |
250 | |
219 | |
306 | |
230 | |
162 | |
260 | |
392 | |
699 | |
378 | |
171 | |
51 |
