From mi на ya.ru Fri Dec 2 00:03:10 2011 From: mi на ya.ru (Nikolay Mishin) Date: Fri, 02 Dec 2011 12:03:10 +0400 Subject: [Moscow.pm] Win32::GuiTest Open Context Menu Key In-Reply-To: <20111129152713.GA3549@tetsuo.karasik.eu.org> References: <680361321936512@web126.yandex.ru> <20111122045657.GA10596@tetsuo.karasik.eu.org> <43651322575372@web52.yandex.ru> <20111129152713.GA3549@tetsuo.karasik.eu.org> Message-ID: <122441322812990@web154.yandex.ru> Все работает, но захотелось еще получить содержание не только caption окна ,но и его содержимое, если это консоль(putty) но GetWindowText выдает именно содержимое caption есть вроде супер функция print WMGetText($w); но она выдает содержимое разве что notepad, а содержимое чуть более сложной программы уже не выдает видимо у программ MDI интерфейс и внутри окна есть и другие, дочерние окна, до которых и не удается добраться правда я сейчас понял, что это можно сделать через меню "Copy All to Сlipboard" правда, чтобы работал ALT-space нужно было галочку поставить Window -> Behavior -> (System Menu Appears on Alt+SPACE checkbox) правда функция my $menu = GetMenu( GetForegroundWindow() ); не выдает этого меню my $menu = GetMenu( GetForegroundWindow() ); print "Menu: $menu\n"; my $submenu = GetSubMenu( $menu, 1 ); print "Submenu: $submenu\n"; print "Count:", GetMenuItemCount($menu), "\n"; Menu: 0 Submenu: 0 Count:-1 $mcount -1 да, и как послать ALT+space так SendKeys("%{SPACE}"); не проходит 29.11.2011, 19:27, "Dmitry Karasik" : >>  игрушки , конечно, приукольные, но нужно быть аккуратным, >>  очень жаль что нельзя посылать сигнал именно окну по его id >>  , а нужно его предварительно сделать >>    SetForegroundWindow($w); >>  ну такая уж, видимо, событийная модель виндоуз > > Скорее жавы, т.к. родным виндузным приложениям я IIRC такое делал - а жава > видимо сама решает кому идут сигналы. > > -- > Sincerely, > Dmitry Karasik > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From dmitry на karasik.eu.org Fri Dec 2 00:13:47 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Fri, 2 Dec 2011 09:13:47 +0100 Subject: [Moscow.pm] Win32::GuiTest Open Context Menu Key In-Reply-To: <122441322812990@web154.yandex.ru> References: <680361321936512@web126.yandex.ru> <20111122045657.GA10596@tetsuo.karasik.eu.org> <43651322575372@web52.yandex.ru> <20111129152713.GA3549@tetsuo.karasik.eu.org> <122441322812990@web154.yandex.ru> Message-ID: <20111202081347.GA74884@tetsuo.karasik.eu.org> > у программ MDI интерфейс и внутри окна есть и другие, дочерние окна, до которых и > не удается добраться когда-то давно в состав ms dev studio входила утилита spyxx.exe которой можно было смотреть иерархию окон в интерактиве, может поможет она, или ее более современные аналоги > правда я сейчас понял, что это можно сделать через меню > "Copy All to Сlipboard" > правда, чтобы работал ALT-space > да, и как послать ALT+space > так SendKeys("%{SPACE}"); > не проходит можно порыться в сырцах putty и посмотреть какое сообщение посылает "Copy All To Clipboard", скорее всего какое нибудь WM_USER+666 или около того. И попробовать его послать самому. -- Sincerely, Dmitry Karasik From nordicdyno на yandex.ru Mon Dec 5 00:43:25 2011 From: nordicdyno на yandex.ru (Orlovsky Alexander) Date: Mon, 05 Dec 2011 12:43:25 +0400 Subject: [Moscow.pm] Saint Perl - 3 In-Reply-To: References: <53481320152670@web62.yandex.ru> <271961320307143@web147.yandex.ru> <69B10C28-309C-483F-8B57-4663B6C6DF7E@rambler-co.ru> <332131320915401@web93.yandex.ru> Message-ID: <529841323074605@web5.yandex.ru> Вложение в формате HTML было извлечено… URL: From i.petro.77.00 на gmail.com Mon Dec 5 00:55:40 2011 From: i.petro.77.00 на gmail.com (Ivan Petrov) Date: Mon, 5 Dec 2011 12:55:40 +0400 Subject: [Moscow.pm] =?utf-8?b?0KHQv9C70LjRgiAkQA==?= Message-ID: <20111205085539.GE915@apache.rbscorp.ru> Есть задачка узнать в каком файле и в какой строке произошло исключение. парсинг $@ представляется довольно ненадежным. Местами вообще не дает правильных данных. есть какая-то возможность выполнить eval { foo }; и ТОЧНО знать в какой строке выброшено исключение? From chesnokov.ilya на gmail.com Mon Dec 5 02:28:30 2011 From: chesnokov.ilya на gmail.com (Ilya Chesnokov) Date: Mon, 5 Dec 2011 14:28:30 +0400 Subject: [Moscow.pm] =?utf-8?b?0KHQv9C70LjRgiAkQA==?= In-Reply-To: <20111205085539.GE915@apache.rbscorp.ru> References: <20111205085539.GE915@apache.rbscorp.ru> Message-ID: Можно попробовать через Devel::DollarAt, хотя его в продакшене не рекомендуется использовать. 5 декабря 2011 г. 12:55 пользователь Ivan Petrov написал: > Есть задачка узнать в каком файле и в какой строке произошло > исключение. > > парсинг $@ представляется довольно ненадежным. Местами вообще не дает > правильных данных. > > есть какая-то возможность выполнить eval { foo }; и ТОЧНО знать в > какой строке выброшено исключение? > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Best regards, Ilya Chesnokov From q на cono.org.ua Mon Dec 5 02:59:20 2011 From: q на cono.org.ua (Alex Varyanick) Date: Mon, 5 Dec 2011 12:59:20 +0200 Subject: [Moscow.pm] =?utf-8?b?0KHQv9C70LjRgiAkQA==?= In-Reply-To: <20111205085539.GE915@apache.rbscorp.ru> References: <20111205085539.GE915@apache.rbscorp.ru> Message-ID: 2011/12/5 Ivan Petrov : > Есть задачка узнать в каком файле и в какой строке произошло > исключение. > > парсинг $@ представляется довольно ненадежным. Местами вообще не дает > правильных данных. > > есть какая-то возможность выполнить eval { foo }; и ТОЧНО знать в > какой строке выброшено исключение? http://paste.org.ru/?1ix1om -- Varyanick I. Alex icq: 102 575 440 skype: cono.. q на cono.org.ua From sharifulin на gmail.com Mon Dec 5 03:08:48 2011 From: sharifulin на gmail.com (=?KOI8-R?B?4c7B1M/Mycog+8HSycbVzMnO?=) Date: Mon, 5 Dec 2011 15:08:48 +0400 Subject: [Moscow.pm] Saint Perl - 3 In-Reply-To: <529841323074605@web5.yandex.ru> References: <53481320152670@web62.yandex.ru> <271961320307143@web147.yandex.ru> <69B10C28-309C-483F-8B57-4663B6C6DF7E@rambler-co.ru> <332131320915401@web93.yandex.ru> <529841323074605@web5.yandex.ru> Message-ID: Во вторник в 19:00 я буду на тусе Moscow.js в помещение Яндекса, может там или после встретиться и пообщаться :) 2011/12/5 Orlovsky Alexander > Ну что? Сегодня 5 декабря. Когда и где сбор? > У меня готов уже текст доклада и несколько слайдов. Могу попробовать > рассказать по-быстрому и заодно проверить, что никто не уснет ) > 28.11.2011, 14:37, "Анатолий Шарифулин" : > > 6 или 7 декабря в Москве, давайте в эти дни, а-то меня в Питере скорей > всего не будет, а по Moscow.pm я соскучился)) > > 2011/11/27 Pavel Vlasov > > Ну как будет прогон докладов в Москве? > Про 4 декабря говорили выше. > > Я готов выступить http://event.perlrussia.org/saintperl3/talk/169 > > > > 2011/11/25 Andrew Shitov > > Привет! > > Появились скидки 40-50% на гостиницы в Санкт-Петербурге: > http://ostrovok.ru/deals/. > Есть места на даты воркшопа! > > > > > 2011/11/10 Orlovsky Alexander : > > я начал уже готовить один доклад, засабмитил его краткое описание на > сайт: > > http://event.perlrussia.org/saintperl3/ > > > > 03.11.2011, 19:04, "Mons Anderson" : > >> Как площадку думаю вполне пробью Рамблер > >> > >> On 03.11.2011, at 14:11, Ruslan Zakirov wrote: > >>> Нужна площадка и желающие рассказать. > > -- > > Moscow.pm mailing list > > moscow-pm на pm.org | http://moscow.pm.org > > > > > -- > Andrew Shitov > ______________________________________________________________________ > andy на shitov.ru | http://shitov.ru > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > > > > > -- > Best regards, Pavel Vlasov > Please consider the environment before printing this email. > > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > > > > -- > С уважением, > Анатолий Шарифулин. > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > > -- С уважением, Анатолий Шарифулин. ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From anotheroneackap на gmail.com Mon Dec 5 03:17:26 2011 From: anotheroneackap на gmail.com (Ackap AnotherOne) Date: Mon, 5 Dec 2011 14:17:26 +0300 Subject: [Moscow.pm] =?koi8-r?b?IPPQzMnUICRA?= Message-ID: >Есть задачка узнать в каком файле и в какой строке произошло >исключение. >парсинг $@ представляется довольно ненадежным. Местами вообще не дает >правильных данных. >есть какая-то возможность выполнить eval { foo }; и ТОЧНО знать в >какой строке выброшено исключение? есть ещё препроцессорная магия http://www.effectiveperlprogramming.com/blog/1338 ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From sergey.aleynikov на gmail.com Mon Dec 5 03:33:09 2011 From: sergey.aleynikov на gmail.com (Sergey Aleynikov) Date: Mon, 5 Dec 2011 15:33:09 +0400 Subject: [Moscow.pm] =?koi8-r?b?89DMydQgJEA=?= In-Reply-To: <20111205085539.GE915@apache.rbscorp.ru> References: <20111205085539.GE915@apache.rbscorp.ru> Message-ID: Повесить свой обработчик на $SIG{__DIE__} и посмотреть на caller'a. ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From mi на ya.ru Mon Dec 5 07:24:14 2011 From: mi на ya.ru (Nikolay Mishin) Date: Mon, 05 Dec 2011 19:24:14 +0400 Subject: [Moscow.pm] Smart::Comments Message-ID: <757441323098654@web77.yandex.ru> Moscow.PM, люди помогите почему в use Smart::Comments нужно использовать только ссылку, приходиться писать так ### echo current line... my $rline=\$_; ### $rline и весь кайф от комментирования #use Smart::Comments; обламывается;( -- Nikolay Mishin From zzz на zzz.org.ua Mon Dec 5 07:26:21 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Mon, 5 Dec 2011 17:26:21 +0200 Subject: [Moscow.pm] Smart::Comments In-Reply-To: <757441323098654@web77.yandex.ru> References: <757441323098654@web77.yandex.ru> Message-ID: On 12/5/11, Nikolay Mishin wrote: > и весь кайф от комментирования #use Smart::Comments; > обламывается;( Сделай отдельный для себя, это ж несколько строчек всего :) From mi на ya.ru Mon Dec 5 07:35:09 2011 From: mi на ya.ru (Nikolay Mishin) Date: Mon, 05 Dec 2011 19:35:09 +0400 Subject: [Moscow.pm] Smart::Comments In-Reply-To: References: <757441323098654@web77.yandex.ru> Message-ID: <163551323099309@web74.yandex.ru> Саш, спасибо, все решилось еще проще: $cat test.pl my $i='3333'; ### i:$i $perl -I../perl/utils/lib -MSmart::Comments test.pl ### i: '3333' проблема решена, супер! (перепрочитал доку) 05.12.2011, 19:26, "Alexandr Gomoliako" : > On 12/5/11, Nikolay Mishin wrote: > >>  и весь кайф от комментирования #use Smart::Comments; >>  обламывается;( > > Сделай отдельный для себя, это ж несколько строчек всего :) > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From mi на ya.ru Mon Dec 5 07:41:47 2011 From: mi на ya.ru (Nikolay Mishin) Date: Mon, 05 Dec 2011 19:41:47 +0400 Subject: [Moscow.pm] Smart::Comments In-Reply-To: <163551323099309@web74.yandex.ru> References: <757441323098654@web77.yandex.ru> <163551323099309@web74.yandex.ru> Message-ID: <302941323099707@web59.yandex.ru> странно оказалось и так работает $cat test.pl my $i='3333'; ### $i for (1..3){ ### $_ } $perl -I../perl/utils/lib -MSmart::Comments test.pl ### $i: '3333' ### $_: 1 ### $_: 2 ### $_: 3 видимо что-то устал к вечеру понедельника, потому как мне казалось, что если передавать константу,а не ссылку, то он ругается, во всяком случае в более сложно коде он ругался , ну значит вообще хорошо 05.12.2011, 19:35, "Nikolay Mishin" : >  Саш, спасибо, все решилось еще проще: > >  $cat test.pl >  my $i='3333'; >  ### i:$i > >  $perl -I../perl/utils/lib -MSmart::Comments test.pl > >  ### i: '3333' > >  проблема решена, супер! > >  (перепрочитал доку) > >  05.12.2011, 19:26, "Alexandr Gomoliako" : >>   On 12/5/11, Nikolay Mishin wrote: >>>    и весь кайф от комментирования #use Smart::Comments; >>>    обламывается;( >>   Сделай отдельный для себя, это ж несколько строчек всего :) >> >>   -- >>   Moscow.pm mailing list >>   moscow-pm на pm.org | http://moscow.pm.org >  -- >  Nikolay Mishin -- Nikolay Mishin From i.petro.77.00 на gmail.com Mon Dec 5 22:58:45 2011 From: i.petro.77.00 на gmail.com (Ivan Petrov) Date: Tue, 6 Dec 2011 10:58:45 +0400 Subject: [Moscow.pm] =?utf-8?b?0KHQv9C70LjRgiAkQA==?= In-Reply-To: References: <20111205085539.GE915@apache.rbscorp.ru> Message-ID: <20111206065845.GC31845@apache.rbscorp.ru> > Повесить свой обработчик на $SIG{__DIE__} и посмотреть на caller'a. а выделить строку ошибки есть возможность? Без парсинга From maxim.vuets на gmail.com Mon Dec 5 23:26:24 2011 From: maxim.vuets на gmail.com (Maxim Vuets) Date: Tue, 6 Dec 2011 09:26:24 +0200 Subject: [Moscow.pm] =?koi8-r?b?89DMydQgJEA=?= In-Reply-To: <20111206065845.GC31845@apache.rbscorp.ru> References: <20111205085539.GE915@apache.rbscorp.ru> <20111206065845.GC31845@apache.rbscorp.ru> Message-ID: 2011/12/6 Ivan Petrov : >> Повесить свой обработчик на $SIG{__DIE__} и посмотреть на caller'a. > > а выделить строку ошибки есть возможность? Без парсинга Она приходит в @_. -- maxim.vuets.name From vaneska.ru на gmail.com Mon Dec 5 23:29:20 2011 From: vaneska.ru на gmail.com (=?KOI8-R?B?6dfBziDzz8vPzM/X?=) Date: Tue, 6 Dec 2011 10:29:20 +0300 Subject: [Moscow.pm] =?koi8-r?b?89DMydQgJEA=?= In-Reply-To: References: <20111205085539.GE915@apache.rbscorp.ru> <20111206065845.GC31845@apache.rbscorp.ru> Message-ID: Можно покурить https://metacpan.org/source/SRI/Mojolicious-2.36/lib/Mojo/Exception.pm Там это все сделано.. Себастьян похоже парсит $@ 6 декабря 2011 г. 10:26 пользователь Maxim Vuets написал: > 2011/12/6 Ivan Petrov : > >>> Повесить свой обработчик на $SIG{__DIE__} и посмотреть на caller'a. >> >> а выделить строку ошибки есть возможность? Без парсинга > > Она приходит в @_. > > -- > maxim.vuets.name > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- С уважением, Иван From i.petro.77.00 на gmail.com Tue Dec 6 01:14:37 2011 From: i.petro.77.00 на gmail.com (Ivan Petrov) Date: Tue, 6 Dec 2011 13:14:37 +0400 Subject: [Moscow.pm] =?utf-8?b?0KHQv9C70LjRgiAkQA==?= In-Reply-To: References: <20111205085539.GE915@apache.rbscorp.ru> <20111206065845.GC31845@apache.rbscorp.ru> Message-ID: <20111206091435.GD31845@apache.rbscorp.ru> > https://metacpan.org/source/SRI/Mojolicious-2.36/lib/Mojo/Exception.pm > Там это все сделано.. > Себастьян похоже парсит $@ Да да. именно из за того что в Mojo бывает трудно разгрести откуда РЕАЛЬНО пришел Exception я и хочу поковыряться на эту тему. > 6 декабря 2011 г. 10:26 пользователь Maxim Vuets > написал: >> 2011/12/6 Ivan Petrov : >> >>>> Повесить свой обработчик на $SIG{__DIE__} и посмотреть на caller'a. >>> >>> а выделить строку ошибки есть возможность? Без парсинга >> >> Она приходит в @_. она там приходит перемешана с разного рода добавками то есть кто-то написал die 123; а придет "123 at File.name line 345" а иногда еще добавит разного рода другой мусор From vaneska.ru на gmail.com Tue Dec 6 01:41:55 2011 From: vaneska.ru на gmail.com (=?KOI8-R?B?6dfBziDzz8vPzM/X?=) Date: Tue, 6 Dec 2011 12:41:55 +0300 Subject: [Moscow.pm] =?koi8-r?b?89DMydQgJEA=?= In-Reply-To: <20111206091435.GD31845@apache.rbscorp.ru> References: <20111205085539.GE915@apache.rbscorp.ru> <20111206065845.GC31845@apache.rbscorp.ru> <20111206091435.GD31845@apache.rbscorp.ru> Message-ID: Все что реально об ошибке можно выцепить здесь звучало. caller, $@ и __LINE__ больше не знаю. Все это нужно исследовать на конкретных примерах. Флаг Вам в руки ) мне обычно хватает Carp::longmess, чтобы понять, в чем причина ошибки. Но это не в Mojo, а в Catalyst 6 декабря 2011 г. 12:14 пользователь Ivan Petrov написал: >> https://metacpan.org/source/SRI/Mojolicious-2.36/lib/Mojo/Exception.pm >> Там это все сделано.. >> Себастьян похоже парсит $@ > > Да да. именно из за того что в Mojo бывает трудно разгрести откуда > РЕАЛЬНО пришел Exception я и хочу поковыряться на эту тему. > >> 6 декабря 2011 г. 10:26 пользователь Maxim Vuets >> написал: >>> 2011/12/6 Ivan Petrov : >>> >>>>> Повесить свой обработчик на $SIG{__DIE__} и посмотреть на caller'a. >>>> >>>> а выделить строку ошибки есть возможность? Без парсинга >>> >>> Она приходит в @_. > > она там приходит перемешана с разного рода добавками > >  то есть кто-то написал die 123; >  а придет "123 at File.name line 345" > > а иногда еще добавит разного рода другой мусор > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- С уважением, Иван From ruz на bestpractical.com Tue Dec 6 01:50:03 2011 From: ruz на bestpractical.com (Ruslan Zakirov) Date: Tue, 6 Dec 2011 13:50:03 +0400 Subject: [Moscow.pm] =?utf-8?b?0KHQv9C70LjRgiAkQA==?= In-Reply-To: References: <20111205085539.GE915@apache.rbscorp.ru> <20111206065845.GC31845@apache.rbscorp.ru> <20111206091435.GD31845@apache.rbscorp.ru> Message-ID: Есть еще Carp::Always, а так вам нужно реально caller в списковом контексте. 2011/12/6 Иван Соколов : > Все что реально об ошибке можно выцепить здесь звучало. > caller, $@ и __LINE__ > больше не знаю. > Все это нужно исследовать на конкретных примерах. > Флаг Вам в руки ) > > мне обычно хватает Carp::longmess, чтобы понять, в чем причина ошибки. > Но это не в Mojo, а в Catalyst > > 6 декабря 2011 г. 12:14 пользователь Ivan Petrov > написал: >>> https://metacpan.org/source/SRI/Mojolicious-2.36/lib/Mojo/Exception.pm >>> Там это все сделано.. >>> Себастьян похоже парсит $@ >> >> Да да. именно из за того что в Mojo бывает трудно разгрести откуда >> РЕАЛЬНО пришел Exception я и хочу поковыряться на эту тему. >> >>> 6 декабря 2011 г. 10:26 пользователь Maxim Vuets >>> написал: >>>> 2011/12/6 Ivan Petrov : >>>> >>>>>> Повесить свой обработчик на $SIG{__DIE__} и посмотреть на caller'a. >>>>> >>>>> а выделить строку ошибки есть возможность? Без парсинга >>>> >>>> Она приходит в @_. >> >> она там приходит перемешана с разного рода добавками >> >>  то есть кто-то написал die 123; >>  а придет "123 at File.name line 345" >> >> а иногда еще добавит разного рода другой мусор >> >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > > > -- > С уважением, > Иван > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Best regards, Ruslan. From q на cono.org.ua Tue Dec 6 02:12:30 2011 From: q на cono.org.ua (Alex Varyanick) Date: Tue, 6 Dec 2011 12:12:30 +0200 Subject: [Moscow.pm] =?utf-8?b?0KHQv9C70LjRgiAkQA==?= In-Reply-To: <20111206091435.GD31845@apache.rbscorp.ru> References: <20111205085539.GE915@apache.rbscorp.ru> <20111206065845.GC31845@apache.rbscorp.ru> <20111206091435.GD31845@apache.rbscorp.ru> Message-ID: 2011/12/6 Ivan Petrov : > она там приходит перемешана с разного рода добавками > >  то есть кто-то написал die 123; >  а придет "123 at File.name line 345" > > а иногда еще добавит разного рода другой мусор local $SIG{__DIE__} = sub { (undef, $filename, $line) = caller(0); $line = do { open(my $fh, $filename); my @l = <$fh>; $l[$line - 1]; }; }; :) естb ещё возможность через perl -d и тогда: $main::{"_<$filename"}, но у меня с пол-пинка не вышло, если будет время, - поковыряю -- Varyanick I. Alex icq: 102 575 440 skype: cono.. q на cono.org.ua From sergey.aleynikov на gmail.com Tue Dec 6 02:47:49 2011 From: sergey.aleynikov на gmail.com (Sergey Aleynikov) Date: Tue, 6 Dec 2011 14:47:49 +0400 Subject: [Moscow.pm] =?koi8-r?b?89DMydQgJEA=?= In-Reply-To: References: <20111205085539.GE915@apache.rbscorp.ru> <20111206065845.GC31845@apache.rbscorp.ru> <20111206091435.GD31845@apache.rbscorp.ru> Message-ID: Добрый день, >то есть кто-то написал die 123; >а придет "123 at File.name line 345" Perl для строк, не оканчивающейся на \n, автоматически добавляет этот хвост, это поведение не изменить. Либо режьте его регуляркой, либо делайте die "reason\n". Best regards, Sergey Aleynikov ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From swenyenssen на yahoo.com Tue Dec 6 04:38:27 2011 From: swenyenssen на yahoo.com (Swen Yenssen) Date: Tue, 6 Dec 2011 04:38:27 -0800 (PST) Subject: [Moscow.pm] =?utf-8?b?0JjRidC10LwgUGVybC3Qv9GA0L7Qs9GA0LDQvNC8?= =?utf-8?b?0LjRgdGC0LAgKNGD0LTQsNC70LXQvdC90LDRjyDRgNCw0LHQvtGC0LAp?= Message-ID: <1323175107.84984.YahooMailNeo@web120905.mail.ne1.yahoo.com> Ищем perl программиста для долгосрочного сотрудничества. .:Основные требования:. - Знание perl. - Знание MySQL. - Опыт работы с известными шаблонизаторами. - Высокая доступность. - Стрессустойчивость. .:Немного о нас:. Предстоит разобраться и поддерживать веб проект с весьма обшироной инфраструктурой. Тут будет и веб и не веб. .:Оплата:. Оплата 2000$ за 4 недели работы. В неделю 2 выходных. Возможны бонусы, премиальные. .:Контакты:. jabber: mr.j на swissjabber.ch ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From ruz на bestpractical.com Tue Dec 6 04:51:05 2011 From: ruz на bestpractical.com (Ruslan Zakirov) Date: Tue, 6 Dec 2011 16:51:05 +0400 Subject: [Moscow.pm] =?utf-8?b?0JLRgdGC0YDQtdGH0LDRgSDRgSDQotC+0LvQuNC6?= =?utf-8?b?0L7QvCAo0JHRi9C70L46IFNhaW50IFBlcmwgLSAzKQ==?= Message-ID: Привет. Я приеду. Что-то нужно в яндексе на проходной? Москва, ул. Льва Толстого, 16? 2011/12/5 Анатолий Шарифулин : > Во вторник в 19:00 я буду на тусе Moscow.js в помещение Яндекса, может там > или после встретиться и пообщаться :) -- Best regards, Ruslan. From nordicdyno на yandex.ru Tue Dec 6 05:54:05 2011 From: nordicdyno на yandex.ru (Orlovsky Alexander) Date: Tue, 06 Dec 2011 17:54:05 +0400 Subject: [Moscow.pm] =?koi8-r?b?99PU0sXewdMg0yD0z8zJy8/NICji2czPOiBTYWlu?= =?koi8-r?b?dCBQZXJsIC0gMyk=?= In-Reply-To: References: Message-ID: <37871323179645@web19.yandex.ru> На проходной нужно чтобы кто-то из сотрудников встретил, как-минимум. Набери меня или Толика, когда приедешь. 06.12.2011, 16:51, "Ruslan Zakirov" : > Привет. > > Я приеду. Что-то нужно в яндексе на проходной? Москва, ул. Льва Толстого, 16? > > 2011/12/5 Анатолий Шарифулин : > >>  Во вторник в 19:00 я буду на тусе Moscow.js в помещение Яндекса, может там >>  или после встретиться и пообщаться :) > -- > Best regards, Ruslan. > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From sharifulin на gmail.com Tue Dec 6 07:38:24 2011 From: sharifulin на gmail.com (=?KOI8-R?B?4c7B1M/Mycog+8HSycbVzMnO?=) Date: Tue, 6 Dec 2011 19:38:24 +0400 Subject: [Moscow.pm] =?koi8-r?b?99PU0sXewdMg0yD0z8zJy8/NICji2czPOiBTYWlu?= =?koi8-r?b?dCBQZXJsIC0gMyk=?= In-Reply-To: <37871323179645@web19.yandex.ru> References: <37871323179645@web19.yandex.ru> Message-ID: Мы встретились, тут скучно, жаль что Perl сдох)) 2011/12/6 Orlovsky Alexander > На проходной нужно чтобы кто-то из сотрудников встретил, как-минимум. > Набери меня или Толика, когда приедешь. > > 06.12.2011, 16:51, "Ruslan Zakirov" : > > Привет. > > > > Я приеду. Что-то нужно в яндексе на проходной? Москва, ул. Льва > Толстого, 16? > > > > 2011/12/5 Анатолий Шарифулин : > > > >> Во вторник в 19:00 я буду на тусе Moscow.js в помещение Яндекса, может > там > >> или после встретиться и пообщаться :) > > -- > > Best regards, Ruslan. > > -- > > Moscow.pm mailing list > > moscow-pm на pm.org | http://moscow.pm.org > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > -- С уважением, Анатолий Шарифулин. ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From ruz на bestpractical.com Tue Dec 6 07:44:11 2011 From: ruz на bestpractical.com (Ruslan Zakirov) Date: Tue, 6 Dec 2011 19:44:11 +0400 Subject: [Moscow.pm] =?utf-8?b?0JLRgdGC0YDQtdGH0LDRgSDRgSDQotC+0LvQuNC6?= =?utf-8?b?0L7QvCAo0JHRi9C70L46IFNhaW50IFBlcmwgLSAzKQ==?= In-Reply-To: References: <37871323179645@web19.yandex.ru> Message-ID: 2011/12/6 Анатолий Шарифулин : > Мы встретились, тут скучно, жаль что Perl сдох)) Подходите после, посидим где-нибудь. -- Best regards, Ruslan. From yu.pats на gmail.com Tue Dec 6 10:18:41 2011 From: yu.pats на gmail.com (Yury Pats) Date: Tue, 6 Dec 2011 21:18:41 +0300 Subject: [Moscow.pm] =?utf-8?b?0JLRgdGC0YDQtdGH0LDRgSDRgSDQotC+0LvQuNC6?= =?utf-8?b?0L7QvCAo0JHRi9C70L46IFNhaW50IFBlcmwgLSAzKQ==?= In-Reply-To: References: <37871323179645@web19.yandex.ru> Message-ID: On Tue, Dec 6, 2011 at 18:38, Анатолий Шарифулин wrote: > Мы встретились, тут скучно, жаль что Perl сдох)) эхх... > > > 2011/12/6 Orlovsky Alexander >> >> На проходной нужно чтобы кто-то из сотрудников встретил, как-минимум. >> Набери меня или Толика, когда приедешь. >> >> 06.12.2011, 16:51, "Ruslan Zakirov" : >> > Привет. >> > >> > Я приеду. Что-то нужно в яндексе на проходной? Москва, ул. Льва >> > Толстого, 16? >> > >> > 2011/12/5 Анатолий Шарифулин : >> > >> >>  Во вторник в 19:00 я буду на тусе Moscow.js в помещение Яндекса, может >> >> там >> >>  или после встретиться и пообщаться :) >> > -- >> > Best regards, Ruslan. >> > -- >> > Moscow.pm mailing list >> > moscow-pm на pm.org | http://moscow.pm.org >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > > > > -- > С уважением, >  Анатолий Шарифулин. > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > -- WBR, Yury Pats skype: yuripats cellular: +375 (29) 5870723 From mi на ya.ru Tue Dec 6 20:55:48 2011 From: mi на ya.ru (Nikolay Mishin) Date: Wed, 07 Dec 2011 08:55:48 +0400 Subject: [Moscow.pm] =?koi8-r?b?99PU0sXewdMg0yD0z8zJy8/NICji2czPOiBTYWlu?= =?koi8-r?b?dCBQZXJsIC0gMyk=?= In-Reply-To: References: <37871323179645@web19.yandex.ru> Message-ID: <27441323233748@web67.yandex.ru> слишком неудобное время, я, например, Лондон до 8 поддерживаю и мог бы разве что в 9, вот в субботу было бы в самый раз 06.12.2011, 19:38, "Анатолий Шарифулин" : > Мы встретились, тут скучно, жаль что Perl сдох)) > > 2011/12/6 Orlovsky Alexander >> На проходной нужно чтобы кто-то из сотрудников встретил, как-минимум. >> Набери меня или Толика, когда приедешь. >> >> 06.12.2011, 16:51, "Ruslan Zakirov" : >> >>> Привет. >>> >>> Я приеду. Что-то нужно в яндексе на проходной? Москва, ул. Льва Толстого, 16? >>> >>> 2011/12/5 Анатолий Шарифулин : >>> >>>>  Во вторник в 19:00 я буду на тусе Moscow.js в помещение Яндекса, может там >>>>  или после встретиться и пообщаться :) >>> -- >>> Best regards, Ruslan. >>> -- >>> Moscow.pm mailing list >>> moscow-pm на pm.org | http://moscow.pm.org >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > -- > С уважением, >  Анатолий Шарифулин. > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From nordicdyno на yandex.ru Tue Dec 6 23:31:13 2011 From: nordicdyno на yandex.ru (Orlovsky Alexander) Date: Wed, 07 Dec 2011 11:31:13 +0400 Subject: [Moscow.pm] =?koi8-r?b?99PU0sXewdMg0yD0z8zJy8/NICji2czPOiBTYWlu?= =?koi8-r?b?dCBQZXJsIC0gMyk=?= In-Reply-To: References: <37871323179645@web19.yandex.ru> Message-ID: <407001323243073@web128.yandex.ru> 06.12.2011, 22:18, "Yury Pats" : > On Tue, Dec 6, 2011 at 18:38, Анатолий Шарифулин wrote: > >>  Мы встретились, тут скучно, жаль что Perl сдох)) > > эхх...  Да ладно вам! У Perl все вроде неплохо. А moscow.pm никогда особой активностью не отличалось, кроме может первых лет от основания ) From sharifulin на gmail.com Tue Dec 6 23:59:21 2011 From: sharifulin на gmail.com (=?KOI8-R?B?4c7B1M/Mycog+8HSycbVzMnO?=) Date: Wed, 7 Dec 2011 11:59:21 +0400 Subject: [Moscow.pm] =?koi8-r?b?99PU0sXewdMg0yD0z8zJy8/NICji2czPOiBTYWlu?= =?koi8-r?b?dCBQZXJsIC0gMyk=?= In-Reply-To: <407001323243073@web128.yandex.ru> References: <37871323179645@web19.yandex.ru> <407001323243073@web128.yandex.ru> Message-ID: Это был троллинг, как обычно)) среда, 7 декабря 2011 г. пользователь Orlovsky Alexander < nordicdyno на yandex.ru> писал: > 06.12.2011, 22:18, "Yury Pats" : >> On Tue, Dec 6, 2011 at 18:38, Анатолий Шарифулин wrote: >> >>> Мы встретились, тут скучно, жаль что Perl сдох)) >> >> эхх... > > Да ладно вам! У Perl все вроде неплохо. > А moscow.pm никогда особой активностью не отличалось, кроме может первых лет от основания ) > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > -- С уважением, Анатолий Шарифулин. ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From andy на shitov.ru Wed Dec 7 04:02:37 2011 From: andy на shitov.ru (Andrew Shitov) Date: Wed, 7 Dec 2011 13:02:37 +0100 Subject: [Moscow.pm] =?utf-8?b?0JDQv9C00LXQudGC0Ys=?= Message-ID: Привет! Есть несколько однострочных новостей :-) Во-первых, на воркшопе 18 декабря в Санкт-Петербурге будет еда. Во-вторых, на мероприятие уже зарегистрировалось 54 человека и заявлено 16 докладов и блицев: http://event.perlrussia.org/saintperl3/talks. Сайт группы Moscow.pm теперь доступен по адресу http://moscow.pm/. На сайте O'Reilly теперь можно купить электронные книги (кроме серии Pragmatic Bookshelf) со скидкой 50% и по-прежнему действует скидка 40% на бумажные. Промо-код Moscow.pm ? OR112. -- Andrew Shitov ______________________________________________________________________ andy на shitov.ru | http://shitov.ru From nordicdyno на yandex.ru Wed Dec 7 04:40:01 2011 From: nordicdyno на yandex.ru (Orlovsky Alexander) Date: Wed, 07 Dec 2011 16:40:01 +0400 Subject: [Moscow.pm] =?koi8-r?b?4dDExcrU2Q==?= In-Reply-To: References: Message-ID: <8801323261601@web145.yandex.ru> 07.12.2011, 16:02, "Andrew Shitov" : > Привет! > > Есть несколько однострочных новостей :-) > > Во-первых, на воркшопе 18 декабря в Санкт-Петербурге будет еда. > Во-вторых, на мероприятие уже зарегистрировалось 54 человека и > заявлено 16 докладов и блицев: > http://event.perlrussia.org/saintperl3/talks. > > Сайт группы Moscow.pm теперь доступен по адресу http://moscow.pm/. > > На сайте O'Reilly теперь можно купить электронные книги (кроме серии > Pragmatic Bookshelf) со скидкой 50% и по-прежнему действует скидка 40% > на бумажные. Промо-код Moscow.pm ? OR112. ^^^like ) P.S. надо будет купить пару книжек (из полезных прочитанных + что-нибудь новое) From sharifulin на gmail.com Wed Dec 7 04:43:52 2011 From: sharifulin на gmail.com (=?KOI8-R?B?4c7B1M/Mycog+8HSycbVzMnO?=) Date: Wed, 7 Dec 2011 16:43:52 +0400 Subject: [Moscow.pm] =?koi8-r?b?4dDExcrU2Q==?= In-Reply-To: References: Message-ID: Андрей, хорошие новости! За домен спасибо, класс) среда, 7 декабря 2011 г. пользователь Andrew Shitov писал: > Привет! > > Есть несколько однострочных новостей :-) > > > Во-первых, на воркшопе 18 декабря в Санкт-Петербурге будет еда. > Во-вторых, на мероприятие уже зарегистрировалось 54 человека и > заявлено 16 докладов и блицев: > http://event.perlrussia.org/saintperl3/talks. > > > Сайт группы Moscow.pm теперь доступен по адресу http://moscow.pm/. > > > На сайте O'Reilly теперь можно купить электронные книги (кроме серии > Pragmatic Bookshelf) со скидкой 50% и по-прежнему действует скидка 40% > на бумажные. Промо-код Moscow.pm -- OR112. > > > -- > Andrew Shitov > ______________________________________________________________________ > andy на shitov.ru | http://shitov.ru > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > -- С уважением, Анатолий Шарифулин. ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From ruz на bestpractical.com Wed Dec 7 06:13:33 2011 From: ruz на bestpractical.com (Ruslan Zakirov) Date: Wed, 7 Dec 2011 18:13:33 +0400 Subject: [Moscow.pm] =?utf-8?b?0JLRgdGC0YDQtdGH0LDRgSDRgSDQotC+0LvQuNC6?= =?utf-8?b?0L7QvCAo0JHRi9C70L46IFNhaW50IFBlcmwgLSAzKQ==?= In-Reply-To: References: <37871323179645@web19.yandex.ru> <407001323243073@web128.yandex.ru> Message-ID: 2011/12/7 Анатолий Шарифулин : > Это был троллинг, как обычно)) > > среда, 7 декабря 2011 г. пользователь Orlovsky Alexander > писал: > >> 06.12.2011, 22:18, "Yury Pats" : >>> On Tue, Dec 6, 2011 at 18:38, Анатолий Шарифулин >>> wrote: >>> >>>>  Мы встретились, тут скучно, жаль что Perl сдох)) >>> >>> эхх... >> >>  Да ладно вам! У Perl все вроде неплохо. >> А moscow.pm никогда особой активностью не отличалось, кроме может первых >> лет от основания ) По мне, нужен был один только человек, который договорился бы с теми кто предложил доклады и помещение. Затем этот человек пишет письмо с координатами и все. Нужно только сделать все заранее (две недели). Немного переписки и письмо в рассылку. Вот и все. Это может быть один из докладчиков. >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org >> > > -- > С уважением, >  Анатолий Шарифулин. > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > -- Best regards, Ruslan. From yu.pats на gmail.com Wed Dec 7 06:18:58 2011 From: yu.pats на gmail.com (Yury Pats) Date: Wed, 7 Dec 2011 17:18:58 +0300 Subject: [Moscow.pm] =?utf-8?b?0JLRgdGC0YDQtdGH0LDRgSDRgSDQotC+0LvQuNC6?= =?utf-8?b?0L7QvCAo0JHRi9C70L46IFNhaW50IFBlcmwgLSAzKQ==?= In-Reply-To: References: <37871323179645@web19.yandex.ru> <407001323243073@web128.yandex.ru> Message-ID: On Wed, Dec 7, 2011 at 17:13, Ruslan Zakirov wrote: > 2011/12/7 Анатолий Шарифулин : >> Это был троллинг, как обычно)) >> >> среда, 7 декабря 2011 г. пользователь Orlovsky Alexander >> писал: >> >>> 06.12.2011, 22:18, "Yury Pats" : >>>> On Tue, Dec 6, 2011 at 18:38, Анатолий Шарифулин >>>> wrote: >>>> >>>>>  Мы встретились, тут скучно, жаль что Perl сдох)) >>>> >>>> эхх... >>> >>>  Да ладно вам! У Perl все вроде неплохо. >>> А moscow.pm никогда особой активностью не отличалось, кроме может первых >>> лет от основания ) > > По мне, нужен был один только человек, который договорился бы с теми > кто предложил доклады и помещение. Затем этот человек пишет письмо с > координатами и все. Нужно только сделать все заранее (две недели). > Немного переписки и письмо в рассылку. Вот и все. Это может быть один > из докладчиков. > Короче, Шарифулин тряпка, потому что ничего не сделал, чтоб перл не сдох :) >>> -- >>> Moscow.pm mailing list >>> moscow-pm на pm.org | http://moscow.pm.org >>> >> >> -- >> С уважением, >>  Анатолий Шарифулин. >> >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org >> > > > > -- > Best regards, Ruslan. > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- WBR, Yury Pats skype: yuripats cellular: +375 (29) 5870723 From ruz на bestpractical.com Wed Dec 7 06:27:56 2011 From: ruz на bestpractical.com (Ruslan Zakirov) Date: Wed, 7 Dec 2011 18:27:56 +0400 Subject: [Moscow.pm] =?utf-8?b?0JLRgdGC0YDQtdGH0LDRgSDRgSDQotC+0LvQuNC6?= =?utf-8?b?0L7QvCAo0JHRi9C70L46IFNhaW50IFBlcmwgLSAzKQ==?= In-Reply-To: References: <37871323179645@web19.yandex.ru> <407001323243073@web128.yandex.ru> Message-ID: 2011/12/7 Yury Pats : > On Wed, Dec 7, 2011 at 17:13, Ruslan Zakirov wrote: >> 2011/12/7 Анатолий Шарифулин : >>> Это был троллинг, как обычно)) >>> >>> среда, 7 декабря 2011 г. пользователь Orlovsky Alexander >>> писал: >>> >>>> 06.12.2011, 22:18, "Yury Pats" : >>>>> On Tue, Dec 6, 2011 at 18:38, Анатолий Шарифулин >>>>> wrote: >>>>> >>>>>>  Мы встретились, тут скучно, жаль что Perl сдох)) >>>>> >>>>> эхх... >>>> >>>>  Да ладно вам! У Perl все вроде неплохо. >>>> А moscow.pm никогда особой активностью не отличалось, кроме может первых >>>> лет от основания ) >> >> По мне, нужен был один только человек, который договорился бы с теми >> кто предложил доклады и помещение. Затем этот человек пишет письмо с >> координатами и все. Нужно только сделать все заранее (две недели). >> Немного переписки и письмо в рассылку. Вот и все. Это может быть один >> из докладчиков. >> > > Короче, Шарифулин тряпка, потому что ничего не сделал, чтоб перл не сдох :) Причем тут он? :) Он как раз появился и как обычно в хорошем настроении. Социальная встреча прошла успешно. Спасибо Алексею, Александру и Толику. > >>>> -- >>>> Moscow.pm mailing list >>>> moscow-pm на pm.org | http://moscow.pm.org >>>> >>> >>> -- >>> С уважением, >>>  Анатолий Шарифулин. >>> >>> -- >>> Moscow.pm mailing list >>> moscow-pm на pm.org | http://moscow.pm.org >>> >> >> >> >> -- >> Best regards, Ruslan. >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > > > -- > WBR, Yury Pats > skype: yuripats > cellular: +375 (29) 5870723 > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Best regards, Ruslan. From yu.pats на gmail.com Wed Dec 7 06:30:28 2011 From: yu.pats на gmail.com (Yury Pats) Date: Wed, 7 Dec 2011 17:30:28 +0300 Subject: [Moscow.pm] =?utf-8?b?0JLRgdGC0YDQtdGH0LDRgSDRgSDQotC+0LvQuNC6?= =?utf-8?b?0L7QvCAo0JHRi9C70L46IFNhaW50IFBlcmwgLSAzKQ==?= In-Reply-To: References: <37871323179645@web19.yandex.ru> <407001323243073@web128.yandex.ru> Message-ID: On Wed, Dec 7, 2011 at 17:27, Ruslan Zakirov wrote: > 2011/12/7 Yury Pats : >> On Wed, Dec 7, 2011 at 17:13, Ruslan Zakirov wrote: >>> 2011/12/7 Анатолий Шарифулин : >>>> Это был троллинг, как обычно)) >>>> >>>> среда, 7 декабря 2011 г. пользователь Orlovsky Alexander >>>> писал: >>>> >>>>> 06.12.2011, 22:18, "Yury Pats" : >>>>>> On Tue, Dec 6, 2011 at 18:38, Анатолий Шарифулин >>>>>> wrote: >>>>>> >>>>>>>  Мы встретились, тут скучно, жаль что Perl сдох)) >>>>>> >>>>>> эхх... >>>>> >>>>>  Да ладно вам! У Perl все вроде неплохо. >>>>> А moscow.pm никогда особой активностью не отличалось, кроме может первых >>>>> лет от основания ) >>> >>> По мне, нужен был один только человек, который договорился бы с теми >>> кто предложил доклады и помещение. Затем этот человек пишет письмо с >>> координатами и все. Нужно только сделать все заранее (две недели). >>> Немного переписки и письмо в рассылку. Вот и все. Это может быть один >>> из докладчиков. >>> >> >> Короче, Шарифулин тряпка, потому что ничего не сделал, > чтоб перл не сдох :) > > Причем тут он? :) Он как раз появился и как обычно в хорошем > настроении. Социальная встреча прошла успешно. Спасибо Алексею, > Александру и Толику. > Это был троллинг, как обычно)) >> >>>>> -- >>>>> Moscow.pm mailing list >>>>> moscow-pm на pm.org | http://moscow.pm.org >>>>> >>>> >>>> -- >>>> С уважением, >>>>  Анатолий Шарифулин. >>>> >>>> -- >>>> Moscow.pm mailing list >>>> moscow-pm на pm.org | http://moscow.pm.org >>>> >>> >>> >>> >>> -- >>> Best regards, Ruslan. >>> -- >>> Moscow.pm mailing list >>> moscow-pm на pm.org | http://moscow.pm.org >> >> >> >> -- >> WBR, Yury Pats >> skype: yuripats >> cellular: +375 (29) 5870723 >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > > > -- > Best regards, Ruslan. > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- WBR, Yury Pats skype: yuripats cellular: +375 (29) 5870723 From sharifulin на gmail.com Wed Dec 7 09:02:04 2011 From: sharifulin на gmail.com (=?KOI8-R?B?4c7B1M/Mycog+8HSycbVzMnO?=) Date: Wed, 7 Dec 2011 21:02:04 +0400 Subject: [Moscow.pm] =?koi8-r?b?99PU0sXewdMg0yD0z8zJy8/NICji2czPOiBTYWlu?= =?koi8-r?b?dCBQZXJsIC0gMyk=?= In-Reply-To: References: <37871323179645@web19.yandex.ru> <407001323243073@web128.yandex.ru> Message-ID: Субъективно Шарифулин -- красавчик) И это не троллинг)) среда, 7 декабря 2011 г. пользователь Yury Pats писал: > On Wed, Dec 7, 2011 at 17:27, Ruslan Zakirov wrote: >> 2011/12/7 Yury Pats : >>> On Wed, Dec 7, 2011 at 17:13, Ruslan Zakirov wrote: >>>> 2011/12/7 Анатолий Шарифулин : >>>>> Это был троллинг, как обычно)) >>>>> >>>>> среда, 7 декабря 2011 г. пользователь Orlovsky Alexander >>>>> писал: >>>>> >>>>>> 06.12.2011, 22:18, "Yury Pats" : >>>>>>> On Tue, Dec 6, 2011 at 18:38, Анатолий Шарифулин < sharifulin на gmail.com> >>>>>>> wrote: >>>>>>> >>>>>>>> Мы встретились, тут скучно, жаль что Perl сдох)) >>>>>>> >>>>>>> эхх... >>>>>> >>>>>> Да ладно вам! У Perl все вроде неплохо. >>>>>> А moscow.pm никогда особой активностью не отличалось, кроме может первых >>>>>> лет от основания ) >>>> >>>> По мне, нужен был один только человек, который договорился бы с теми >>>> кто предложил доклады и помещение. Затем этот человек пишет письмо с >>>> координатами и все. Нужно только сделать все заранее (две недели). >>>> Немного переписки и письмо в рассылку. Вот и все. Это может быть один >>>> из докладчиков. >>>> >>> >>> Короче, Шарифулин тряпка, потому что ничего не сделал, >> чтоб перл не сдох :) >> >> Причем тут он? :) Он как раз появился и как обычно в хорошем >> настроении. Социальная встреча прошла успешно. Спасибо Алексею, >> Александру и Толику. >> > > Это был троллинг, как обычно)) > > >>> >>>>>> -- >>>>>> Moscow.pm mailing list >>>>>> moscow-pm на pm.org | http://moscow.pm.org >>>>>> >>>>> >>>>> -- >>>>> С уважением, >>>>> Анатолий Шарифулин. >>>>> >>>>> -- >>>>> Moscow.pm mailing list >>>>> moscow-pm на pm.org | http://moscow.pm.org >>>>> >>>> >>>> >>>> >>>> -- >>>> Best regards, Ruslan. >>>> -- >>>> Moscow.pm mailing list >>>> moscow-pm на pm.org | http://moscow.pm.org >>> >>> >>> >>> -- >>> WBR, Yury Pats >>> skype: yuripats >>> cellular: +375 (29) 5870723 >>> -- >>> Moscow.pm mailing list >>> moscow-pm на pm.org | http://moscow.pm.org >> >> >> >> -- >> Best regards, Ruslan. >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > > > -- > WBR, Yury Pats > skype: yuripats > cellular: +375 (29) 5870723 > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > -- С уважением, Анатолий Шарифулин. ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From q на cono.org.ua Wed Dec 7 10:13:09 2011 From: q на cono.org.ua (Alex Varyanick) Date: Wed, 7 Dec 2011 20:13:09 +0200 Subject: [Moscow.pm] =?utf-8?b?0JLRgdGC0YDQtdGH0LDRgSDRgSDQotC+0LvQuNC6?= =?utf-8?b?0L7QvCAo0JHRi9C70L46IFNhaW50IFBlcmwgLSAzKQ==?= In-Reply-To: References: <37871323179645@web19.yandex.ru> <407001323243073@web128.yandex.ru> Message-ID: 2011/12/7 Анатолий Шарифулин : > Субъективно Шарифулин ? красавчик) Выглядит как Имя Фамилия. Это твой брат? :) > И это троллинг)) -- Varyanick I. Alex icq: 102 575 440 skype: cono.. q на cono.org.ua From evdokimov.denis на gmail.com Wed Dec 7 11:33:32 2011 From: evdokimov.denis на gmail.com (Denis Evdokimov) Date: Wed, 7 Dec 2011 22:33:32 +0300 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= Message-ID: Приветствую. Кто мне сможет объяснить, почему второй вариант так разительно отличается от первого варианта? Много чего перечитал, прежде чем отправить вопрос, но внятно объяснить так и не смог. #!/usr/bin/perl use strict; use warnings; my $data = "aaa\nbbb\nccc\n"; # Вариант 1 close STDIN or die $!; open( STDIN, '<', \$data ) or die $!; @ARGV = (); while () { print "[[$ARGV]]***$_"; } # Вариант 2 close STDIN or die $!; open( STDIN, '<', \$data ) or die $!; @ARGV = (); while (<>) { print "[[$ARGV]]***$_"; } ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From ruz на bestpractical.com Wed Dec 7 12:54:13 2011 From: ruz на bestpractical.com (Ruslan Zakirov) Date: Thu, 8 Dec 2011 00:54:13 +0400 Subject: [Moscow.pm] =?utf-8?b?U1RESU4gPD4g0Lgg0YfRkdGA0L3QsNGPINC80LA=?= =?utf-8?b?0LPQuNGP?= In-Reply-To: References: Message-ID: 2011/12/7 Denis Evdokimov : > Приветствую. > Кто мне сможет объяснить, почему второй вариант так разительно отличается от > первого варианта? perl - программа и не без багов. -- Best regards, Ruslan. From dmitry на karasik.eu.org Wed Dec 7 23:57:18 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Thu, 8 Dec 2011 08:57:18 +0100 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: References: Message-ID: <20111208075718.GA97281@tetsuo.karasik.eu.org> On Wed, Dec 07, 2011 at 10:33:32PM +0300, Denis Evdokimov wrote: > Приветствую. > Кто мне сможет объяснить, почему второй вариант так разительно отличается > от первого варианта? The null filehandle <> is special: it can be used to emulate the behavior of sed and awk. Input from <> comes either from standard input, or from each file listed on the command line. Here's how it works: the first time <> is evaluated, the @ARGV array is checked, and if it is empty, $ARGV[0] is set to "-", which when opened gives you standard input. riable. и далее по тексту -- Sincerely, Dmitry Karasik From ruz на bestpractical.com Thu Dec 8 00:22:53 2011 From: ruz на bestpractical.com (Ruslan Zakirov) Date: Thu, 8 Dec 2011 12:22:53 +0400 Subject: [Moscow.pm] =?utf-8?b?U1RESU4gPD4g0Lgg0YfRkdGA0L3QsNGPINC80LA=?= =?utf-8?b?0LPQuNGP?= In-Reply-To: <20111208075718.GA97281@tetsuo.karasik.eu.org> References: <20111208075718.GA97281@tetsuo.karasik.eu.org> Message-ID: 2011/12/8 Dmitry Karasik : > is set to "-", which when opened gives you standard >    input. riable. Дока по PerlIO никак не стандартный ввод :) Во всяком случаю на 5.14 выводится это. -- Best regards, Ruslan. From evdokimov.denis на gmail.com Thu Dec 8 00:30:42 2011 From: evdokimov.denis на gmail.com (Denis Evdokimov) Date: Thu, 8 Dec 2011 11:30:42 +0300 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: References: <20111208075718.GA97281@tetsuo.karasik.eu.org> Message-ID: В 5.10 тоже самое. + мне кажется, что такими действиями я должен переопределить стандартный ввод 08.12.2011 12:23 пользователь "Ruslan Zakirov" написал: > 2011/12/8 Dmitry Karasik : > > is set to "-", which when opened gives you standard > > input. riable. > > Дока по PerlIO никак не стандартный ввод :) Во всяком случаю на 5.14 > выводится это. > > -- > Best regards, Ruslan. > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From timonnius на gmail.com Thu Dec 8 00:33:25 2011 From: timonnius на gmail.com (=?KOI8-R?B?9MnNz8bFyiDtwdLLz9c=?=) Date: Thu, 8 Dec 2011 11:33:25 +0300 Subject: [Moscow.pm] =?koi8-r?b?IHJvb3QgySBwaW5n?= Message-ID: Добрый день и хорошей работы(ну и отдыха кому повезло) Moscow.pm! сначала ситуация а потом вопросы. На серверах крутиться перловая программа, которая по средствам POE:Ping смотрит состояние каналов и оперативно меняет стоимость OSPF маршрутов. POE:Ping требует рутовые права, что меня напрягает. Я понимаю что в этом ничего хорошего нет, но конкретно чем это может мне грозить не понимаю. был бы благодарен если кто меня просветит в этом вопросе (ну или ссылками поделитесь (с инглишом дружу)). Вопрос два - как можно пинговать без рутовых прав (в принципе остается вариант запускать обычный ping, но это решение красивым не назвать). Заранее всем благодарен. (ах да пинг мне нужен не блокирующий) ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From dmitry на karasik.eu.org Thu Dec 8 00:36:36 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Thu, 8 Dec 2011 09:36:36 +0100 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: References: <20111208075718.GA97281@tetsuo.karasik.eu.org> Message-ID: <20111208083636.GA98457@tetsuo.karasik.eu.org> On Thu, Dec 08, 2011 at 12:22:53PM +0400, Ruslan Zakirov wrote: > 2011/12/8 Dmitry Karasik : > > is set to "-", which when opened gives you standard > >    input. riable. > > Дока по PerlIO никак не стандартный ввод :) Во всяком случаю на 5.14 > выводится это. ухты какой баг красивый! ))) в perlbug его ессно -- Sincerely, Dmitry Karasik From tarkhil на over.ru Thu Dec 8 00:37:21 2011 From: tarkhil на over.ru (Alex Povolotsky) Date: Thu, 08 Dec 2011 12:37:21 +0400 Subject: [Moscow.pm] =?koi8-r?b?cm9vdCDJIHBpbmc=?= In-Reply-To: References: Message-ID: <4EE07741.6030800@over.ru> On 12/08/11 12:33, Тимофей Марков wrote: > POE:Ping требует рутовые права, что меня напрягает. Я понимаю что в > этом ничего хорошего нет, но конкретно чем это может мне грозить не > понимаю. был бы благодарен если кто меня просветит в этом вопросе (ну > или ссылками поделитесь (с инглишом дружу)). > Вопрос два - как можно пинговать без рутовых прав (в принципе остается > вариант запускать обычный ping, но это решение красивым не назвать). > Заранее всем благодарен. > (ах да пинг мне нужен не блокирующий) Если внимательно посмотреть, то системный ping требует рутовых прав. Что вполне логично - ему нужно собирать сырые пакеты. Можно поплясать с bpf и правами на /dev/bpf, но, мне кажется, проще не мучить себя и дать рутовые права напрямую. Alex ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From evdokimov.denis на gmail.com Thu Dec 8 00:43:31 2011 From: evdokimov.denis на gmail.com (Denis Evdokimov) Date: Thu, 8 Dec 2011 11:43:31 +0300 Subject: [Moscow.pm] =?koi8-r?b?cm9vdCDJIHBpbmc=?= In-Reply-To: References: Message-ID: Мне может изменять память, но всё же скажу, что вспоминается... root нужен для открытия сокета на зарегистрированном порту. Возможно ping подпадает под это ограничение 08.12.2011 12:34 пользователь "Тимофей Марков" написал: > Добрый день и хорошей работы(ну и отдыха кому повезло) Moscow.pm! > сначала ситуация а потом вопросы. > На серверах крутиться перловая программа, которая по средствам POE:Ping > смотрит состояние каналов и оперативно меняет стоимость OSPF маршрутов. > POE:Ping требует рутовые права, что меня напрягает. Я понимаю что в этом > ничего хорошего нет, но конкретно чем это может мне грозить не понимаю. был > бы благодарен если кто меня просветит в этом вопросе (ну > или ссылками поделитесь (с инглишом дружу)). > Вопрос два - как можно пинговать без рутовых прав (в принципе остается > вариант запускать обычный ping, но это решение красивым не назвать). > Заранее всем благодарен. > (ах да пинг мне нужен не блокирующий) > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > > ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From thecrux на gmail.com Thu Dec 8 02:18:19 2011 From: thecrux на gmail.com (thecrux на gmail.com) Date: Thu, 8 Dec 2011 14:18:19 +0400 Subject: [Moscow.pm] =?koi8-r?b?cm9vdCDJIHBpbmc=?= In-Reply-To: References: Message-ID: <20111208101819.GA8682@mail.truecrux.org> On Thu, Dec 08, 2011 at 11:33:25AM +0300, Тимофей Марков wrote: > Добрый день и хорошей работы(ну и отдыха кому повезло) Moscow.pm! > сначала ситуация а потом вопросы. > На серверах крутиться перловая программа, которая по средствам POE:Ping > смотрит состояние каналов и оперативно меняет стоимость OSPF маршрутов. > POE:Ping требует рутовые права, что меня напрягает. Я понимаю что в этом > ничего хорошего нет, но конкретно чем это может мне грозить не понимаю. был > бы благодарен если кто меня просветит в этом вопросе (ну > или ссылками поделитесь (с инглишом дружу)). > Вопрос два - как можно пинговать без рутовых прав (в принципе остается > вариант запускать обычный ping, но это решение красивым не назвать). > Заранее всем благодарен. > (ах да пинг мне нужен не блокирующий) Пинговать без рутовых прав можно используя setcap: $ sudo setcap cap_net_raw=ep /path/to/program Но это подходит только для бинарных программ (не скриптов). Вместо ping можно запускать fping - его вывод более удобен для разбора в скрипте и есть возможность опрашивать сразу множество хостов одновременно. -- Vladimir Lettiev aka crux ? theCrux на gmail.com From andrei.protasovitski на gmail.com Thu Dec 8 05:35:37 2011 From: andrei.protasovitski на gmail.com (Andrei) Date: Thu, 8 Dec 2011 14:35:37 +0100 Subject: [Moscow.pm] =?utf-8?b?U1RESU4gPD4g0Lgg0YfRkdGA0L3QsNGPINC80LA=?= =?utf-8?b?0LPQuNGP?= In-Reply-To: References: Message-ID: А с каких пор open научился читать ссылку на скаляр как файл? Там, вроде бы, ссылка на glob нужна, не? 7 декабря 2011 г. 20:33 пользователь Denis Evdokimov < evdokimov.denis на gmail.com> написал: > Приветствую. > Кто мне сможет объяснить, почему второй вариант так разительно отличается > от первого варианта? > Много чего перечитал, прежде чем отправить вопрос, но внятно объяснить так > и не смог. > > #!/usr/bin/perl > use strict; > use warnings; > > my $data = "aaa\nbbb\nccc\n"; > > # Вариант 1 > close STDIN or die $!; > open( STDIN, '<', \$data ) or die $!; > @ARGV = (); > while () > { > print "[[$ARGV]]***$_"; > } > > # Вариант 2 > close STDIN or die $!; > open( STDIN, '<', \$data ) or die $!; > @ARGV = (); > while (<>) > { > print "[[$ARGV]]***$_"; > } > > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > > -- Andrei Protasovitski < andrei[dot]protasovitski[at]gmail[dot]com > Diemen, Netherlands ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From timonnius на gmail.com Thu Dec 8 05:37:47 2011 From: timonnius на gmail.com (=?KOI8-R?B?9MnNz8bFyiDtwdLLz9c=?=) Date: Thu, 8 Dec 2011 16:37:47 +0300 Subject: [Moscow.pm] =?koi8-r?b?cm9vdCDJIHBpbmc=?= In-Reply-To: <20111208101819.GA8682@mail.truecrux.org> References: <20111208101819.GA8682@mail.truecrux.org> Message-ID: Спасибо Vladimir, пожалуй именно fping я и буду использовать, тогда новый вопрос: а можно ли понизить права в перл? (те запустить с рутовыми правами, сделать пару вещей из под рута а потом понизить права) ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From dmitry на karasik.eu.org Thu Dec 8 05:39:54 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Thu, 8 Dec 2011 14:39:54 +0100 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: References: Message-ID: <20111208133954.GA12015@tetsuo.karasik.eu.org> с 5.8 вроде бы эта фича On Thu, Dec 08, 2011 at 02:35:37PM +0100, Andrei wrote: > А с каких пор open научился читать ссылку на скаляр как файл? Там, вроде > бы, ссылка на glob нужна, не? > > > 7 декабря 2011 г. 20:33 пользователь Denis Evdokimov < > evdokimov.denis на gmail.com> написал: > > > Приветствую. > > Кто мне сможет объяснить, почему второй вариант так разительно отличается > > от первого варианта? > > Много чего перечитал, прежде чем отправить вопрос, но внятно объяснить так > > и не смог. > > > > #!/usr/bin/perl > > use strict; > > use warnings; > > > > my $data = "aaa\nbbb\nccc\n"; > > > > # Вариант 1 > > close STDIN or die $!; > > open( STDIN, '<', \$data ) or die $!; > > @ARGV = (); > > while () > > { > > print "[[$ARGV]]***$_"; > > } > > > > # Вариант 2 > > close STDIN or die $!; > > open( STDIN, '<', \$data ) or die $!; > > @ARGV = (); > > while (<>) > > { > > print "[[$ARGV]]***$_"; > > } > > > > > > -- > > Moscow.pm mailing list > > moscow-pm на pm.org | http://moscow.pm.org > > > > > > > -- > Andrei Protasovitski > < andrei[dot]protasovitski[at]gmail[dot]com > > Diemen, Netherlands > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Sincerely, Dmitry Karasik From tarkhil на over.ru Thu Dec 8 05:41:16 2011 From: tarkhil на over.ru (Alex Povolotsky) Date: Thu, 08 Dec 2011 17:41:16 +0400 Subject: [Moscow.pm] =?koi8-r?b?cm9vdCDJIHBpbmc=?= In-Reply-To: References: <20111208101819.GA8682@mail.truecrux.org> Message-ID: <4EE0BE7C.7030400@over.ru> On 12/08/11 17:37, Тимофей Марков wrote: > Спасибо Vladimir, пожалуй именно fping я и буду использовать, тогда > новый вопрос: а можно ли понизить права в перл? (те запустить с > рутовыми правами, сделать пару вещей из под рута а потом понизить права) > Вполне можно. Обратно повысить уже не получится) искать в man perlvar - UID Alex ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From evdokimov.denis на gmail.com Thu Dec 8 05:48:22 2011 From: evdokimov.denis на gmail.com (Denis Evdokimov) Date: Thu, 8 Dec 2011 16:48:22 +0300 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: References: Message-ID: > > А с каких пор open научился читать ссылку на скаляр как файл? Там, вроде > бы, ссылка на glob нужна, не? > Не могу сказать, но точно давно. Обычно делают как-нибудь так: local *STDOUT; open( STDOUT, '>', \$stdout ) or die $!; А вот STDIN подменяют гораздо реже local *STDIN; open( STDIN, '<', \$stdin ) or die $!; ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From ruz на bestpractical.com Thu Dec 8 06:41:54 2011 From: ruz на bestpractical.com (Ruslan Zakirov) Date: Thu, 8 Dec 2011 18:41:54 +0400 Subject: [Moscow.pm] =?utf-8?q?root_=D0=B8_ping?= In-Reply-To: References: <20111208101819.GA8682@mail.truecrux.org> Message-ID: 2011/12/8 Тимофей Марков : > Спасибо Vladimir, пожалуй именно fping я и буду использовать, тогда новый > вопрос: а можно ли понизить права в перл? (те запустить с рутовыми правами, > сделать пару вещей из под рута а потом понизить права) Только что обсуждали POSIX::setuid и setgid. -- Best regards, Ruslan. From mi на ya.ru Thu Dec 8 07:05:22 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 08 Dec 2011 19:05:22 +0400 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= Message-ID: <127261323356722@web52.yandex.ru> MoscowPM, привет пишет тебе программист из далекой Москвы;)) тут наковырял у себя Баг, когда вместо && использовал & (то есть битовый and) и кстати все работало, пока не выяснилось, что на 1000 сравнений строк одно дает результат 0 вот тест http://codepad.org/jzv6Piyl сколько времени убил пока не нашел багу;(( в общем нужно иногда перечитывать ВСЮ теорию, вдруг из текущих заблуждений, есть такие, которые могут привести к краху проекта -- Nikolay Mishin From mi на ya.ru Thu Dec 8 07:10:13 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 08 Dec 2011 19:10:13 +0400 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: <127261323356722@web52.yandex.ru> References: <127261323356722@web52.yandex.ru> Message-ID: <623911323357013@web49.yandex.ru> жаль не дает редактировать код, вот правильный тест http://codepad.org/GS73Ys2F 08.12.2011, 19:05, "Nikolay Mishin" : > MoscowPM, привет > > пишет тебе программист из далекой Москвы;)) > тут наковырял у себя Баг, > когда вместо && использовал & (то есть битовый and) > и кстати все работало, пока не выяснилось, что на 1000 сравнений строк > одно дает результат 0 > > вот тест > > http://codepad.org/jzv6Piyl > > сколько времени убил пока не нашел багу;(( > в общем нужно иногда перечитывать ВСЮ теорию, > вдруг из текущих заблуждений, есть такие, которые могут привести к краху проекта > > -- > Nikolay Mishin > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From dmitry на karasik.eu.org Thu Dec 8 07:28:54 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Thu, 8 Dec 2011 16:28:54 +0100 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: <127261323356722@web52.yandex.ru> References: <127261323356722@web52.yandex.ru> Message-ID: <20111208152854.GA15809@tetsuo.karasik.eu.org> Это хорошо еще что & вместо && а не rm -rf / :D /dk On Thu, Dec 08, 2011 at 07:05:22PM +0400, Nikolay Mishin wrote: > MoscowPM, привет > > пишет тебе программист из далекой Москвы;)) > тут наковырял у себя Баг, > когда вместо && использовал & (то есть битовый and) > и кстати все работало, пока не выяснилось, что на 1000 сравнений строк > одно дает результат 0 > > вот тест > > http://codepad.org/jzv6Piyl > > сколько времени убил пока не нашел багу;(( > в общем нужно иногда перечитывать ВСЮ теорию, > вдруг из текущих заблуждений, есть такие, которые могут привести к краху проекта > > -- > Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Sincerely, Dmitry Karasik From STork2000 на yandex.ru Thu Dec 8 07:52:16 2011 From: STork2000 на yandex.ru (Loginoff Nick) Date: Thu, 08 Dec 2011 19:52:16 +0400 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: <127261323356722@web52.yandex.ru> References: <127261323356722@web52.yandex.ru> Message-ID: <567441323359536@web119.yandex.ru> Вложение в формате HTML было извлечено… URL: From mi на ya.ru Thu Dec 8 08:01:11 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 08 Dec 2011 20:01:11 +0400 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: <567441323359536@web119.yandex.ru> References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> Message-ID: <599331323360071@web16.yandex.ru> Да,добавил, кстати, тоже тема https://ideone.com/0qcjw типа '=' - операция приравнивения 08.12.2011, 19:52, "Loginoff Nick" : > Привет, > > проверь ещё == и = > > как то давно тоже себе голову сломал из-за опечатки. > 08.12.2011, 19:05, "Nikolay Mishin" : >> MoscowPM, привет >> >> пишет тебе программист из далекой Москвы;)) >> тут наковырял у себя Баг, >> когда вместо && использовал & (то есть битовый and) >> и кстати все работало, пока не выяснилось, что на 1000 сравнений строк >> одно дает результат 0 >> >> вот тест >> >> http://codepad.org/jzv6Piyl >> >> сколько времени убил пока не нашел багу;(( >> в общем нужно иногда перечитывать ВСЮ теорию, >> вдруг из текущих заблуждений, есть такие, которые могут привести к краху проекта >> >> -- >> Nikolay Mishin >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > -- > С Уважением, Login|off Nick or STork. > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From andrei.protasovitski на gmail.com Thu Dec 8 08:16:04 2011 From: andrei.protasovitski на gmail.com (Andrei) Date: Thu, 8 Dec 2011 17:16:04 +0100 Subject: [Moscow.pm] =?utf-8?b?U1RESU4gPD4g0Lgg0YfRkdGA0L3QsNGPINC80LA=?= =?utf-8?b?0LPQuNGP?= In-Reply-To: References: <20111208075718.GA97281@tetsuo.karasik.eu.org> Message-ID: 2011/12/8 Ruslan Zakirov > 2011/12/8 Dmitry Karasik : > > is set to "-", which when opened gives you standard > > input. riable. > > Дока по PerlIO никак не стандартный ввод :) Во всяком случаю на 5.14 > выводится это. > Это не дока по PerlIO, это то, что находится ниже __END__ в этом модуле. Помнится, было у меня приключение с этими IO. Там какая-то интересная бага в них была, из-за которой MIME::Types сломался. А сломался он после того, как сами MIME-типы были вынесены из переменной в секцию __DATA__. Трабла, если я правильно ошибаюсь, была в том, что указатель в секции __DATA__ не переносился на начало секции после закрытия ручки файла после обновления IO. Мы у себя локально пропатчили MIME::Types, в дебри IO не лезли. -- Andrei Protasovitski < andrei[dot]protasovitski[at]gmail[dot]com > Diemen, Netherlands ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From zzz на zzz.org.ua Thu Dec 8 09:59:48 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Thu, 8 Dec 2011 19:59:48 +0200 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: References: <20111208075718.GA97281@tetsuo.karasik.eu.org> Message-ID: On Thu, Dec 8, 2011 at 6:16 PM, Andrei wrote: > Помнится, было у меня приключение с этими IO. Там какая-то интересная бага в > них была, из-за которой MIME::Types сломался. А сломался он после того, как > сами MIME-типы были вынесены из переменной в секцию __DATA__. Трабла, если я > правильно ошибаюсь, была в том, что указатель в секции __DATA__ не > переносился на начало секции после закрытия ручки файла после обновления IO. > Мы у себя локально пропатчили MIME::Types, в дебри IO не лезли. Денис уже отправил репорт и уже ответили, что это не баг. Все сводится к тому, что при первой open после закрытия fd 0 подгружается PerlIO и соответственно использует первый свободный дексриптор, т.е. fd 0. From peter на vereshagin.org Thu Dec 8 16:16:18 2011 From: peter на vereshagin.org (Peter Vereshagin) Date: Fri, 9 Dec 2011 04:16:18 +0400 Subject: [Moscow.pm] =?koi8-r?b?2sHJy8HOydEg1yBrZXJuZWwgbG9n?= Message-ID: <20111209001617.GA10864@external.screwed.box> Hello. Упадают местами форки, одно из сообщений об этом отличается: ... pid 44562 (perl5.14.1), uid yyy: exited on signal 11 <<66>>pipidd 4455456022 ((ppeerrll55..1144..11)),, uuiidd yyy: epxited1 0o3n4 0s:i genxailt ed on1 1si g nal 11 pid 45853 (perl5.14.1), uid yyy: exited on signal 11 ... насколько сие плохо? если хардверная проблема, то, полагаю, ещё хорошо. :) -- Peter Vereshagin (http://vereshagin.org) pgp: A0E26627 From q на cono.org.ua Thu Dec 8 16:21:01 2011 From: q на cono.org.ua (Alex Varyanick) Date: Fri, 9 Dec 2011 02:21:01 +0200 Subject: [Moscow.pm] =?utf-8?b?QU5ELCAmICwmJiDQuNC70Lgg0LjRgdGC0L7RgNC4?= =?utf-8?b?0Y8g0LzQvtC40YUg0LHQsNCz0L7Qsg==?= In-Reply-To: <599331323360071@web16.yandex.ru> References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> <599331323360071@web16.yandex.ru> Message-ID: 2011/12/8 Nikolay Mishin : > Да,добавил, кстати, тоже тема > > https://ideone.com/0qcjw > > типа '=' - операция приравнивения какая-то новая операция "приравнивения" ) -- Varyanick I. Alex icq: 102 575 440 skype: cono.. q на cono.org.ua From zzz на zzz.org.ua Thu Dec 8 16:24:18 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Fri, 9 Dec 2011 02:24:18 +0200 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> <599331323360071@web16.yandex.ru> Message-ID: On Fri, Dec 9, 2011 at 2:21 AM, Alex Varyanick wrote: > какая-то новая операция "приравнивения" ) Это типа "сделать, чтобы условие стало тру" :) From zzz на zzz.org.ua Thu Dec 8 16:26:55 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Fri, 9 Dec 2011 02:26:55 +0200 Subject: [Moscow.pm] =?koi8-r?b?2sHJy8HOydEg1yBrZXJuZWwgbG9n?= In-Reply-To: <20111209001617.GA10864@external.screwed.box> References: <20111209001617.GA10864@external.screwed.box> Message-ID: On Fri, Dec 9, 2011 at 2:16 AM, Peter Vereshagin wrote: > signal 11 > насколько сие плохо? если хардверная проблема, то, полагаю, ещё хорошо. :) Была бы хардверная, был бы panic уже давно. А так, сегфолты, вывод в лог не атомарный, ниче страшного. From mi на ya.ru Thu Dec 8 20:33:44 2011 From: mi на ya.ru (Nikolay Mishin) Date: Fri, 09 Dec 2011 08:33:44 +0400 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> <599331323360071@web16.yandex.ru> Message-ID: <106801323405224@web118.yandex.ru> кстати в idea(java) редактор не дает откомпилировать код, если а if () не логическое выражение, возвращающее false или true, то есть вставить if (a & b){} он не дал и, думаю, это очень правильно по идее в warning или perlcritic это тоже можно было прописать, то есть код if (length($var)>0){} валидный, а if ($var){} - кричать ошибку, а то можно много где накосячить, если эта строка равна '0' 09.12.2011, 04:24, "Alexandr Gomoliako" : > On Fri, Dec 9, 2011 at 2:21 AM, Alex Varyanick wrote: > >>  какая-то новая операция "приравнивения" ) > > Это типа "сделать, чтобы условие стало тру" :) > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From mi на ya.ru Thu Dec 8 20:34:36 2011 From: mi на ya.ru (Nikolay Mishin) Date: Fri, 09 Dec 2011 08:34:36 +0400 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: References: <20111208075718.GA97281@tetsuo.karasik.eu.org> Message-ID: <107031323405276@web118.yandex.ru> а может ссылку на ответ дадите? 08.12.2011, 22:00, "Alexandr Gomoliako" : > On Thu, Dec 8, 2011 at 6:16 PM, Andrei wrote: > >>  Помнится, было у меня приключение с этими IO. Там какая-то интересная бага в >>  них была, из-за которой MIME::Types сломался. А сломался он после того, как >>  сами MIME-типы были вынесены из переменной в секцию __DATA__. Трабла, если я >>  правильно ошибаюсь, была в том, что указатель в секции __DATA__ не >>  переносился на начало секции после закрытия ручки файла после обновления IO. >>  Мы у себя локально пропатчили MIME::Types, в дебри IO не лезли. > > Денис уже отправил репорт и уже ответили, что это не баг. > > Все сводится к тому, что при первой open после закрытия fd 0 > подгружается PerlIO и соответственно использует первый > свободный дексриптор, т.е. fd 0. > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From proler на gmail.com Fri Dec 9 00:12:34 2011 From: proler на gmail.com (oleg alexeenkov) Date: Fri, 09 Dec 2011 12:12:34 +0400 Subject: [Moscow.pm] =?utf-8?b?0LfQsNC40LrQsNC90LjRjyDQsiBrZXJuZWwgbG9n?= In-Reply-To: <20111209001617.GA10864@external.screwed.box> References: <20111209001617.GA10864@external.screwed.box> Message-ID: Peter Vereshagin писал(а) в своём письме Fri, 09 Dec 2011 04:16:18 +0400: > Hello. > > Упадают местами форки, одно из сообщений об этом отличается: > > ... > pid 44562 (perl5.14.1), uid yyy: exited on signal 11 > <<66>>pipidd 4455456022 ((ppeerrll55..1144..11)),, uuiidd yyy: > epxited1 0o3n4 0s:i genxailt ed on1 1si > g > nal 11 > pid 45853 (perl5.14.1), uid yyy: exited on signal 11 > ... > > насколько сие плохо? если хардверная проблема, то, полагаю, ещё хорошо. > :) во фре это почти стандартная фишка, когда много ядер и паралельно что-то пишется в лог. перл тут не причем. From ruz на bestpractical.com Fri Dec 9 00:25:53 2011 From: ruz на bestpractical.com (Ruslan Zakirov) Date: Fri, 9 Dec 2011 12:25:53 +0400 Subject: [Moscow.pm] =?utf-8?b?U1RESU4gPD4g0Lgg0YfRkdGA0L3QsNGPINC80LA=?= =?utf-8?b?0LPQuNGP?= In-Reply-To: References: <20111208075718.GA97281@tetsuo.karasik.eu.org> Message-ID: 2011/12/8 Alexandr Gomoliako : > Все сводится к тому, что при первой open после закрытия fd 0 > подгружается PerlIO и соответственно использует первый > свободный дексриптор, т.е. fd 0. Блин. Ну почему это не баг. Еще один прикол из этой серии: local *STDOUT open STDOUT, ...; system ... open my $fh, '|-', ... Тоже соответственно не работают нормально из-за этого. Еще в этом направлении. В mod_perl 2, до версии 2.0.5 есть проблема. Они закрывают STDOUT и открывают его на /dev/null, но делают это "неправильно". Что приводит к тому, что fd #1 остается свободен и его получает что-то другое, например БД. Как вы понимаете запуск утилиты без перехвата вывода приводит к записи в хендл БД мусора и разрыву соединения. Дебажить это было весело. -- Best regards, Ruslan. From dmitry на karasik.eu.org Fri Dec 9 00:37:43 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Fri, 9 Dec 2011 09:37:43 +0100 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: References: <20111208075718.GA97281@tetsuo.karasik.eu.org> Message-ID: <20111209083743.GA51786@tetsuo.karasik.eu.org> > Еще в этом направлении. В mod_perl 2, до версии 2.0.5 есть проблема. > Они закрывают STDOUT и открывают его на /dev/null, но делают это > "неправильно". Что приводит к тому, что fd #1 остается свободен и его > получает что-то другое, например БД. > Как вы понимаете запуск утилиты без перехвата вывода приводит к записи > в хендл БД мусора и разрыву соединения. Дебажить это было весело. аа починили наконец? я с ними боролся из-за другого бага, тоже связанного с переоткрытием, и патчи с тестами слал, но так и не поборол ) -- Sincerely, Dmitry Karasik From mons на rambler-co.ru Fri Dec 9 00:48:17 2011 From: mons на rambler-co.ru (Mons Anderson) Date: Fri, 9 Dec 2011 12:48:17 +0400 Subject: [Moscow.pm] =?utf-8?b?U1RESU4gPD4g0Lgg0YfRkdGA0L3QsNGPINC80LA=?= =?utf-8?b?0LPQuNGP?= In-Reply-To: References: <20111208075718.GA97281@tetsuo.karasik.eu.org> Message-ID: <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> Вообще конечно интересный вопрос. use PerlIO::scalar (); или { open(my $x,'<',\$data); } в начале решает проблему в исходном примере. Но вот то, что open вообще способен сам занять свободный хендл 0 это засада ) Бага #105658 Попробуем пообщаться... On 09.12.2011, at 12:25, Ruslan Zakirov wrote: > 2011/12/8 Alexandr Gomoliako : >> Все сводится к тому, что при первой open после закрытия fd 0 >> подгружается PerlIO и соответственно использует первый >> свободный дексриптор, т.е. fd 0. > > Блин. Ну почему это не баг. Еще один прикол из этой серии: > > local *STDOUT > open STDOUT, ...; > > system ... > open my $fh, '|-', ... > > Тоже соответственно не работают нормально из-за этого. > > Еще в этом направлении. В mod_perl 2, до версии 2.0.5 есть проблема. > Они закрывают STDOUT и открывают его на /dev/null, но делают это > "неправильно". Что приводит к тому, что fd #1 остается свободен и его > получает что-то другое, например БД. > Как вы понимаете запуск утилиты без перехвата вывода приводит к записи > в хендл БД мусора и разрыву соединения. Дебажить это было весело. > > > > > -- > Best regards, Ruslan. > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From andrei.protasovitski на gmail.com Fri Dec 9 02:18:10 2011 From: andrei.protasovitski на gmail.com (Andrei) Date: Fri, 9 Dec 2011 11:18:10 +0100 Subject: [Moscow.pm] =?utf-8?b?U1RESU4gPD4g0Lgg0YfRkdGA0L3QsNGPINC80LA=?= =?utf-8?b?0LPQuNGP?= In-Reply-To: <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> References: <20111208075718.GA97281@tetsuo.karasik.eu.org> <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> Message-ID: Ух ты! Похоже, тупит из-за require. У нас MIME::Types капризничал только под Mason'ом. 2011/12/9 Mons Anderson > Вообще конечно интересный вопрос. > > use PerlIO::scalar (); > или > { open(my $x,'<',\$data); } > > в начале решает проблему в исходном примере. > > Но вот то, что open вообще способен сам занять свободный хендл 0 это > засада ) > > Бага #105658 > Попробуем пообщаться... > > On 09.12.2011, at 12:25, Ruslan Zakirov wrote: > > > 2011/12/8 Alexandr Gomoliako : > >> Все сводится к тому, что при первой open после закрытия fd 0 > >> подгружается PerlIO и соответственно использует первый > >> свободный дексриптор, т.е. fd 0. > > > > Блин. Ну почему это не баг. Еще один прикол из этой серии: > > > > local *STDOUT > > open STDOUT, ...; > > > > system ... > > open my $fh, '|-', ... > > > > Тоже соответственно не работают нормально из-за этого. > > > > Еще в этом направлении. В mod_perl 2, до версии 2.0.5 есть проблема. > > Они закрывают STDOUT и открывают его на /dev/null, но делают это > > "неправильно". Что приводит к тому, что fd #1 остается свободен и его > > получает что-то другое, например БД. > > Как вы понимаете запуск утилиты без перехвата вывода приводит к записи > > в хендл БД мусора и разрыву соединения. Дебажить это было весело. > > > > > > > > > > -- > > Best regards, Ruslan. > > -- > > Moscow.pm mailing list > > moscow-pm на pm.org | http://moscow.pm.org > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > -- Andrei Protasovitski < andrei[dot]protasovitski[at]gmail[dot]com > Diemen, Netherlands ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From dmitry на karasik.eu.org Fri Dec 9 02:20:38 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Fri, 9 Dec 2011 11:20:38 +0100 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> References: <20111208075718.GA97281@tetsuo.karasik.eu.org> <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> Message-ID: <20111209102038.GA55048@tetsuo.karasik.eu.org> On Fri, Dec 09, 2011 at 12:48:17PM +0400, Mons Anderson wrote: > Но вот то, что open вообще способен сам занять свободный хендл 0 это засада ) вообще-то это фича libc а даже не перла, и вполне себе известная > Бага #105658 > Попробуем пообщаться... да баг это 100%, а sprout баран неправ: "I seem to remember this came up about three years ago and the consensus was that it is not a bug. I?m not sure" . Если not sure так и не пиши. И re-open 0 хэндла вообще здесь ни причем. -- Sincerely, Dmitry Karasik From mons на rambler-co.ru Fri Dec 9 02:23:35 2011 From: mons на rambler-co.ru (Mons Anderson) Date: Fri, 9 Dec 2011 14:23:35 +0400 Subject: [Moscow.pm] [perl #105658] STDIN <> and PerlIO doc In-Reply-To: References: Message-ID: The problem is not in closing fd 0 Let's look at the following sample: # dup.pl open my $fh, '<&=',0 or die; print fileno STDIN, ":", scalar readline STDIN; close STDIN; print fileno $fh, ":", scalar readline $fh; ######## bash $ { echo 1; sleep 1; echo 2; } | perl dup.pl 0:1 0:2 (During this I've investigated, that if we do echo -ne "1\n2\n" | perl dup.pl, then <$fh> receive nothing. I think that's because of buffered read. Don't know should be this considered a bug) Then we add the same open my $fh, '<&=',0 or die; to the beginning of the example and check the fileno at the end 0 == fileno $fh or die "fileno fh nonzero"; then we will see, that fileno 0 was kept, it still assigned to stdin (this could be checked additionally), but the behavior of this program still the same: we got an output of PerlIO.pm On 08.12.2011, at 21:18, Father Chrysostomos via RT wrote: > On Thu Dec 08 03:25:08 2011, evdokimov.denis на gmail.com wrote: >> #!/usr/bin/perl >> use strict; >> use warnings; >> >> my $data = "aaa\nbbb\nccc\n"; >> >> # Ok >> close STDIN or die $!; >> open( STDIN, '<', \$data ) or die $!; >> @ARGV = (); >> while () >> { >> print "[[$ARGV]]***$_"; >> } >> >> # Bug >> close STDIN or die $!; >> open( STDIN, '<', \$data ) or die $!; >> @ARGV = (); >> while (<>) >> { >> # print PerlIO.pod >> print "[[$ARGV]]***$_"; >> } > > By closing STDIN you are closing fd 0, which is reused by the next file > opened. > > I seem to remember this came up about three years ago and the consensus > was that it is not a bug. I?m not sure. > > If my memory serves me correctly, searching for ?you passed sub > protections? and ?This gotta change? in the archives will bring it up. > > -- > > Father Chrysostomos > From mons на rambler-co.ru Fri Dec 9 03:21:52 2011 From: mons на rambler-co.ru (Mons Anderson) Date: Fri, 9 Dec 2011 15:21:52 +0400 Subject: [Moscow.pm] =?utf-8?b?U1RESU4gPD4g0Lgg0YfRkdGA0L3QsNGPINC80LA=?= =?utf-8?b?0LPQuNGP?= In-Reply-To: <20111209102038.GA55048@tetsuo.karasik.eu.org> References: <20111208075718.GA97281@tetsuo.karasik.eu.org> <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> <20111209102038.GA55048@tetsuo.karasik.eu.org> Message-ID: <7531EA8D-D299-4F84-BF77-E1F0A2E9D798@rambler-co.ru> Я там отписался, что эта бага не связана с закрытием fileno 0. Даже если оставить его открытым, то она все равно воспроизводится. А про open я имел в виду, что при открытии STD* мы можем получить еще одно-два открытия файлов (тех самых PerlIO + PerlIO::scalar) On 09.12.2011, at 14:20, Dmitry Karasik wrote: > On Fri, Dec 09, 2011 at 12:48:17PM +0400, Mons Anderson wrote: >> Но вот то, что open вообще способен сам занять свободный хендл 0 это засада ) > > вообще-то это фича libc а даже не перла, и вполне себе известная > >> Бага #105658 >> Попробуем пообщаться... > > да баг это 100%, а sprout баран неправ: "I seem to remember this came up about three > years ago and the consensus was that it is not a bug. I?m not sure" . Если not > sure так и не пиши. И re-open 0 хэндла вообще здесь ни причем. > > > -- > Sincerely, > Dmitry Karasik > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From dmitry на karasik.eu.org Fri Dec 9 03:36:23 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Fri, 9 Dec 2011 12:36:23 +0100 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: <7531EA8D-D299-4F84-BF77-E1F0A2E9D798@rambler-co.ru> References: <20111208075718.GA97281@tetsuo.karasik.eu.org> <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> <20111209102038.GA55048@tetsuo.karasik.eu.org> <7531EA8D-D299-4F84-BF77-E1F0A2E9D798@rambler-co.ru> Message-ID: <20111209113623.GA57415@tetsuo.karasik.eu.org> > А про open я имел в виду, что при открытии STD* мы можем получить еще одно-два открытия файлов (тех самых PerlIO + PerlIO::scalar) ну ессно потому что это баг, я в сырцах не рылся но я помню что open открывающий скаляр как файл был сделан на базе PerlIO layers, и скорее всего где-то эта строчка "PerlIO" перекочевала туда куда не надо ... /dk > > > On 09.12.2011, at 14:20, Dmitry Karasik wrote: > > > On Fri, Dec 09, 2011 at 12:48:17PM +0400, Mons Anderson wrote: > >> Но вот то, что open вообще способен сам занять свободный хендл 0 это засада ) > > > > вообще-то это фича libc а даже не перла, и вполне себе известная > > > >> Бага #105658 > >> Попробуем пообщаться... > > > > да баг это 100%, а sprout баран неправ: "I seem to remember this came up about three > > years ago and the consensus was that it is not a bug. I?m not sure" . Если not > > sure так и не пиши. И re-open 0 хэндла вообще здесь ни причем. > > > > > > -- > > Sincerely, > > Dmitry Karasik > > > > -- > > Moscow.pm mailing list > > moscow-pm на pm.org | http://moscow.pm.org > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Sincerely, Dmitry Karasik From dmitry на karasik.eu.org Fri Dec 9 03:50:54 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Fri, 9 Dec 2011 12:50:54 +0100 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: <20111209113623.GA57415@tetsuo.karasik.eu.org> References: <20111208075718.GA97281@tetsuo.karasik.eu.org> <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> <20111209102038.GA55048@tetsuo.karasik.eu.org> <7531EA8D-D299-4F84-BF77-E1F0A2E9D798@rambler-co.ru> <20111209113623.GA57415@tetsuo.karasik.eu.org> Message-ID: <20111209115054.GA57803@tetsuo.karasik.eu.org> нашел, все ясно: 1: open( STDIN, '<', \$data ) делает 'require PerlIO::scalar' - т.е. находит этот PerlIO/scalar.pm и читает его черед fd(0). Ну читает и слава богу. 2: while(<>) или для простоты readline читает из STDIN, но вот тут и бага - он читает не из STDIN а из libc.STDIN_FILENO который 0. А он уж занят. Т.е. фикс видимо должен быть где-то в потрохах PerlIO::scalar чтобы он правильно переопределял Perl_tied_method("READLINE"). /dk On Fri, Dec 09, 2011 at 12:36:23PM +0100, Dmitry Karasik wrote: > > А про open я имел в виду, что при открытии STD* мы можем получить еще одно-два открытия файлов (тех самых PerlIO + PerlIO::scalar) > > ну ессно потому что это баг, я в сырцах не рылся но я помню что open открывающий > скаляр как файл был сделан на базе PerlIO layers, и скорее всего где-то эта > строчка "PerlIO" перекочевала туда куда не надо ... > > /dk -- Sincerely, Dmitry Karasik From mons на rambler-co.ru Fri Dec 9 03:59:44 2011 From: mons на rambler-co.ru (Mons Anderson) Date: Fri, 9 Dec 2011 15:59:44 +0400 Subject: [Moscow.pm] =?utf-8?b?U1RESU4gPD4g0Lgg0YfRkdGA0L3QsNGPINC80LA=?= =?utf-8?b?0LPQuNGP?= In-Reply-To: <20111209115054.GA57803@tetsuo.karasik.eu.org> References: <20111208075718.GA97281@tetsuo.karasik.eu.org> <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> <20111209102038.GA55048@tetsuo.karasik.eu.org> <7531EA8D-D299-4F84-BF77-E1F0A2E9D798@rambler-co.ru> <20111209113623.GA57415@tetsuo.karasik.eu.org> <20111209115054.GA57803@tetsuo.karasik.eu.org> Message-ID: On 09.12.2011, at 15:50, Dmitry Karasik wrote: > нашел, все ясно: > > 1: open( STDIN, '<', \$data ) делает 'require PerlIO::scalar' - т.е. находит этот PerlIO/scalar.pm и читает его черед fd(0). Ну > читает и слава богу. Фиг. В моем примере, когда мы не даем закрыть fd 0 такого не происходило-бы. А все равно происходит. > > 2: while(<>) или для простоты readline читает из STDIN, но вот тут и бага - он читает не из STDIN а из libc.STDIN_FILENO который 0. > А он уж занят. Т.е. фикс видимо должен быть где-то в потрохах PerlIO::scalar чтобы он правильно переопределял Perl_tied_method("READLINE"). > > /dk > > > On Fri, Dec 09, 2011 at 12:36:23PM +0100, Dmitry Karasik wrote: >>> А про open я имел в виду, что при открытии STD* мы можем получить еще одно-два открытия файлов (тех самых PerlIO + PerlIO::scalar) >> >> ну ессно потому что это баг, я в сырцах не рылся но я помню что open открывающий >> скаляр как файл был сделан на базе PerlIO layers, и скорее всего где-то эта >> строчка "PerlIO" перекочевала туда куда не надо ... >> >> /dk > > -- > Sincerely, > Dmitry Karasik > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From dmitry на karasik.eu.org Fri Dec 9 04:04:46 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Fri, 9 Dec 2011 13:04:46 +0100 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: References: <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> <20111209102038.GA55048@tetsuo.karasik.eu.org> <7531EA8D-D299-4F84-BF77-E1F0A2E9D798@rambler-co.ru> <20111209113623.GA57415@tetsuo.karasik.eu.org> <20111209115054.GA57803@tetsuo.karasik.eu.org> Message-ID: <20111209120446.GA58712@tetsuo.karasik.eu.org> On Fri, Dec 09, 2011 at 03:59:44PM +0400, Mons Anderson wrote: > > On 09.12.2011, at 15:50, Dmitry Karasik wrote: > > > нашел, все ясно: > > > > 1: open( STDIN, '<', \$data ) делает 'require PerlIO::scalar' - т.е. находит этот PerlIO/scalar.pm и читает его черед fd(0). Ну > > читает и слава богу. > > Фиг. В моем примере, когда мы не даем закрыть fd 0 такого не происходило-бы. > А все равно происходит. в каком примере? и потом, там вполне может быть implicit close -- Sincerely, Dmitry Karasik From mons на rambler-co.ru Fri Dec 9 04:17:29 2011 From: mons на rambler-co.ru (Mons Anderson) Date: Fri, 9 Dec 2011 16:17:29 +0400 Subject: [Moscow.pm] =?utf-8?b?U1RESU4gPD4g0Lgg0YfRkdGA0L3QsNGPINC80LA=?= =?utf-8?b?0LPQuNGP?= In-Reply-To: <20111209120446.GA58712@tetsuo.karasik.eu.org> References: <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> <20111209102038.GA55048@tetsuo.karasik.eu.org> <7531EA8D-D299-4F84-BF77-E1F0A2E9D798@rambler-co.ru> <20111209113623.GA57415@tetsuo.karasik.eu.org> <20111209115054.GA57803@tetsuo.karasik.eu.org> <20111209120446.GA58712@tetsuo.karasik.eu.org> Message-ID: <1F887AD4-274D-4A9B-A6A5-88F5B8457662@rambler-co.ru> Хз, вроде до moscow.pm должно было дойти The problem is not in closing fd 0 Let's look at the following sample: # dup.pl open my $fh, '<&=',0 or die; print fileno STDIN, ":", scalar readline STDIN; close STDIN; print fileno $fh, ":", scalar readline $fh; ######## bash $ { echo 1; sleep 1; echo 2; } | perl dup.pl 0:1 0:2 (During this I've investigated, that if we do echo -ne "1\n2\n" | perl dup.pl, then <$fh> receive nothing. I think that's because of buffered read. Don't know should be this considered a bug) Then we add the same open my $fh, '<&=',0 or die; to the beginning of the example and check the fileno at the end 0 == fileno $fh or die "fileno fh nonzero"; then we will see, that fileno 0 was kept, it still assigned to stdin (this could be checked additionally), but the behavior of this program still the same: we got an output of PerlIO.pm On 09.12.2011, at 16:04, Dmitry Karasik wrote: > On Fri, Dec 09, 2011 at 03:59:44PM +0400, Mons Anderson wrote: >> >> On 09.12.2011, at 15:50, Dmitry Karasik wrote: >> >>> нашел, все ясно: >>> >>> 1: open( STDIN, '<', \$data ) делает 'require PerlIO::scalar' - т.е. находит этот PerlIO/scalar.pm и читает его черед fd(0). Ну >>> читает и слава богу. >> >> Фиг. В моем примере, когда мы не даем закрыть fd 0 такого не происходило-бы. >> А все равно происходит. > > в каком примере? и потом, там вполне может быть implicit close > > -- > Sincerely, > Dmitry Karasik > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From dmitry на karasik.eu.org Fri Dec 9 04:34:23 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Fri, 9 Dec 2011 13:34:23 +0100 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: <1F887AD4-274D-4A9B-A6A5-88F5B8457662@rambler-co.ru> References: <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> <20111209102038.GA55048@tetsuo.karasik.eu.org> <7531EA8D-D299-4F84-BF77-E1F0A2E9D798@rambler-co.ru> <20111209113623.GA57415@tetsuo.karasik.eu.org> <20111209115054.GA57803@tetsuo.karasik.eu.org> <20111209120446.GA58712@tetsuo.karasik.eu.org> <1F887AD4-274D-4A9B-A6A5-88F5B8457662@rambler-co.ru> Message-ID: <20111209123423.GA59436@tetsuo.karasik.eu.org> да нуу все ж тупо: close STDIN; open FOO, '<', $0 or die; print readline; читает из 0 а должен из STDIN, вот и все /dk On Fri, Dec 09, 2011 at 04:17:29PM +0400, Mons Anderson wrote: > Хз, вроде до moscow.pm должно было дойти > > The problem is not in closing fd 0 > > Let's look at the following sample: > > # dup.pl > open my $fh, '<&=',0 or die; > print fileno STDIN, ":", scalar readline STDIN; > close STDIN; > print fileno $fh, ":", scalar readline $fh; > > ######## > bash $ { echo 1; sleep 1; echo 2; } | perl dup.pl > 0:1 > 0:2 > > (During this I've investigated, that if we do echo -ne "1\n2\n" | perl dup.pl, then <$fh> receive nothing. I think that's because of buffered read. Don't know should be this considered a bug) > > Then we add the same > > open my $fh, '<&=',0 or die; > > to the beginning of the example and check the fileno at the end > > 0 == fileno $fh or die "fileno fh nonzero"; > > then we will see, that fileno 0 was kept, it still assigned to stdin (this could be checked additionally), but the behavior of this program still the same: we got an output of PerlIO.pm > > On 09.12.2011, at 16:04, Dmitry Karasik wrote: > > > On Fri, Dec 09, 2011 at 03:59:44PM +0400, Mons Anderson wrote: > >> > >> On 09.12.2011, at 15:50, Dmitry Karasik wrote: > >> > >>> нашел, все ясно: > >>> > >>> 1: open( STDIN, '<', \$data ) делает 'require PerlIO::scalar' - т.е. находит этот PerlIO/scalar.pm и читает его черед fd(0). Ну > >>> читает и слава богу. > >> > >> Фиг. В моем примере, когда мы не даем закрыть fd 0 такого не происходило-бы. > >> А все равно происходит. > > > > в каком примере? и потом, там вполне может быть implicit close > > > > -- > > Sincerely, > > Dmitry Karasik > > > > -- > > Moscow.pm mailing list > > moscow-pm на pm.org | http://moscow.pm.org > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Sincerely, Dmitry Karasik From mons на rambler-co.ru Fri Dec 9 05:01:05 2011 From: mons на rambler-co.ru (Mons Anderson) Date: Fri, 9 Dec 2011 17:01:05 +0400 Subject: [Moscow.pm] =?utf-8?q?root_=D0=B8_ping?= In-Reply-To: References: Message-ID: <6D071589-578E-4FAB-BD9F-4041B777B3A6@rambler-co.ru> Посмотрите еще на AnyEvent::FastPing Он полюбому быстрее POE и более неблокирующий сложнее найти )) On 08.12.2011, at 12:33, Тимофей Марков wrote: > Добрый день и хорошей работы(ну и отдыха кому повезло) Moscow.pm! > сначала ситуация а потом вопросы. > На серверах крутиться перловая программа, которая по средствам POE:Ping смотрит состояние каналов и оперативно меняет стоимость OSPF маршрутов. > POE:Ping требует рутовые права, что меня напрягает. Я понимаю что в этом ничего хорошего нет, но конкретно чем это может мне грозить не понимаю. был бы благодарен если кто меня просветит в этом вопросе (ну или ссылками поделитесь (с инглишом дружу)). > Вопрос два - как можно пинговать без рутовых прав (в принципе остается вариант запускать обычный ping, но это решение красивым не назвать). > Заранее всем благодарен. > (ах да пинг мне нужен не блокирующий) > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From evdokimov.denis на gmail.com Fri Dec 9 07:15:14 2011 From: evdokimov.denis на gmail.com (Denis Evdokimov) Date: Fri, 9 Dec 2011 18:15:14 +0300 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: <106801323405224@web118.yandex.ru> References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> <599331323360071@web16.yandex.ru> <106801323405224@web118.yandex.ru> Message-ID: > if ($var){} - кричать ошибку, а то можно много где накосячить, если эта строка равна '0' Это уж совсем не перловое поведение > if (length($var)>0){} валидный Какой же это валидный код... а если $var=undef; а если $var=0; > вставить if (a & b){} он не дал и, думаю, это очень правильно Заодно запретить if (a + b){} и прочие операторы в условиях > по идее в warning или perlcritic это тоже можно было прописать perl -we'if(1 && $a=3){}' Found = in conditional, should be == at -e line 1. ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From zzz на zzz.org.ua Fri Dec 9 07:25:50 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Fri, 9 Dec 2011 17:25:50 +0200 Subject: [Moscow.pm] =?koi8-r?b?U1RESU4gPD4gySDeo9LOwdEgzcHHydE=?= In-Reply-To: <1F887AD4-274D-4A9B-A6A5-88F5B8457662@rambler-co.ru> References: <84856E51-0CFB-460F-A1EC-40A9C96F50A6@rambler-co.ru> <20111209102038.GA55048@tetsuo.karasik.eu.org> <7531EA8D-D299-4F84-BF77-E1F0A2E9D798@rambler-co.ru> <20111209113623.GA57415@tetsuo.karasik.eu.org> <20111209115054.GA57803@tetsuo.karasik.eu.org> <20111209120446.GA58712@tetsuo.karasik.eu.org> <1F887AD4-274D-4A9B-A6A5-88F5B8457662@rambler-co.ru> Message-ID: On 12/9/11, Mons Anderson wrote: > # dup.pl > open my $fh, '<&=',0 or die; > print fileno STDIN, ":", scalar readline STDIN; > close STDIN; > print fileno $fh, ":", scalar readline $fh; Это уже другая проблема. From akzhan.abdulin на gmail.com Fri Dec 9 21:58:13 2011 From: akzhan.abdulin на gmail.com (Akzhan Abdulin) Date: Sat, 10 Dec 2011 09:58:13 +0400 Subject: [Moscow.pm] =?utf-8?b?QU5ELCAmICwmJiDQuNC70Lgg0LjRgdGC0L7RgNC4?= =?utf-8?b?0Y8g0LzQvtC40YUg0LHQsNCz0L7Qsg==?= In-Reply-To: <127261323356722@web52.yandex.ru> References: <127261323356722@web52.yandex.ru> Message-ID: Если я буду тут описывать все свои ошибки такого рода, то стану самым плодовитым автором в конференции :) 8 декабря 2011 г. 19:05 пользователь Nikolay Mishin написал: > MoscowPM, привет > > пишет тебе программист из далекой Москвы;)) > тут наковырял у себя Баг, > когда вместо && использовал & (то есть битовый and) > и кстати все работало, пока не выяснилось, что на 1000 сравнений строк > одно дает результат 0 > > вот тест > > http://codepad.org/jzv6Piyl > > сколько времени убил пока не нашел багу;(( > в общем нужно иногда перечитывать ВСЮ теорию, > вдруг из текущих заблуждений, есть такие, которые могут привести к краху > проекта > > -- > Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From mi на ya.ru Sat Dec 10 02:38:54 2011 From: mi на ya.ru (Nikolay Mishin) Date: Sat, 10 Dec 2011 14:38:54 +0400 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> <599331323360071@web16.yandex.ru> <106801323405224@web118.yandex.ru> Message-ID: <670741323513535@web111.yandex.ru> хорошо if (length($var)>0){} перепишем if ( length( !defined $var ? '' : $var ) > 0 ) { print 'ok'; } else { print 'not defined'; } 09.12.2011, 19:15, "Denis Evdokimov" : >> if ($var){} - кричать ошибку, а то можно много где накосячить, если эта строка равна '0' > Это уж совсем не перловое поведение > >> if (length($var)>0){} валидный > Какой же это валидный код... а если $var=undef; > а если $var=0; > >> вставить if (a & b){} он не дал и, думаю, это очень правильно > Заодно запретить > if (a + b){} > и прочие операторы в условиях > >> по идее в warning или perlcritic это тоже можно было прописать > perl -we'if(1 && $a=3){}' > Found = in conditional, should be == at -e line 1. > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From evdokimov.denis на gmail.com Sun Dec 11 01:14:48 2011 From: evdokimov.denis на gmail.com (Denis Evdokimov) Date: Sun, 11 Dec 2011 12:14:48 +0300 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: <670741323513535@web111.yandex.ru> References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> <599331323360071@web16.yandex.ru> <106801323405224@web118.yandex.ru> <670741323513535@web111.yandex.ru> Message-ID: if ( defined $var && length $var ) { print 'ok'; } ----------- ???????? ????? ----------- ???????? ? ??????? HTML ???? ?????????… URL: From mi на ya.ru Sun Dec 11 08:21:14 2011 From: mi на ya.ru (Nikolay Mishin) Date: Sun, 11 Dec 2011 20:21:14 +0400 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> <599331323360071@web16.yandex.ru> <106801323405224@web118.yandex.ru> <670741323513535@web111.yandex.ru> Message-ID: <488031323620475@web52.yandex.ru> о, нереально, спасибо 11.12.2011, 13:14, "Denis Evdokimov" : > if ( defined $var && length $var ) { >    print 'ok'; > } > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From akovbovich на gmail.com Mon Dec 12 05:20:23 2011 From: akovbovich на gmail.com (=?UTF-8?B?0JDQvdC00YDQtdC5INCfLiDQmtC+0LLQsdC+0LLQuNGH?=) Date: Mon, 12 Dec 2011 17:20:23 +0400 Subject: [Moscow.pm] =?utf-8?b?QU5ELCAmICwmJiDQuNC70Lgg0LjRgdGC0L7RgNC4?= =?utf-8?b?0Y8g0LzQvtC40YUg0LHQsNCz0L7Qsg==?= In-Reply-To: <488031323620475@web52.yandex.ru> References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> <599331323360071@web16.yandex.ru> <106801323405224@web118.yandex.ru> <670741323513535@web111.yandex.ru> <488031323620475@web52.yandex.ru> Message-ID: say 'ok' if defined $var and length $var; 11 декабря 2011 г. 20:21 пользователь Nikolay Mishin написал: > о, нереально, спасибо > > 11.12.2011, 13:14, "Denis Evdokimov" : >> if ( defined $var && length $var ) { >>    print 'ok'; >> } >> >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > -- > Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From nordicdyno на yandex.ru Mon Dec 12 05:59:37 2011 From: nordicdyno на yandex.ru (Orlovsky Alexander) Date: Mon, 12 Dec 2011 17:59:37 +0400 Subject: [Moscow.pm] Saint Perl - 3 In-Reply-To: References: <53481320152670@web62.yandex.ru> <271961320307143@web147.yandex.ru> <69B10C28-309C-483F-8B57-4663B6C6DF7E@rambler-co.ru> <332131320915401@web93.yandex.ru> Message-ID: <231831323698377@web123.yandex.ru> 25.11.2011, 16:20, "Andrew Shitov" : > Привет! > > Появились скидки 40-50% на гостиницы в Санкт-Петербурге: > http://ostrovok.ru/deals/. > Есть места на даты воркшопа! Кто-нибудь еще кроме меня едет поездом? И когда? From ivan на bessarabov.ru Mon Dec 12 06:18:06 2011 From: ivan на bessarabov.ru (=?UTF-8?B?0JjQstCw0L0g0JHQtdGB0YHQsNGA0LDQsdC+0LI=?=) Date: Mon, 12 Dec 2011 18:18:06 +0400 Subject: [Moscow.pm] Saint Perl - 3 In-Reply-To: <231831323698377@web123.yandex.ru> References: <53481320152670@web62.yandex.ru> <271961320307143@web147.yandex.ru> <69B10C28-309C-483F-8B57-4663B6C6DF7E@rambler-co.ru> <332131320915401@web93.yandex.ru> <231831323698377@web123.yandex.ru> Message-ID: Я еду поездом. туда 064АА 16.12.2011 22:10 вагон 11 обратно 027АА 18.12.2011 22:40 вагон 4 12 декабря 2011 г. 17:59 пользователь Orlovsky Alexander написал: > 25.11.2011, 16:20, "Andrew Shitov" : >> Привет! >> >> Появились скидки 40-50% на гостиницы в Санкт-Петербурге: >> http://ostrovok.ru/deals/. >> Есть места на даты воркшопа! > > Кто-нибудь еще кроме меня едет поездом? И когда? > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From neyasov на gmail.com Mon Dec 12 06:16:51 2011 From: neyasov на gmail.com (=?koi8-r?B?4czFy9PFyiDuxdHTz9c=?=) Date: Mon, 12 Dec 2011 18:16:51 +0400 Subject: [Moscow.pm] Saint Perl - 3 In-Reply-To: <231831323698377@web123.yandex.ru> References: <53481320152670@web62.yandex.ru> <271961320307143@web147.yandex.ru> <69B10C28-309C-483F-8B57-4663B6C6DF7E@rambler-co.ru> <332131320915401@web93.yandex.ru> <231831323698377@web123.yandex.ru> Message-ID: <6E586573-0C10-40BF-8EC6-60415B3801E1@perlrussia.ru> я Аэрофлотом, так даже дешевле 3т. всего :) 12.12.2011, в 17:59, Orlovsky Alexander написал(а): > 25.11.2011, 16:20, "Andrew Shitov" : >> Привет! >> >> Появились скидки 40-50% на гостиницы в Санкт-Петербурге: >> http://ostrovok.ru/deals/. >> Есть места на даты воркшопа! > > Кто-нибудь еще кроме меня едет поездом? И когда? > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From paul.vlasov на gmail.com Mon Dec 12 08:42:12 2011 From: paul.vlasov на gmail.com (Pavel Vlasov) Date: Mon, 12 Dec 2011 19:42:12 +0300 Subject: [Moscow.pm] Saint Perl - 3 In-Reply-To: <6E586573-0C10-40BF-8EC6-60415B3801E1@perlrussia.ru> References: <53481320152670@web62.yandex.ru> <271961320307143@web147.yandex.ru> <69B10C28-309C-483F-8B57-4663B6C6DF7E@rambler-co.ru> <332131320915401@web93.yandex.ru> <231831323698377@web123.yandex.ru> <6E586573-0C10-40BF-8EC6-60415B3801E1@perlrussia.ru> Message-ID: Туда лечу аэрфлотом. Обратно 18го поездом 27АА, 8 вагон. 2011/12/12 Алексей Неясов > я Аэрофлотом, так даже дешевле 3т. всего :) > > 12.12.2011, в 17:59, Orlovsky Alexander написал(а): > > > 25.11.2011, 16:20, "Andrew Shitov" : > >> Привет! > >> > >> Появились скидки 40-50% на гостиницы в Санкт-Петербурге: > >> http://ostrovok.ru/deals/. > >> Есть места на даты воркшопа! > > > > Кто-нибудь еще кроме меня едет поездом? И когда? > > -- > > Moscow.pm mailing list > > moscow-pm на pm.org | http://moscow.pm.org > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > -- Best regards, Pavel Vlasov Please consider the environment before printing this email. -------------- next part -------------- An HTML attachment was scrubbed... URL: From mons на rambler-co.ru Tue Dec 13 00:51:54 2011 From: mons на rambler-co.ru (Mons Anderson) Date: Tue, 13 Dec 2011 12:51:54 +0400 Subject: [Moscow.pm] =?utf-8?b?QU5ELCAmICwmJiDQuNC70Lgg0LjRgdGC0L7RgNC4?= =?utf-8?b?0Y8g0LzQvtC40YUg0LHQsNCz0L7Qsg==?= In-Reply-To: References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> <599331323360071@web16.yandex.ru> <106801323405224@web118.yandex.ru> <670741323513535@web111.yandex.ru> <488031323620475@web52.yandex.ru> Message-ID: <2AA909D6-11F2-416B-A157-812868A7D98C@rambler-co.ru> а если no warnings 'uninitialized' или use uni::perl say "ok" if length $var; и на defined проверять незачем. length(undef) == 0 On 12.12.2011, at 17:20, Андрей П. Ковбович wrote: > say 'ok' if defined $var and length $var; > > 11 декабря 2011 г. 20:21 пользователь Nikolay Mishin написал: >> о, нереально, спасибо >> >> 11.12.2011, 13:14, "Denis Evdokimov" : >>> if ( defined $var && length $var ) { >>> print 'ok'; >>> } >>> >>> -- >>> Moscow.pm mailing list >>> moscow-pm на pm.org | http://moscow.pm.org >> >> -- >> Nikolay Mishin >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From mi на ya.ru Tue Dec 13 01:37:26 2011 From: mi на ya.ru (Nikolay Mishin) Date: Tue, 13 Dec 2011 13:37:26 +0400 Subject: [Moscow.pm] =?koi8-r?b?QU5ELCAmICwmJiDJzMkgydPUz9LJ0SDNz8nIIMLB?= =?koi8-r?b?x8/X?= In-Reply-To: <2AA909D6-11F2-416B-A157-812868A7D98C@rambler-co.ru> References: <127261323356722@web52.yandex.ru> <567441323359536@web119.yandex.ru> <599331323360071@web16.yandex.ru> <106801323405224@web118.yandex.ru> <670741323513535@web111.yandex.ru> <488031323620475@web52.yandex.ru> <2AA909D6-11F2-416B-A157-812868A7D98C@rambler-co.ru> Message-ID: <445561323769046@web128.yandex.ru> Спасибо, ну во всяком случае my $a; if ( length($a) == 0 ) { print 'test2'; } лучше, чем my $a; if ( $a) { print 'test2'; } да, но является ли эквивалентом запись my $a; if ( length($a) > 0 ) { print 'test2'; } if ( defined $a ) { print 'test3'; } ?? 13.12.2011, 12:51, "Mons Anderson" : > а если no warnings 'uninitialized' или use uni::perl > > say "ok" if length $var; > > и на defined проверять незачем. > length(undef) == 0 > > On 12.12.2011, at 17:20, Андрей П. Ковбович wrote: > >>  say 'ok' if defined $var and length $var; >> >>  11 декабря 2011 г. 20:21 пользователь Nikolay Mishin написал: >>>  о, нереально, спасибо >>> >>>  11.12.2011, 13:14, "Denis Evdokimov" : >>>>  if ( defined $var && length $var ) { >>>>     print 'ok'; >>>>  } >>>> >>>>  -- >>>>  Moscow.pm mailing list >>>>  moscow-pm на pm.org | http://moscow.pm.org >>>  -- >>>  Nikolay Mishin >>>  -- >>>  Moscow.pm mailing list >>>  moscow-pm на pm.org | http://moscow.pm.org >>  -- >>  Moscow.pm mailing list >>  moscow-pm на pm.org | http://moscow.pm.org > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From voronovaa на gmail.com Wed Dec 14 04:22:40 2011 From: voronovaa на gmail.com (Alexander Voronov) Date: Wed, 14 Dec 2011 16:22:40 +0400 Subject: [Moscow.pm] Saint Perl - 3 In-Reply-To: References: <53481320152670@web62.yandex.ru> <271961320307143@web147.yandex.ru> <69B10C28-309C-483F-8B57-4663B6C6DF7E@rambler-co.ru> <332131320915401@web93.yandex.ru> <231831323698377@web123.yandex.ru> <6E586573-0C10-40BF-8EC6-60415B3801E1@perlrussia.ru> Message-ID: Тоже еду поездом, туда - 064АА 16.12.2011 22:10 вагон 15 обратно - 051АА 18.12.2011 21:20 вагон 3 12 декабря 2011 г. 20:42 пользователь Pavel Vlasov написал: > Туда лечу аэрфлотом. > Обратно 18го поездом 27АА, 8 вагон. > > > 2011/12/12 Алексей Неясов > >> я Аэрофлотом, так даже дешевле 3т. всего :) >> >> 12.12.2011, в 17:59, Orlovsky Alexander написал(а): >> >> > 25.11.2011, 16:20, "Andrew Shitov" : >> >> Привет! >> >> >> >> Появились скидки 40-50% на гостиницы в Санкт-Петербурге: >> >> http://ostrovok.ru/deals/. >> >> Есть места на даты воркшопа! >> > >> > Кто-нибудь еще кроме меня едет поездом? И когда? >> > -- >> > Moscow.pm mailing list >> > moscow-pm на pm.org | http://moscow.pm.org >> >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org >> > > > > -- > Best regards, Pavel Vlasov > Please consider the environment before printing this email. > > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > > -- С уважением, Александр ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From mi на ya.ru Thu Dec 15 03:20:14 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 15 Dec 2011 15:20:14 +0400 Subject: [Moscow.pm] =?koi8-r?b?REJJIMkgzcXUz8QsINfP2tfSwd3BwN3JyiAxINrO?= =?koi8-r?b?wd7FzsnF?= Message-ID: <274441323948014@web67.yandex.ru> Hi Miscow-pm не для кого не секрет, что часто, при обращении к базе данных возвращается только 1 значение , скажем count и мы пишем процедуру: sub get_one_value_from_db { my $dbh = shift; my $cob_date = shift; my $persent_load_sql = shift; my $pst_sth = $dbh->prepare($persent_load_sql); $pst_sth->execute($cob_date); my $cnt_today = $pst_sth->fetchrow_array(); return $cnt_today; } вопрос, почему в модуле DBI просто нет метода, который возвращал бы значение, если ему передать 1. коннект 2. sql 3. значение для инициализации my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},$cob_date); ну и потом , чтобы в качестве параметров можно было передавать ссылку на массив, если в запросе в условие where нужно вставлять более 1 значения my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},\@many_param); Вопрос: 1. почему уже нет такой функции? 2. может посоветуете модуль, где она есть, просто чует мое сердце, что это уже 1000 раз написано, Спасибо! p.s. это не важно, но sql nfrjq $ref_source_data->{get_cnt_load_log}=' SELECT COUNT (time_stamp) cnt FROM my_table, (SELECT TO_DATE (?, 'yyyy-mm-dd') + 2 cd FROM DUAL) dt WHERE time_stamp BETWEEN dt.cd AND dt.cd + 1 '; -- Nikolay Mishin From sergiy.borodych на gmail.com Thu Dec 15 03:29:10 2011 From: sergiy.borodych на gmail.com (Sergiy Borodych) Date: Thu, 15 Dec 2011 13:29:10 +0200 Subject: [Moscow.pm] =?utf-8?b?REJJINC4INC80LXRgtC+0LQsINCy0L7Qt9Cy0YA=?= =?utf-8?b?0LDRidCw0Y7RidC40LkgMSDQt9C90LDRh9C10L3QuNC1?= In-Reply-To: <274441323948014@web67.yandex.ru> References: <274441323948014@web67.yandex.ru> Message-ID: Посмотри в сторону selectrow_array my ($count) = $dbh->selectrow_array( $statement, {}, @bind_params ); Да вообще посмотри документацию DBI - там много полезных методов ;) 2011/12/15 Nikolay Mishin : > Hi Miscow-pm > > не для кого не секрет, что часто, при обращении к базе данных возвращается только 1 значение , скажем > count и мы пишем процедуру: > sub get_one_value_from_db { >    my $dbh             = shift; >    my $cob_date        = shift; >    my $persent_load_sql = shift; > >    my $pst_sth = $dbh->prepare($persent_load_sql); >    $pst_sth->execute($cob_date); >    my $cnt_today = $pst_sth->fetchrow_array(); > >    return $cnt_today; > } > > вопрос, почему в модуле DBI > просто нет метода, который возвращал бы значение, если ему передать > 1.  коннект > 2. sql > 3. значение для инициализации > my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},$cob_date); > ну и потом , чтобы в качестве параметров можно было передавать ссылку на массив, > если в запросе в условие where нужно вставлять более 1 значения > my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},\@many_param); > > Вопрос: > 1. почему уже нет такой функции? > 2. может посоветуете модуль, где она есть, > просто чует мое сердце, что это уже 1000 раз написано, > Спасибо! > > p.s. это не важно, но sql nfrjq > $ref_source_data->{get_cnt_load_log}=' > SELECT   COUNT (time_stamp) cnt >  FROM   my_table, >         (SELECT   TO_DATE (?, 'yyyy-mm-dd') + 2 cd FROM DUAL) dt >  WHERE   time_stamp BETWEEN dt.cd AND dt.cd + 1 > '; > -- > Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Sergiy Borodych From STork2000 на yandex.ru Thu Dec 15 03:29:56 2011 From: STork2000 на yandex.ru (Loginoff Nick) Date: Thu, 15 Dec 2011 15:29:56 +0400 Subject: [Moscow.pm] =?koi8-r?b?REJJIMkgzcXUz8QsINfP2tfSwd3BwN3JyiAxINrO?= =?koi8-r?b?wd7FzsnF?= In-Reply-To: <274441323948014@web67.yandex.ru> References: <274441323948014@web67.yandex.ru> Message-ID: <533181323948596@web102.yandex.ru> Вложение в формате HTML было извлечено… URL: From dmitry на karasik.eu.org Thu Dec 15 03:33:09 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Thu, 15 Dec 2011 12:33:09 +0100 Subject: [Moscow.pm] =?koi8-r?b?REJJIMkgzcXUz8QsINfP2tfSwd3BwN3JyiAxINrO?= =?koi8-r?b?wd7FzsnF?= In-Reply-To: <274441323948014@web67.yandex.ru> References: <274441323948014@web67.yandex.ru> Message-ID: <20111215113309.GA91767@tetsuo.karasik.eu.org> я может чего не понял, но вот это разве не оно? ($x) = $dbh-> selectrow_array('SELECT 1') $x = ($dbh-> selectrow_array('SELECT 1'))[0] /dk On Thu, Dec 15, 2011 at 03:20:14PM +0400, Nikolay Mishin wrote: > Hi Miscow-pm > > не для кого не секрет, что часто, при обращении к базе данных возвращается только 1 значение , скажем > count и мы пишем процедуру: > sub get_one_value_from_db { > my $dbh = shift; > my $cob_date = shift; > my $persent_load_sql = shift; > > my $pst_sth = $dbh->prepare($persent_load_sql); > $pst_sth->execute($cob_date); > my $cnt_today = $pst_sth->fetchrow_array(); > > return $cnt_today; > } > > вопрос, почему в модуле DBI > просто нет метода, который возвращал бы значение, если ему передать > 1. коннект > 2. sql > 3. значение для инициализации > my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},$cob_date); > ну и потом , чтобы в качестве параметров можно было передавать ссылку на массив, > если в запросе в условие where нужно вставлять более 1 значения > my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},\@many_param); > > Вопрос: > 1. почему уже нет такой функции? > 2. может посоветуете модуль, где она есть, > просто чует мое сердце, что это уже 1000 раз написано, > Спасибо! > > p.s. это не важно, но sql nfrjq > $ref_source_data->{get_cnt_load_log}=' > SELECT COUNT (time_stamp) cnt > FROM my_table, > (SELECT TO_DATE (?, 'yyyy-mm-dd') + 2 cd FROM DUAL) dt > WHERE time_stamp BETWEEN dt.cd AND dt.cd + 1 > '; > -- > Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Sincerely, Dmitry Karasik From mi на ya.ru Thu Dec 15 03:56:07 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 15 Dec 2011 15:56:07 +0400 Subject: [Moscow.pm] =?koi8-r?b?REJJIMkgzcXUz8QsINfP2tfSwd3BwN3JyiAxINrO?= =?koi8-r?b?wd7FzsnF?= In-Reply-To: References: <274441323948014@web67.yandex.ru> Message-ID: <821821323950167@web104.yandex.ru> Да, круто, работает, я вроде использовал, но потом забыл, но вопросы , как оказалось, задавать полезно my $cnt_today = $dbh->selectrow_array( $ref_source_data->{get_cnt_load_log}, {}, $cob_date ); Всем спасибо,работает, заодно 30% кода модуля почистилось;)) 15.12.2011, 15:29, "Sergiy Borodych" : > Посмотри в сторону selectrow_array > > my ($count) = $dbh->selectrow_array( $statement, {}, @bind_params ); > > Да вообще посмотри документацию DBI - там много полезных методов ;) > > 2011/12/15 Nikolay Mishin : > >>  Hi Miscow-pm >> >>  не для кого не секрет, что часто, при обращении к базе данных возвращается только 1 значение , скажем >>  count и мы пишем процедуру: >>  sub get_one_value_from_db { >>     my $dbh             = shift; >>     my $cob_date        = shift; >>     my $persent_load_sql = shift; >> >>     my $pst_sth = $dbh->prepare($persent_load_sql); >>     $pst_sth->execute($cob_date); >>     my $cnt_today = $pst_sth->fetchrow_array(); >> >>     return $cnt_today; >>  } >> >>  вопрос, почему в модуле DBI >>  просто нет метода, который возвращал бы значение, если ему передать >>  1.  коннект >>  2. sql >>  3. значение для инициализации >>  my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},$cob_date); >>  ну и потом , чтобы в качестве параметров можно было передавать ссылку на массив, >>  если в запросе в условие where нужно вставлять более 1 значения >>  my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},\@many_param); >> >>  Вопрос: >>  1. почему уже нет такой функции? >>  2. может посоветуете модуль, где она есть, >>  просто чует мое сердце, что это уже 1000 раз написано, >>  Спасибо! >> >>  p.s. это не важно, но sql nfrjq >>  $ref_source_data->{get_cnt_load_log}=' >>  SELECT   COUNT (time_stamp) cnt >>   FROM   my_table, >>          (SELECT   TO_DATE (?, 'yyyy-mm-dd') + 2 cd FROM DUAL) dt >>   WHERE   time_stamp BETWEEN dt.cd AND dt.cd + 1 >>  '; >>  -- >>  Nikolay Mishin >>  -- >>  Moscow.pm mailing list >>  moscow-pm на pm.org | http://moscow.pm.org > -- > Sergiy Borodych > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From mi на ya.ru Thu Dec 15 04:38:37 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 15 Dec 2011 16:38:37 +0400 Subject: [Moscow.pm] =?koi8-r?b?REJJIMkgzcXUz8QsINfP2tfSwd3BwN3JyiAxINrO?= =?koi8-r?b?wd7FzsnF?= In-Reply-To: <821821323950167@web104.yandex.ru> References: <274441323948014@web67.yandex.ru> <821821323950167@web104.yandex.ru> Message-ID: <48501323952717@web123.yandex.ru> Да и все рекомендую читать рецепты для DBI http://www.perlmonks.org/?node_id=284436 !!! 15.12.2011, 15:56, "Nikolay Mishin" : > Да, круто, работает, я вроде использовал, но потом забыл, > но вопросы , как оказалось, задавать полезно > >     my $cnt_today = $dbh->selectrow_array( $ref_source_data->{get_cnt_load_log}, >         {}, $cob_date ); > Всем спасибо,работает, заодно 30% кода модуля почистилось;)) > > 15.12.2011, 15:29, "Sergiy Borodych" : > >>  Посмотри в сторону selectrow_array >> >>  my ($count) = $dbh->selectrow_array( $statement, {}, @bind_params ); >> >>  Да вообще посмотри документацию DBI - там много полезных методов ;) >> >>  2011/12/15 Nikolay Mishin : >>>   Hi Miscow-pm >>> >>>   не для кого не секрет, что часто, при обращении к базе данных возвращается только 1 значение , скажем >>>   count и мы пишем процедуру: >>>   sub get_one_value_from_db { >>>      my $dbh             = shift; >>>      my $cob_date        = shift; >>>      my $persent_load_sql = shift; >>> >>>      my $pst_sth = $dbh->prepare($persent_load_sql); >>>      $pst_sth->execute($cob_date); >>>      my $cnt_today = $pst_sth->fetchrow_array(); >>> >>>      return $cnt_today; >>>   } >>> >>>   вопрос, почему в модуле DBI >>>   просто нет метода, который возвращал бы значение, если ему передать >>>   1.  коннект >>>   2. sql >>>   3. значение для инициализации >>>   my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},$cob_date); >>>   ну и потом , чтобы в качестве параметров можно было передавать ссылку на массив, >>>   если в запросе в условие where нужно вставлять более 1 значения >>>   my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},\@many_param); >>> >>>   Вопрос: >>>   1. почему уже нет такой функции? >>>   2. может посоветуете модуль, где она есть, >>>   просто чует мое сердце, что это уже 1000 раз написано, >>>   Спасибо! >>> >>>   p.s. это не важно, но sql nfrjq >>>   $ref_source_data->{get_cnt_load_log}=' >>>   SELECT   COUNT (time_stamp) cnt >>>    FROM   my_table, >>>           (SELECT   TO_DATE (?, 'yyyy-mm-dd') + 2 cd FROM DUAL) dt >>>    WHERE   time_stamp BETWEEN dt.cd AND dt.cd + 1 >>>   '; >>>   -- >>>   Nikolay Mishin >>>   -- >>>   Moscow.pm mailing list >>>   moscow-pm на pm.org | http://moscow.pm.org >>  -- >>  Sergiy Borodych >>  -- >>  Moscow.pm mailing list >>  moscow-pm на pm.org | http://moscow.pm.org > > -- > Nikolay Mishin > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From akovbovich на gmail.com Thu Dec 15 05:05:11 2011 From: akovbovich на gmail.com (=?UTF-8?B?0JDQvdC00YDQtdC5INCfLiDQmtC+0LLQsdC+0LLQuNGH?=) Date: Thu, 15 Dec 2011 17:05:11 +0400 Subject: [Moscow.pm] =?utf-8?b?REJJINC4INC80LXRgtC+0LQsINCy0L7Qt9Cy0YA=?= =?utf-8?b?0LDRidCw0Y7RidC40LkgMSDQt9C90LDRh9C10L3QuNC1?= In-Reply-To: <48501323952717@web123.yandex.ru> References: <274441323948014@web67.yandex.ru> <821821323950167@web104.yandex.ru> <48501323952717@web123.yandex.ru> Message-ID: http://www.books.ru/books/programmirovanie-na-perl-dbi-8193/ 15 декабря 2011 г. 16:38 пользователь Nikolay Mishin написал: > Да и все рекомендую читать рецепты для DBI > http://www.perlmonks.org/?node_id=284436 !!! > > 15.12.2011, 15:56, "Nikolay Mishin" : >> Да, круто, работает, я вроде использовал, но потом забыл, >> но вопросы , как оказалось, задавать полезно >> >>     my $cnt_today = $dbh->selectrow_array( $ref_source_data->{get_cnt_load_log}, >>         {}, $cob_date ); >> Всем спасибо,работает, заодно 30% кода модуля почистилось;)) >> >> 15.12.2011, 15:29, "Sergiy Borodych" : >> >>>  Посмотри в сторону selectrow_array >>> >>>  my ($count) = $dbh->selectrow_array( $statement, {}, @bind_params ); >>> >>>  Да вообще посмотри документацию DBI - там много полезных методов ;) >>> >>>  2011/12/15 Nikolay Mishin : >>>>   Hi Miscow-pm >>>> >>>>   не для кого не секрет, что часто, при обращении к базе данных возвращается только 1 значение , скажем >>>>   count и мы пишем процедуру: >>>>   sub get_one_value_from_db { >>>>      my $dbh             = shift; >>>>      my $cob_date        = shift; >>>>      my $persent_load_sql = shift; >>>> >>>>      my $pst_sth = $dbh->prepare($persent_load_sql); >>>>      $pst_sth->execute($cob_date); >>>>      my $cnt_today = $pst_sth->fetchrow_array(); >>>> >>>>      return $cnt_today; >>>>   } >>>> >>>>   вопрос, почему в модуле DBI >>>>   просто нет метода, который возвращал бы значение, если ему передать >>>>   1.  коннект >>>>   2. sql >>>>   3. значение для инициализации >>>>   my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},$cob_date); >>>>   ну и потом , чтобы в качестве параметров можно было передавать ссылку на массив, >>>>   если в запросе в условие where нужно вставлять более 1 значения >>>>   my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},\@many_param); >>>> >>>>   Вопрос: >>>>   1. почему уже нет такой функции? >>>>   2. может посоветуете модуль, где она есть, >>>>   просто чует мое сердце, что это уже 1000 раз написано, >>>>   Спасибо! >>>> >>>>   p.s. это не важно, но sql nfrjq >>>>   $ref_source_data->{get_cnt_load_log}=' >>>>   SELECT   COUNT (time_stamp) cnt >>>>    FROM   my_table, >>>>           (SELECT   TO_DATE (?, 'yyyy-mm-dd') + 2 cd FROM DUAL) dt >>>>    WHERE   time_stamp BETWEEN dt.cd AND dt.cd + 1 >>>>   '; >>>>   -- >>>>   Nikolay Mishin >>>>   -- >>>>   Moscow.pm mailing list >>>>   moscow-pm на pm.org | http://moscow.pm.org >>>  -- >>>  Sergiy Borodych >>>  -- >>>  Moscow.pm mailing list >>>  moscow-pm на pm.org | http://moscow.pm.org >> >> -- >> Nikolay Mishin >> >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > -- > Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From somerandomlogin на gmail.com Thu Dec 15 05:27:55 2011 From: somerandomlogin на gmail.com (Jack of Shadows) Date: Thu, 15 Dec 2011 17:27:55 +0400 Subject: [Moscow.pm] =?koi8-r?b?REJJIMkgzcXUz8QsINfP2tfSwd3BwN3JyiAxINrO?= =?koi8-r?b?wd7FzsnF?= In-Reply-To: References: <274441323948014@web67.yandex.ru> <821821323950167@web104.yandex.ru> <48501323952717@web123.yandex.ru> Message-ID: $persent_load_sql <--- невалидный английский детектед! Пыщь лучиком ненависти. On Thu, Dec 15, 2011 at 5:05 PM, Андрей П. Ковбович wrote: > http://www.books.ru/books/programmirovanie-na-perl-dbi-8193/ > > 15 декабря 2011 г. 16:38 пользователь Nikolay Mishin написал: >> Да и все рекомендую читать рецепты для DBI >> http://www.perlmonks.org/?node_id=284436 !!! >> >> 15.12.2011, 15:56, "Nikolay Mishin" : >>> Да, круто, работает, я вроде использовал, но потом забыл, >>> но вопросы , как оказалось, задавать полезно >>> >>>     my $cnt_today = $dbh->selectrow_array( $ref_source_data->{get_cnt_load_log}, >>>         {}, $cob_date ); >>> Всем спасибо,работает, заодно 30% кода модуля почистилось;)) >>> >>> 15.12.2011, 15:29, "Sergiy Borodych" : >>> >>>>  Посмотри в сторону selectrow_array >>>> >>>>  my ($count) = $dbh->selectrow_array( $statement, {}, @bind_params ); >>>> >>>>  Да вообще посмотри документацию DBI - там много полезных методов ;) >>>> >>>>  2011/12/15 Nikolay Mishin : >>>>>   Hi Miscow-pm >>>>> >>>>>   не для кого не секрет, что часто, при обращении к базе данных возвращается только 1 значение , скажем >>>>>   count и мы пишем процедуру: >>>>>   sub get_one_value_from_db { >>>>>      my $dbh             = shift; >>>>>      my $cob_date        = shift; >>>>>      my $persent_load_sql = shift; >>>>> >>>>>      my $pst_sth = $dbh->prepare($persent_load_sql); >>>>>      $pst_sth->execute($cob_date); >>>>>      my $cnt_today = $pst_sth->fetchrow_array(); >>>>> >>>>>      return $cnt_today; >>>>>   } >>>>> >>>>>   вопрос, почему в модуле DBI >>>>>   просто нет метода, который возвращал бы значение, если ему передать >>>>>   1.  коннект >>>>>   2. sql >>>>>   3. значение для инициализации >>>>>   my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},$cob_date); >>>>>   ну и потом , чтобы в качестве параметров можно было передавать ссылку на массив, >>>>>   если в запросе в условие where нужно вставлять более 1 значения >>>>>   my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},\@many_param); >>>>> >>>>>   Вопрос: >>>>>   1. почему уже нет такой функции? >>>>>   2. может посоветуете модуль, где она есть, >>>>>   просто чует мое сердце, что это уже 1000 раз написано, >>>>>   Спасибо! >>>>> >>>>>   p.s. это не важно, но sql nfrjq >>>>>   $ref_source_data->{get_cnt_load_log}=' >>>>>   SELECT   COUNT (time_stamp) cnt >>>>>    FROM   my_table, >>>>>           (SELECT   TO_DATE (?, 'yyyy-mm-dd') + 2 cd FROM DUAL) dt >>>>>    WHERE   time_stamp BETWEEN dt.cd AND dt.cd + 1 >>>>>   '; >>>>>   -- >>>>>   Nikolay Mishin >>>>>   -- >>>>>   Moscow.pm mailing list >>>>>   moscow-pm на pm.org | http://moscow.pm.org >>>>  -- >>>>  Sergiy Borodych >>>>  -- >>>>  Moscow.pm mailing list >>>>  moscow-pm на pm.org | http://moscow.pm.org >>> >>> -- >>> Nikolay Mishin >>> >>> -- >>> Moscow.pm mailing list >>> moscow-pm на pm.org | http://moscow.pm.org >> >> -- >> Nikolay Mishin >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From mi на ya.ru Thu Dec 15 05:55:11 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 15 Dec 2011 17:55:11 +0400 Subject: [Moscow.pm] =?koi8-r?b?REJJIMkgzcXUz8QsINfP2tfSwd3BwN3JyiAxINrO?= =?koi8-r?b?wd7FzsnF?= In-Reply-To: References: <274441323948014@web67.yandex.ru> <821821323950167@web104.yandex.ru> <48501323952717@web123.yandex.ru> Message-ID: <1022561323957311@web54.yandex.ru> убил, будет percent_load_sql 15.12.2011, 17:27, "Jack of Shadows" : > $persent_load_sql <--- невалидный английский детектед! Пыщь лучиком ненависти. > > On Thu, Dec 15, 2011 at 5:05 PM, Андрей П. Ковбович > wrote: > >>  http://www.books.ru/books/programmirovanie-na-perl-dbi-8193/ >> >>  15 декабря 2011 г. 16:38 пользователь Nikolay Mishin написал: >>>  Да и все рекомендую читать рецепты для DBI >>>  http://www.perlmonks.org/?node_id=284436 !!! >>> >>>  15.12.2011, 15:56, "Nikolay Mishin" : >>>>  Да, круто, работает, я вроде использовал, но потом забыл, >>>>  но вопросы , как оказалось, задавать полезно >>>> >>>>      my $cnt_today = $dbh->selectrow_array( $ref_source_data->{get_cnt_load_log}, >>>>          {}, $cob_date ); >>>>  Всем спасибо,работает, заодно 30% кода модуля почистилось;)) >>>> >>>>  15.12.2011, 15:29, "Sergiy Borodych" : >>>>>   Посмотри в сторону selectrow_array >>>>> >>>>>   my ($count) = $dbh->selectrow_array( $statement, {}, @bind_params ); >>>>> >>>>>   Да вообще посмотри документацию DBI - там много полезных методов ;) >>>>> >>>>>   2011/12/15 Nikolay Mishin : >>>>>>    Hi Miscow-pm >>>>>> >>>>>>    не для кого не секрет, что часто, при обращении к базе данных возвращается только 1 значение , скажем >>>>>>    count и мы пишем процедуру: >>>>>>    sub get_one_value_from_db { >>>>>>       my $dbh             = shift; >>>>>>       my $cob_date        = shift; >>>>>>       my $persent_load_sql = shift; >>>>>> >>>>>>       my $pst_sth = $dbh->prepare($persent_load_sql); >>>>>>       $pst_sth->execute($cob_date); >>>>>>       my $cnt_today = $pst_sth->fetchrow_array(); >>>>>> >>>>>>       return $cnt_today; >>>>>>    } >>>>>> >>>>>>    вопрос, почему в модуле DBI >>>>>>    просто нет метода, который возвращал бы значение, если ему передать >>>>>>    1.  коннект >>>>>>    2. sql >>>>>>    3. значение для инициализации >>>>>>    my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},$cob_date); >>>>>>    ну и потом , чтобы в качестве параметров можно было передавать ссылку на массив, >>>>>>    если в запросе в условие where нужно вставлять более 1 значения >>>>>>    my $value = get_one_value_from_db( $dbh, $ref_source_data->{get_cnt_load_log},\@many_param); >>>>>> >>>>>>    Вопрос: >>>>>>    1. почему уже нет такой функции? >>>>>>    2. может посоветуете модуль, где она есть, >>>>>>    просто чует мое сердце, что это уже 1000 раз написано, >>>>>>    Спасибо! >>>>>> >>>>>>    p.s. это не важно, но sql nfrjq >>>>>>    $ref_source_data->{get_cnt_load_log}=' >>>>>>    SELECT   COUNT (time_stamp) cnt >>>>>>     FROM   my_table, >>>>>>            (SELECT   TO_DATE (?, 'yyyy-mm-dd') + 2 cd FROM DUAL) dt >>>>>>     WHERE   time_stamp BETWEEN dt.cd AND dt.cd + 1 >>>>>>    '; >>>>>>    -- >>>>>>    Nikolay Mishin >>>>>>    -- >>>>>>    Moscow.pm mailing list >>>>>>    moscow-pm на pm.org | http://moscow.pm.org >>>>>   -- >>>>>   Sergiy Borodych >>>>>   -- >>>>>   Moscow.pm mailing list >>>>>   moscow-pm на pm.org | http://moscow.pm.org >>>>  -- >>>>  Nikolay Mishin >>>> >>>>  -- >>>>  Moscow.pm mailing list >>>>  moscow-pm на pm.org | http://moscow.pm.org >>>  -- >>>  Nikolay Mishin >>>  -- >>>  Moscow.pm mailing list >>>  moscow-pm на pm.org | http://moscow.pm.org >>  -- >>  Moscow.pm mailing list >>  moscow-pm на pm.org | http://moscow.pm.org > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From nordicdyno на yandex.ru Fri Dec 16 08:08:14 2011 From: nordicdyno на yandex.ru (Orlovsky Alexander) Date: Fri, 16 Dec 2011 20:08:14 +0400 Subject: [Moscow.pm] Saint Perl - 3 In-Reply-To: References: <53481320152670@web62.yandex.ru> <271961320307143@web147.yandex.ru> <69B10C28-309C-483F-8B57-4663B6C6DF7E@rambler-co.ru> <332131320915401@web93.yandex.ru> <231831323698377@web123.yandex.ru> <6E586573-0C10-40BF-8EC6-60415B3801E1@perlrussia.ru> Message-ID: <70461324051694@web35.yandex.ru> Вложение в формате HTML было извлечено… URL: From nordicdyno на yandex.ru Fri Dec 16 08:09:59 2011 From: nordicdyno на yandex.ru (Orlovsky Alexander) Date: Fri, 16 Dec 2011 20:09:59 +0400 Subject: [Moscow.pm] Perl in space Message-ID: <71011324051799@web35.yandex.ru> Интересный пост и комментарии об использовании Perl в космосе ) http://www.perlmonks.org/?node_id=857358 From mi на ya.ru Tue Dec 20 08:32:30 2011 From: mi на ya.ru (Nikolay Mishin) Date: Tue, 20 Dec 2011 20:32:30 +0400 Subject: [Moscow.pm] =?koi8-r?b?cmVnZXhwIMkgWUFNTDo6VGlueQ==?= Message-ID: <236581324398750@web39.yandex.ru> Hi MoscowPM, коллеги что делать лежит у меня в yml --- tags_4_index: - '' - Rock - Vocal я его успешно читаю use FindBin '$Bin'; my $yaml = YAML::Tiny::LoadFile( $Bin . qq{/} . $config_name ); my @tags = @{ $yaml->{tags_4_index} }; и потом хочу my $start_tag = shift @{$ref_tags}; 1-й параметр использовать в регэкспе: типа while ( my $line = <$fh> ) { if ( $line =~ /$start_tag/ims ) { catch($line); } } так вот так не работает, работает, если $start_tag='\<\?xml version="1.0" encoding="UTF-8"\?\>'; но, если я его таким кладу в yaml, то он мне возвращает (YAML::Tiny) ### $start_tag: '\\<\\?xml version="1.0" encoding="UTF-8"\\?\\>' зачем он его еще раз бекслешует? -- Nikolay Mishin From evgeniy на kosov.su Tue Dec 20 08:50:30 2011 From: evgeniy на kosov.su (Evgeniy Kosov) Date: Tue, 20 Dec 2011 20:50:30 +0400 Subject: [Moscow.pm] =?koi8-r?b?cmVnZXhwIMkgWUFNTDo6VGlueQ==?= In-Reply-To: <236581324398750@web39.yandex.ru> References: <236581324398750@web39.yandex.ru> Message-ID: <4EF0BCD6.2060006@kosov.su> Здравствуйте, Николай. On 20.12.2011 20:32, Nikolay Mishin wrote: > Hi MoscowPM, > коллеги что делать > лежит у меня в yml > --- > tags_4_index: > - '' > - Rock > - Vocal > > я его успешно читаю > use FindBin '$Bin'; > my $yaml = YAML::Tiny::LoadFile( $Bin . qq{/} . $config_name ); > my @tags = @{ $yaml->{tags_4_index} }; > и потом > хочу my $start_tag = shift @{$ref_tags}; > 1-й параметр использовать в регэкспе: > типа > while ( my $line =<$fh> ) { > if ( $line =~ /$start_tag/ims ) { > catch($line); > } > } > > так вот так не работает, работает, если > $start_tag='\<\?xml version="1.0" encoding="UTF-8"\?\>'; > но, если я его таким кладу в yaml, то он мне возвращает (YAML::Tiny) > ### $start_tag: '\\<\\?xml version="1.0" encoding="UTF-8"\\?\\>' > зачем он его еще раз бекслешует? Я, канеш, извиняюсь, но... Ваши письма мне чем-то напоминают Mason'овские компоненты. Такая же сложно читаемая "каша" из кода и текста :) Ну, или php3, чтоб далеко не ходить :) Я это к чему? Если бы вы отделяли примеры кода от непосредственно самих вопросов, ИМХО, остальным было бы легче понять вопрос и, как следствие, ответить. По сути вопроса. Используйте метасимволы \Q и \E при подстановке строки из конфига в регулярное выражение. Судя по примерам, в конфиге у вас просто строки, а не регулярки. Как-то так: $line =~ /\Q$start_tag\E/; см. perldoc perlre. -- С уважением, Евгений Косов From mi на ya.ru Tue Dec 20 08:58:27 2011 From: mi на ya.ru (Nikolay Mishin) Date: Tue, 20 Dec 2011 20:58:27 +0400 Subject: [Moscow.pm] =?koi8-r?b?cmVnZXhwIMkgWUFNTDo6VGlueQ==?= In-Reply-To: <236581324398750@web39.yandex.ru> References: <236581324398750@web39.yandex.ru> Message-ID: <264331324400307@web78.yandex.ru> Да, и всем спасибо за Saint-Perl супер-сейшн, супер организация, очень вкусная еду, в общем молодцы my @perl_wizdom = map $_ + 1, ( $Ingria, $Padna, $SaintPerl );#$_++not work;) 20.12.2011, 20:32, "Nikolay Mishin" : > Hi MoscowPM, > коллеги что делать > лежит у меня в yml > --- > tags_4_index: >         - '' >         - Rock >         - Vocal > > я его успешно читаю > use FindBin '$Bin'; > my $yaml = YAML::Tiny::LoadFile( $Bin . qq{/} . $config_name ); > my @tags = @{ $yaml->{tags_4_index} }; > и потом > хочу my $start_tag = shift @{$ref_tags}; > 1-й параметр использовать в регэкспе: > типа > while ( my $line = <$fh> ) { > if ( $line =~ /$start_tag/ims ) { > catch($line); >   } > } > > так вот так не работает, работает, если > $start_tag='\<\?xml version="1.0" encoding="UTF-8"\?\>'; > но, если я его таким кладу в yaml, то он мне возвращает (YAML::Tiny) > ### $start_tag: '\\<\\?xml version="1.0" encoding="UTF-8"\\?\\>' > зачем он его еще раз бекслешует? > > -- > Nikolay Mishin > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From mi на ya.ru Tue Dec 20 08:59:48 2011 From: mi на ya.ru (Nikolay Mishin) Date: Tue, 20 Dec 2011 20:59:48 +0400 Subject: [Moscow.pm] =?koi8-r?b?cmVnZXhwIMkgWUFNTDo6VGlueQ==?= In-Reply-To: <4EF0BCD6.2060006@kosov.su> References: <236581324398750@web39.yandex.ru> <4EF0BCD6.2060006@kosov.su> Message-ID: <264961324400389@web78.yandex.ru> Спасибо Евегений, учту ваши замечания в дальнейшем, да, так работает ok 1 20.12.2011, 20:50, "Evgeniy Kosov" : > Здравствуйте, Николай. > > On 20.12.2011 20:32, Nikolay Mishin wrote: > >>  Hi MoscowPM, >>  коллеги что делать >>  лежит у меня в yml >>  --- >>  tags_4_index: >>           - '' >>           - Rock >>           - Vocal >> >>  я его успешно читаю >>  use FindBin '$Bin'; >>  my $yaml = YAML::Tiny::LoadFile( $Bin . qq{/} . $config_name ); >>  my @tags = @{ $yaml->{tags_4_index} }; >>  и потом >>  хочу my $start_tag = shift @{$ref_tags}; >>  1-й параметр использовать в регэкспе: >>  типа >>  while ( my $line =<$fh>  ) { >>  if ( $line =~ /$start_tag/ims ) { >>  catch($line); >>     } >>  } >> >>  так вот так не работает, работает, если >>  $start_tag='\<\?xml version="1.0" encoding="UTF-8"\?\>'; >>  но, если я его таким кладу в yaml, то он мне возвращает (YAML::Tiny) >>  ### $start_tag: '\\<\\?xml version="1.0" encoding="UTF-8"\\?\\>' >>  зачем он его еще раз бекслешует? > > Я, канеш, извиняюсь, но... Ваши письма мне чем-то напоминают > Mason'овские компоненты. Такая же сложно читаемая "каша" из кода и > текста :) Ну, или php3, чтоб далеко не ходить :) > > Я это к чему? > Если бы вы отделяли примеры кода от непосредственно самих вопросов, > ИМХО, остальным было бы легче понять вопрос и, как следствие, ответить. > > По сути вопроса. > > Используйте метасимволы \Q и \E при подстановке строки из конфига в > регулярное выражение. Судя по примерам, в конфиге у вас просто строки, а > не регулярки. > > Как-то так: > >   $line =~ /\Q$start_tag\E/; > > см. perldoc perlre. > > -- > С уважением, > Евгений Косов > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From ruz на bestpractical.com Tue Dec 20 09:11:40 2011 From: ruz на bestpractical.com (Ruslan Zakirov) Date: Tue, 20 Dec 2011 21:11:40 +0400 Subject: [Moscow.pm] Not a designer? Get involved with the MetaCPAN logo contest anyway! Message-ID: http://blogs.perl.org/users/olaf_alders/2011/12/not-a-designer-get-involved-with-the-metacpan-logo-contest-anyway.html Regards, Ruslan. From phone. ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From mi на ya.ru Tue Dec 20 21:40:51 2011 From: mi на ya.ru (Nikolay Mishin) Date: Wed, 21 Dec 2011 09:40:51 +0400 Subject: [Moscow.pm] =?koi8-r?b?cmVnZXhwIMkgWUFNTDo6VGlueQ==?= In-Reply-To: <4EF0BCD6.2060006@kosov.su> References: <236581324398750@web39.yandex.ru> <4EF0BCD6.2060006@kosov.su> Message-ID: <411571324446051@web34.yandex.ru> 1. попрошу не оскорблять сравнением c php3 и mason (хотя извинения и были, но это похоже, как в собаке Баскервилей, доктор Джеймс Мортимер назвал мистера Шерлока Хомса вторым сыщиком, но конечно первым среди практиков. что его, несомненно, задело ) 2. я хотел показать ход своих мыслей, которых, как оказалось, было достаточно, что вы поняли о чем вопрос, для меня некоторые из этих строк родились в муках и были своего рода открытием и, поэтому мне хотелось ими поделиться 3. работающим кодом мне запрещено делиться по контракту, кроме того я и сам еще не созрел, чтобы им делиться (уж простите) 4. писать тест с работающим кодом и отвязанным от "действительности" не было сил 5. "русский тест" в общем -то и так себя выделает, как и "perl код" и , в данном случае, я хотел, чтобы вся фраза была не длиннее 20 строк - излишние пробелы (как-бы меня не уверяли приверженцы python) тоже не способствуют читаемости, если приходиться скролить страницы 6. да, пары переводов строк моему тексту не помешали бы, но они у меня (пустые строки для читаемости) все-таки были 7. я занимаюсь рефакторингом и тестированием все время и тоже являюсь приверженцем читаемости кода до предела (после того, как все работает и понятно - можно запустить профайлер set PERL5DB='use Devel::NYTProf' set NYTPROF=trace=2:start=init:file=nytprof.out:addpid=1:start=begin perl -d:NYTProf 12_index.t nytprofhtml nytprof/index.html #отчет http://blog.timbunce.org/2009/12/24/nytprof-v3-worth-the-wait/ http://www.slideshare.net/Tim.Bunce/develnytprof-200907 http://blip.tv/timbunce/nytprof-v3-ipw-2009-2860609) моим идеалом, в частности, является https://github.com/xsawyerx/module-starter/blob/master/bin/module-starter gratias p.s. ora at labora 20.12.2011, 20:50, "Evgeniy Kosov" : > Здравствуйте, Николай. > > On 20.12.2011 20:32, Nikolay Mishin wrote: > >>  Hi MoscowPM, >>  коллеги что делать >>  лежит у меня в yml >>  --- >>  tags_4_index: >>           - '' >>           - Rock >>           - Vocal >> >>  я его успешно читаю >>  use FindBin '$Bin'; >>  my $yaml = YAML::Tiny::LoadFile( $Bin . qq{/} . $config_name ); >>  my @tags = @{ $yaml->{tags_4_index} }; >>  и потом >>  хочу my $start_tag = shift @{$ref_tags}; >>  1-й параметр использовать в регэкспе: >>  типа >>  while ( my $line =<$fh>  ) { >>  if ( $line =~ /$start_tag/ims ) { >>  catch($line); >>     } >>  } >> >>  так вот так не работает, работает, если >>  $start_tag='\<\?xml version="1.0" encoding="UTF-8"\?\>'; >>  но, если я его таким кладу в yaml, то он мне возвращает (YAML::Tiny) >>  ### $start_tag: '\\<\\?xml version="1.0" encoding="UTF-8"\\?\\>' >>  зачем он его еще раз бекслешует? > > Я, канеш, извиняюсь, но... Ваши письма мне чем-то напоминают > Mason'овские компоненты. Такая же сложно читаемая "каша" из кода и > текста :) Ну, или php3, чтоб далеко не ходить :) > > Я это к чему? > Если бы вы отделяли примеры кода от непосредственно самих вопросов, > ИМХО, остальным было бы легче понять вопрос и, как следствие, ответить. > > По сути вопроса. > > Используйте метасимволы \Q и \E при подстановке строки из конфига в > регулярное выражение. Судя по примерам, в конфиге у вас просто строки, а > не регулярки. > > Как-то так: > >   $line =~ /\Q$start_tag\E/; > > см. perldoc perlre. > > -- > С уважением, > Евгений Косов > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From sharifulin на gmail.com Tue Dec 20 22:58:25 2011 From: sharifulin на gmail.com (=?KOI8-R?B?4c7B1M/Mycog+8HSycbVzMnO?=) Date: Wed, 21 Dec 2011 10:58:25 +0400 Subject: [Moscow.pm] =?koi8-r?b?cmVnZXhwIMkgWUFNTDo6VGlueQ==?= In-Reply-To: <411571324446051@web34.yandex.ru> References: <236581324398750@web39.yandex.ru> <4EF0BCD6.2060006@kosov.su> <411571324446051@web34.yandex.ru> Message-ID: Николай, Вам сделали замечание по существу. Давайте не превращать рассылку в помощь одному себе и обсуждению "хода мыслей". Иначе придётся зарплату делить между всеми, кто в рассылке вас читает и отвечает :-). Спасибо за понимание. 2011/12/21 Nikolay Mishin > 1. попрошу не оскорблять сравнением c php3 и mason (хотя извинения и были, > но это похоже, > как в собаке Баскервилей, доктор Джеймс Мортимер назвал мистера Шерлока > Хомса вторым > сыщиком, но конечно первым среди практиков. что его, несомненно, задело ) > -- С уважением, Анатолий Шарифулин. ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From mi на ya.ru Wed Dec 21 00:05:31 2011 From: mi на ya.ru (Nikolay Mishin) Date: Wed, 21 Dec 2011 12:05:31 +0400 Subject: [Moscow.pm] =?koi8-r?b?cmVnZXhwIMkgWUFNTDo6VGlueQ==?= In-Reply-To: References: <236581324398750@web39.yandex.ru> <4EF0BCD6.2060006@kosov.su> <411571324446051@web34.yandex.ru> Message-ID: <68961324454731@web32.yandex.ru> Хорошо, согласен. Да я и сам нашел ответ на свой вопрос быстрее, чем пришел 1-й ответ, видимо, надо было его вообще не задавать,а попытка оценить скорость ответа сообщества вылилось в то, что я получил по носу(в виду ответного укола). Ок, флейм завершен. 21.12.2011, 10:58, "Анатолий Шарифулин" : > Николай, Вам сделали замечание по существу.Давайте не превращать рассылку в помощь одному себе и обсуждению "хода мыслей". > Иначе придётся зарплату делить между всеми, кто в рассылке вас читает и отвечает :-). > > Спасибо за понимание. > > 2011/12/21 Nikolay Mishin >> 1. попрошу не оскорблять сравнением c php3 и mason (хотя извинения и были, но это похоже, >> как в собаке Баскервилей,  доктор Джеймс Мортимер назвал мистера Шерлока Хомса вторым >>  сыщиком, но конечно первым среди практиков. что его, несомненно, задело ) > > -- > С уважением, >  Анатолий Шарифулин. > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From zzz на zzz.org.ua Thu Dec 22 06:49:05 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Thu, 22 Dec 2011 16:49:05 +0200 Subject: [Moscow.pm] nginx-perl 1.1.11.1 Message-ID: Первый релиз nginx-perl! URL http://zzzcpan.github.com/nginx-perl/ Установка CPAN % cpan Nginx::Perl Sources % wget http://zzzcpan.github.com/nginx-perl/nginx-perl-1.1.11.1.tar.gz % tar -xvzf nginx-perl-1.1.11.1.tar.gz % cd nginx-perl-1.1.11.1 % perl Makefile.PL % make % make test % make install Если собираете из исходников, то можно сразу и попробовать: ... % make % ./objs/nginx-perl -p eg/helloworld Документация здесь или на CPAN: http://zzzcpan.github.com/nginx-perl/ Примеры: https://github.com/zzzcpan/nginx-perl/tree/master/eg http://cpansearch.perl.org/src/ZZZ/Nginx-Perl-1.1.11.1/eg/ From despairr на gmail.com Mon Dec 26 02:10:13 2011 From: despairr на gmail.com (Walery Studennikov) Date: Mon, 26 Dec 2011 14:10:13 +0400 Subject: [Moscow.pm] nginx-perl 1.1.11.1 In-Reply-To: References: Message-ID: 22 декабря 2011 г. 18:49 пользователь Alexandr Gomoliako написал: > Первый релиз nginx-perl! > > URL >    http://zzzcpan.github.com/nginx-perl/ А есть какие-то данные по производительности (может уже писали, упустил)? В частности, интересно, какую задержку / overhead он даёт если его включить в качестве handler для авторизации отдачи статики или в качестве handler для какого-то хитрого кэширования? Например: отдача статики "чистая" -- X реквестов/sec в один поток, отдача статики с тривиальной реализацией авторизации через nginx/perl -- Y реквестов/sec. Чтобы понять overhead всего этого дела... -- Walery Studennikov http://www.reg.ru/ From nordicdyno на yandex.ru Mon Dec 26 06:40:07 2011 From: nordicdyno на yandex.ru (Orlovsky Alexander) Date: Mon, 26 Dec 2011 18:40:07 +0400 Subject: [Moscow.pm] =?koi8-r?b?UHZvaWNlINDPxNLV1snU2CDTINLV09PLyc0g0drZ?= =?koi8-r?b?y8/N?= Message-ID: <735171324910407@web5.yandex.ru> Ко мне на конференции #saintperl подошел Владимир Гусев из вкусно накормившей нас Пандафуд, с вопросом, не мог бы я или еще кто-либо из Perl-программистов помочь его знакомым, которые, в свою очередь, занимаются помощью детям инвалидам. Дело в том, что у них есть желание использовать pVoice (http://pvoice.org/) ? программу для разработки аудио-интерфейсов (подробности о pvoice см. на сайте), но у них проблема в том, что кнопки с русскими надписями не правильно воспроизводятся: вместо "мама" и "папа" выдается бессмысленный набор звуков. И, да, pVoice ? это программа написанная на Perl под Windows (использует MS API для синтеза речи) и распространяется она в виде готового инсталлятора. (+надо поставить зависимости, см. сайт) Я попробовал установить ее дома на XP и у меня тоже фигня, вместо правильных русских фонем, произносится какая-то белиберда. Так как, я очень-очень давно ничего не писал под Windows и с Perl-разработкой под эту платформу никогда не имел дела, то хочу обратиться к многоуважаемому коммьюнити. Нет ли тут кого-нибудь, кто мог бы помочь и имел бы на это время и желание? Было бы отлично, если кто-то более искушенный в GUI-программировании и связке Perl+Windows, смог быстрее чем я разобраться в проблеме и помочь в хорошем деле! (Я еще, конечно, попытаюсь поковырять этот pVoice. Но боюсь, если я что-то и накопаю, то совсем не скоро, из-за непривычности предметной области и отсутствия свободного времени.) P.S. Гранд респект Саше Котову за организацию #saintperl! P.P.S. Еще по #saintperl: постараюсь на днях подготовить слайды и текст моего выступления про Unicode и выложить в сеть. From dsimonov на gmail.com Mon Dec 26 06:42:58 2011 From: dsimonov на gmail.com (Dmitry Simonov) Date: Mon, 26 Dec 2011 18:42:58 +0400 Subject: [Moscow.pm] =?utf-8?b?0LfQvdCw0LrQvtC80YvQtSDQuNGJ0YPRgiDQsNC0?= =?utf-8?b?0LzQuNC90LA=?= Message-ID: Привет! Знакомые ищут админа линуксового удалённо на парт-тайм. Если есть желающие, пусть ко мне стучатся. Главное условие, - я должен знать админа лично или у нас должен быть знакомый, которого я также лично знаю. В личку, пожалуйста. Здесь не флудить. --- Dmitriy V. Simonov, Perl & Python programmer From zzz на zzz.org.ua Mon Dec 26 09:00:48 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Mon, 26 Dec 2011 19:00:48 +0200 Subject: [Moscow.pm] nginx-perl 1.1.11.1 In-Reply-To: References: Message-ID: On Mon, Dec 26, 2011 at 12:10 PM, Walery Studennikov wrote: > отдача статики "чистая" -- X реквестов/sec в один поток, > отдача статики с тривиальной реализацией авторизации через nginx/perl > -- Y реквестов/sec. ab -c1 -n10000 -k http://127.0.0.1:55555/index.html 8399.31 [#/sec] чистая 7651.96 [#/sec] с access_handler ... server { location / { perl_access test::access_handler; } } ... sub access_handler { my ($r) = @_; if ($r->args eq 'forbid') { return 403; } return NGX_OK; } From zzz на zzz.org.ua Mon Dec 26 09:10:03 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Mon, 26 Dec 2011 19:10:03 +0200 Subject: [Moscow.pm] nginx-perl 1.1.11.1 In-Reply-To: References: Message-ID: On Mon, Dec 26, 2011 at 7:00 PM, Alexandr Gomoliako wrote: > On Mon, Dec 26, 2011 at 12:10 PM, Walery Studennikov wrote: >> отдача статики "чистая" -- X реквестов/sec в один поток, >> отдача статики с тривиальной реализацией авторизации через nginx/perl >> -- Y реквестов/sec. > 8399.31 [#/sec] чистая > 7651.96 [#/sec] с access_handler Забыл написать, это на 5.12.4 i686-linux-gnu-thread-multi-64int, перл без thread будет заметно ближе к чистой. From dmitry на karasik.eu.org Mon Dec 26 13:55:14 2011 From: dmitry на karasik.eu.org (Dmitry Karasik) Date: Mon, 26 Dec 2011 22:55:14 +0100 Subject: [Moscow.pm] =?koi8-r?b?UHZvaWNlINDPxNLV1snU2CDTINLV09PLyc0g0drZ?= =?koi8-r?b?y8/N?= In-Reply-To: <735171324910407@web5.yandex.ru> References: <735171324910407@web5.yandex.ru> Message-ID: <20111226215514.GA76048@tetsuo.karasik.eu.org> Александр, давайте свяжемся, возможно я смогу чем нибудь помочь. /dk On Mon, Dec 26, 2011 at 06:40:07PM +0400, Orlovsky Alexander wrote: > Ко мне на конференции #saintperl подошел Владимир Гусев из вкусно накормившей нас Пандафуд, с вопросом, не мог бы я или еще кто-либо из Perl-программистов помочь его знакомым, которые, в свою очередь, занимаются помощью детям инвалидам. > Дело в том, что у них есть желание использовать pVoice (http://pvoice.org/) ? программу для разработки аудио-интерфейсов (подробности о pvoice см. на сайте), но у них проблема в том, что кнопки с русскими надписями не правильно воспроизводятся: вместо "мама" и "папа" выдается бессмысленный набор звуков. > И, да, pVoice ? это программа написанная на Perl под Windows (использует MS API для синтеза речи) и распространяется она в виде готового инсталлятора. (+надо поставить зависимости, см. сайт) > Я попробовал установить ее дома на XP и у меня тоже фигня, вместо правильных русских фонем, произносится какая-то белиберда. > Так как, я очень-очень давно ничего не писал под Windows и с Perl-разработкой под эту платформу никогда не имел дела, то хочу обратиться к многоуважаемому коммьюнити. Нет ли тут кого-нибудь, кто мог бы помочь и имел бы на это время и желание? Было бы отлично, если кто-то более искушенный в GUI-программировании и связке Perl+Windows, смог быстрее чем я разобраться в проблеме и помочь в хорошем деле! > > (Я еще, конечно, попытаюсь поковырять этот pVoice. Но боюсь, если я что-то и накопаю, то совсем не скоро, из-за непривычности предметной области и отсутствия свободного времени.) > > P.S. > Гранд респект Саше Котову за организацию #saintperl! > > P.P.S. > Еще по #saintperl: постараюсь на днях подготовить слайды и текст моего выступления про Unicode и выложить в сеть. > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Sincerely, Dmitry Karasik From nordicdyno на yandex.ru Tue Dec 27 01:02:54 2011 From: nordicdyno на yandex.ru (Orlovsky Alexander) Date: Tue, 27 Dec 2011 13:02:54 +0400 Subject: [Moscow.pm] =?koi8-r?b?UHZvaWNlINDPxNLV1snU2CDTINLV09PLyc0g0drZ?= =?koi8-r?b?y8/N?= In-Reply-To: <20111226215514.GA76048@tetsuo.karasik.eu.org> References: <735171324910407@web5.yandex.ru> <20111226215514.GA76048@tetsuo.karasik.eu.org> Message-ID: <178361324976574@web74.yandex.ru> 27.12.2011, 01:55, "Dmitry Karasik" : > Александр, давайте свяжемся, возможно я смогу чем нибудь помочь. > > /dk написал, проверяйте почту :) From zzz на zzz.org.ua Tue Dec 27 09:57:50 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Tue, 27 Dec 2011 19:57:50 +0200 Subject: [Moscow.pm] perlweekly Message-ID: Кто еще не подписан на perlweekly? http://perlweekly.com/ From mi на ya.ru Thu Dec 29 01:48:54 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 29 Dec 2011 13:48:54 +0400 Subject: [Moscow.pm] function ref Message-ID: <1083111325152134@web27.yandex.ru> Hi MoscowPM my $ref_sub1=sub {print 'By '. $_[0] }; sub temop_sub{ print 'Hi '. $_[0] }; my $ref_sub=\&temop_sub(); $$ref_sub; &$ref_sub; Not a CODE reference at 11_sub_ref.pl line 5. &{$ref_sub1}; почему так? почему я не могу вызывать именованную процедуру &{$ref_sub1}; ?? ведь вызывать ссылку на код с помощью & - лучше, чем с помощью $ здесь явно показывается, что вызывается процедура Спасибо. -- Nikolay Mishin From meettya на gmail.com Thu Dec 29 03:03:09 2011 From: meettya на gmail.com (Dmitry Karpich) Date: Thu, 29 Dec 2011 14:03:09 +0300 Subject: [Moscow.pm] function ref In-Reply-To: <1083111325152134@web27.yandex.ru> References: <1083111325152134@web27.yandex.ru> Message-ID: <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> Потому что my $ref_sub1=sub {print 'By '. $_[0] }; sub temop_sub{ print 'Hi '. $_[0] }; my $ref_sub=\&temop_sub; # !!!!! ссылка на sub а не ссылка на ее результат $ref_sub->(); # так - лучше всего &{$ref_sub1}; Михаил, у вас же есть подписанная Larry книга, почитайте ее :) Митяй On Dec 29, 2011, at 12:48 PM, Nikolay Mishin wrote: > Hi MoscowPM > > my $ref_sub1=sub {print 'By '. $_[0] }; > sub temop_sub{ print 'Hi '. $_[0] }; > my $ref_sub=\&temop_sub(); > $$ref_sub; > &$ref_sub; > Not a CODE reference at 11_sub_ref.pl line 5. > &{$ref_sub1}; > > почему так? > почему я не могу вызывать именованную процедуру > &{$ref_sub1}; ?? > ведь вызывать ссылку на код с помощью > & - лучше, чем с помощью $ > здесь явно показывается, что вызывается процедура > > Спасибо. > -- > Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From mi на ya.ru Thu Dec 29 02:10:33 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 29 Dec 2011 14:10:33 +0400 Subject: [Moscow.pm] function ref In-Reply-To: <1083111325152134@web27.yandex.ru> References: <1083111325152134@web27.yandex.ru> Message-ID: <321961325153433@web6.yandex.ru> просто в выражении sub create_index{ my ($fh, $idx_file)=@_; print "create index func\n"; } my $index_func_name=\&create_index(); $$index_func_name->( $fh, $idx_file ); логичнее было бы &$index_func_name->( $fh, $idx_file ); а то код не очень читаемый получается 29.12.2011, 13:48, "Nikolay Mishin" : > Hi MoscowPM > > my $ref_sub1=sub {print 'By '. $_[0] }; > sub temop_sub{ print 'Hi '. $_[0] }; > my $ref_sub=\&temop_sub(); > $$ref_sub; > &$ref_sub; > Not a CODE reference at 11_sub_ref.pl line 5. > &{$ref_sub1}; > > почему так? > почему я не могу вызывать именованную процедуру > &{$ref_sub1}; ?? > ведь вызывать ссылку на код с помощью > & - лучше, чем с помощью $ > здесь явно показывается, что вызывается процедура > > Спасибо. > -- > Nikolay Mishin -- Nikolay Mishin From mi на ya.ru Thu Dec 29 02:16:26 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 29 Dec 2011 14:16:26 +0400 Subject: [Moscow.pm] function ref In-Reply-To: <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> Message-ID: <822441325153787@web42.yandex.ru> Митяй, спасибо;)) книжку уже перечитываю 3-й раз, особенно после Рефакторинга Фаулера, у них идее пересекаются $$index_func_name->( $fh, $idx_file ); здесь у меня лишний доллар работает и так $index_func_name->( $fh, $idx_file ); но все-таки так прозрачно, как &$index_func_name->( $fh, $idx_file ); !! хотя так тоже работае, ок, тогда ответ &$index_func_name->( $fh, $idx_file ); !! ясно видно, что вызывается функция 29.12.2011, 15:03, "Dmitry Karpich" : > Потому что > > my $ref_sub1=sub {print 'By '. $_[0] }; > sub temop_sub{ print 'Hi '. $_[0] }; > my $ref_sub=\&temop_sub; # !!!!! ссылка на sub а не ссылка на ее результат > > $ref_sub->(); # так - лучше всего > > &{$ref_sub1}; > > Михаил, у вас же есть подписанная Larry книга, почитайте ее :) > > Митяй > > On Dec 29, 2011, at 12:48 PM, Nikolay Mishin wrote: > >>  Hi MoscowPM >> >>  my $ref_sub1=sub {print 'By '. $_[0] }; >>  sub temop_sub{ print 'Hi '. $_[0] }; >>  my $ref_sub=\&temop_sub(); >>  $$ref_sub; >>  &$ref_sub; >>  Not a CODE reference at 11_sub_ref.pl line 5. >>  &{$ref_sub1}; >> >>  почему так? >>  почему я не могу вызывать именованную процедуру >>  &{$ref_sub1}; ?? >>  ведь вызывать ссылку на код с помощью >>  & - лучше, чем с помощью $ >>  здесь явно показывается, что вызывается процедура >> >>  Спасибо. >>  -- >>  Nikolay Mishin >>  -- >>  Moscow.pm mailing list >>  moscow-pm на pm.org | http://moscow.pm.org > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From meettya на gmail.com Thu Dec 29 03:37:55 2011 From: meettya на gmail.com (Dmitry Karpich) Date: Thu, 29 Dec 2011 14:37:55 +0300 Subject: [Moscow.pm] function ref In-Reply-To: <822441325153787@web42.yandex.ru> References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> Message-ID: Исчо раз. sub create_index ($$){ my ($fh, $idx_file)=@_; print "create index func\n"; } my $fh = 10; my $idx_file = 20; say ' - work, but looks strange'; my $index_func_name=\&create_index; # JUST &create_index, NOT &create_index() !!!!! $index_func_name->( $fh, $idx_file); say ' - much better'; create_index $fh, $idx_file; # just func, don`t do that on class method не усложняйте себе жизнь, а? :) Митяй. On Dec 29, 2011, at 1:16 PM, Nikolay Mishin wrote: > Митяй, спасибо;)) книжку уже перечитываю 3-й раз, > особенно после Рефакторинга Фаулера, у них идее пересекаются > > $$index_func_name->( $fh, $idx_file ); > здесь у меня лишний доллар > работает и так > $index_func_name->( $fh, $idx_file ); > но все-таки так прозрачно, как > &$index_func_name->( $fh, $idx_file ); !! > > хотя так тоже работае, ок, > тогда ответ > &$index_func_name->( $fh, $idx_file ); !! > > ясно видно, что вызывается функция > > > 29.12.2011, 15:03, "Dmitry Karpich" : >> Потому что >> >> my $ref_sub1=sub {print 'By '. $_[0] }; >> sub temop_sub{ print 'Hi '. $_[0] }; >> my $ref_sub=\&temop_sub; # !!!!! ссылка на sub а не ссылка на ее результат >> >> $ref_sub->(); # так - лучше всего >> >> &{$ref_sub1}; >> >> Михаил, у вас же есть подписанная Larry книга, почитайте ее :) >> >> Митяй >> >> On Dec 29, 2011, at 12:48 PM, Nikolay Mishin wrote: >> >>> Hi MoscowPM >>> >>> my $ref_sub1=sub {print 'By '. $_[0] }; >>> sub temop_sub{ print 'Hi '. $_[0] }; >>> my $ref_sub=\&temop_sub(); >>> $$ref_sub; >>> &$ref_sub; >>> Not a CODE reference at 11_sub_ref.pl line 5. >>> &{$ref_sub1}; >>> >>> почему так? >>> почему я не могу вызывать именованную процедуру >>> &{$ref_sub1}; ?? >>> ведь вызывать ссылку на код с помощью >>> & - лучше, чем с помощью $ >>> здесь явно показывается, что вызывается процедура >>> >>> Спасибо. >>> -- >>> Nikolay Mishin >>> -- >>> Moscow.pm mailing list >>> moscow-pm на pm.org | http://moscow.pm.org >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > -- > Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From mi на ya.ru Thu Dec 29 02:48:41 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 29 Dec 2011 14:48:41 +0400 Subject: [Moscow.pm] function ref In-Reply-To: <822441325153787@web42.yandex.ru> References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> Message-ID: <554361325155721@web68.yandex.ru> да у мебя ошибочка в последнем коде так sub _create_index{ my ($fh, $idx_file)=@_; print "create index func1\n"; } my $index_func_name=\&_create_index; &$index_func_name( $fh, $idx_file ); правильно 29.12.2011, 14:16, "Nikolay Mishin" : > Митяй, спасибо;)) книжку уже перечитываю 3-й раз, > особенно после Рефакторинга Фаулера, у них идее пересекаются > > $$index_func_name->( $fh, $idx_file ); > здесь у меня лишний доллар > работает и так > $index_func_name->( $fh, $idx_file ); > но все-таки так прозрачно, как > &$index_func_name->( $fh, $idx_file ); !! > > хотя так тоже работае, ок, > тогда ответ > &$index_func_name->( $fh, $idx_file ); !! > > ясно видно, что вызывается функция > > 29.12.2011, 15:03, "Dmitry Karpich" : > >>  Потому что >> >>  my $ref_sub1=sub {print 'By '. $_[0] }; >>  sub temop_sub{ print 'Hi '. $_[0] }; >>  my $ref_sub=\&temop_sub; # !!!!! ссылка на sub а не ссылка на ее результат >> >>  $ref_sub->(); # так - лучше всего >> >>  &{$ref_sub1}; >> >>  Михаил, у вас же есть подписанная Larry книга, почитайте ее :) >> >>  Митяй >> >>  On Dec 29, 2011, at 12:48 PM, Nikolay Mishin wrote: >>>   Hi MoscowPM >>> >>>   my $ref_sub1=sub {print 'By '. $_[0] }; >>>   sub temop_sub{ print 'Hi '. $_[0] }; >>>   my $ref_sub=\&temop_sub(); >>>   $$ref_sub; >>>   &$ref_sub; >>>   Not a CODE reference at 11_sub_ref.pl line 5. >>>   &{$ref_sub1}; >>> >>>   почему так? >>>   почему я не могу вызывать именованную процедуру >>>   &{$ref_sub1}; ?? >>>   ведь вызывать ссылку на код с помощью >>>   & - лучше, чем с помощью $ >>>   здесь явно показывается, что вызывается процедура >>> >>>   Спасибо. >>>   -- >>>   Nikolay Mishin >>>   -- >>>   Moscow.pm mailing list >>>   moscow-pm на pm.org | http://moscow.pm.org >>  -- >>  Moscow.pm mailing list >>  moscow-pm на pm.org | http://moscow.pm.org > > -- > Nikolay Mishin -- Nikolay Mishin From mi на ya.ru Thu Dec 29 03:07:45 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 29 Dec 2011 15:07:45 +0400 Subject: [Moscow.pm] function ref In-Reply-To: References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> Message-ID: <215001325156866@web78.yandex.ru> То есть создавать ссылки на функции - плохая идея (у меня так и не заработала передача параметров) ну в общем понятно, объектов с пакетами должно быть достаточно для всяких хитростей и усложнения кода жаль! 29.12.2011, 15:37, "Dmitry Karpich" : > Исчо раз. > > sub create_index ($$){ >    my ($fh, $idx_file)=@_; >    print "create index func\n"; >    } > > my $fh = 10; > my $idx_file = 20; > > say ' - work, but looks strange'; > my $index_func_name=\&create_index; # JUST &create_index, NOT &create_index() !!!!! > $index_func_name->( $fh, $idx_file); > > say ' - much better'; > create_index $fh, $idx_file; # just func, don`t do that on class method > > не усложняйте себе жизнь, а? :) > > Митяй. > > On Dec 29, 2011, at 1:16 PM, Nikolay Mishin wrote: > >>  Митяй, спасибо;)) книжку уже перечитываю 3-й раз, >>  особенно после Рефакторинга Фаулера, у них идее пересекаются >> >>  $$index_func_name->( $fh, $idx_file ); >>  здесь у меня лишний доллар >>  работает и так >>  $index_func_name->( $fh, $idx_file ); >>  но все-таки так прозрачно, как >>  &$index_func_name->( $fh, $idx_file ); !! >> >>  хотя так тоже работае, ок, >>  тогда ответ >>  &$index_func_name->( $fh, $idx_file ); !! >> >>  ясно видно, что вызывается функция >> >>  29.12.2011, 15:03, "Dmitry Karpich" : >>>  Потому что >>> >>>  my $ref_sub1=sub {print 'By '. $_[0] }; >>>  sub temop_sub{ print 'Hi '. $_[0] }; >>>  my $ref_sub=\&temop_sub; # !!!!! ссылка на sub а не ссылка на ее результат >>> >>>  $ref_sub->(); # так - лучше всего >>> >>>  &{$ref_sub1}; >>> >>>  Михаил, у вас же есть подписанная Larry книга, почитайте ее :) >>> >>>  Митяй >>> >>>  On Dec 29, 2011, at 12:48 PM, Nikolay Mishin wrote: >>>>   Hi MoscowPM >>>> >>>>   my $ref_sub1=sub {print 'By '. $_[0] }; >>>>   sub temop_sub{ print 'Hi '. $_[0] }; >>>>   my $ref_sub=\&temop_sub(); >>>>   $$ref_sub; >>>>   &$ref_sub; >>>>   Not a CODE reference at 11_sub_ref.pl line 5. >>>>   &{$ref_sub1}; >>>> >>>>   почему так? >>>>   почему я не могу вызывать именованную процедуру >>>>   &{$ref_sub1}; ?? >>>>   ведь вызывать ссылку на код с помощью >>>>   & - лучше, чем с помощью $ >>>>   здесь явно показывается, что вызывается процедура >>>> >>>>   Спасибо. >>>>   -- >>>>   Nikolay Mishin >>>>   -- >>>>   Moscow.pm mailing list >>>>   moscow-pm на pm.org | http://moscow.pm.org >>>  -- >>>  Moscow.pm mailing list >>>  moscow-pm на pm.org | http://moscow.pm.org >>  -- >>  Nikolay Mishin >>  -- >>  Moscow.pm mailing list >>  moscow-pm на pm.org | http://moscow.pm.org > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From proler на gmail.com Thu Dec 29 03:16:54 2011 From: proler на gmail.com (oleg alexeenkov) Date: Thu, 29 Dec 2011 15:16:54 +0400 Subject: [Moscow.pm] function ref In-Reply-To: <215001325156866@web78.yandex.ru> References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> Message-ID: Nikolay Mishin писал(а) в своём письме Thu, 29 Dec 2011 15:07:45 +0400: > То есть создавать ссылки на функции - плохая идея > (у меня так и не заработала передача параметров) > ну в общем понятно, > объектов с пакетами должно быть достаточно > для всяких хитростей и усложнения кода > > жаль! Спасибо за настроение. > > 29.12.2011, 15:37, "Dmitry Karpich" : >> Исчо раз. >> >> sub create_index ($$){ >> my ($fh, $idx_file)=@_; >> print "create index func\n"; >> } >> >> my $fh = 10; >> my $idx_file = 20; >> >> say ' - work, but looks strange'; >> my $index_func_name=\&create_index; # JUST &create_index, NOT >> &create_index() !!!!! >> $index_func_name->( $fh, $idx_file); >> >> say ' - much better'; >> create_index $fh, $idx_file; # just func, don`t do that on class method >> >> не усложняйте себе жизнь, а? :) >> >> Митяй. >> >> On Dec 29, 2011, at 1:16 PM, Nikolay Mishin wrote: >> >>> Митяй, спасибо;)) книжку уже перечитываю 3-й раз, >>> особенно после Рефакторинга Фаулера, у них идее пересекаются >>> >>> $$index_func_name->( $fh, $idx_file ); >>> здесь у меня лишний доллар >>> работает и так >>> $index_func_name->( $fh, $idx_file ); >>> но все-таки так прозрачно, как >>> &$index_func_name->( $fh, $idx_file ); !! >>> >>> хотя так тоже работае, ок, >>> тогда ответ >>> &$index_func_name->( $fh, $idx_file ); !! >>> >>> ясно видно, что вызывается функция >>> >>> 29.12.2011, 15:03, "Dmitry Karpich" : >>>> Потому что >>>> >>>> my $ref_sub1=sub {print 'By '. $_[0] }; >>>> sub temop_sub{ print 'Hi '. $_[0] }; >>>> my $ref_sub=\&temop_sub; # !!!!! ссылка на sub а не ссылка на ее >>>> результат >>>> >>>> $ref_sub->(); # так - лучше всего >>>> >>>> &{$ref_sub1}; >>>> >>>> Михаил, у вас же есть подписанная Larry книга, почитайте ее :) >>>> >>>> Митяй >>>> >>>> On Dec 29, 2011, at 12:48 PM, Nikolay Mishin wrote: >>>>> Hi MoscowPM >>>>> >>>>> my $ref_sub1=sub {print 'By '. $_[0] }; >>>>> sub temop_sub{ print 'Hi '. $_[0] }; >>>>> my $ref_sub=\&temop_sub(); >>>>> $$ref_sub; >>>>> &$ref_sub; >>>>> Not a CODE reference at 11_sub_ref.pl line 5. >>>>> &{$ref_sub1}; >>>>> >>>>> почему так? >>>>> почему я не могу вызывать именованную процедуру >>>>> &{$ref_sub1}; ?? >>>>> ведь вызывать ссылку на код с помощью >>>>> & - лучше, чем с помощью $ >>>>> здесь явно показывается, что вызывается процедура >>>>> >>>>> Спасибо. >>>>> -- >>>>> Nikolay Mishin >>>>> -- >>>>> Moscow.pm mailing list >>>>> moscow-pm на pm.org | http://moscow.pm.org >>>> -- >>>> Moscow.pm mailing list >>>> moscow-pm на pm.org | http://moscow.pm.org >>> -- >>> Nikolay Mishin >>> -- >>> Moscow.pm mailing list >>> moscow-pm на pm.org | http://moscow.pm.org >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > -- > Nikolay Mishin From mi на ya.ru Thu Dec 29 03:22:30 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 29 Dec 2011 15:22:30 +0400 Subject: [Moscow.pm] function ref In-Reply-To: References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> Message-ID: <517731325157750@web111.yandex.ru> Нет, настроение у меня хорошее, всех с наступающим! 29.12.2011, 15:17, "oleg alexeenkov" : > Nikolay Mishin писал(а) в своём письме Thu, 29 Dec 2011 > 15:07:45 +0400: > >>  То есть создавать ссылки на функции - плохая идея >>  (у меня так и не заработала передача параметров) >>  ну в общем понятно, >>  объектов с пакетами должно быть достаточно >>  для всяких хитростей и усложнения кода >> >>  жаль! > > Спасибо за настроение. > >>  29.12.2011, 15:37, "Dmitry Karpich" : >>>  Исчо раз. >>> >>>  sub create_index ($$){ >>>     my ($fh, $idx_file)=@_; >>>     print "create index func\n"; >>>     } >>> >>>  my $fh = 10; >>>  my $idx_file = 20; >>> >>>  say ' - work, but looks strange'; >>>  my $index_func_name=\&create_index; # JUST &create_index, NOT >>>  &create_index() !!!!! >>>  $index_func_name->( $fh, $idx_file); >>> >>>  say ' - much better'; >>>  create_index $fh, $idx_file; # just func, don`t do that on class method >>> >>>  не усложняйте себе жизнь, а? :) >>> >>>  Митяй. >>> >>>  On Dec 29, 2011, at 1:16 PM, Nikolay Mishin wrote: >>>>   Митяй, спасибо;)) книжку уже перечитываю 3-й раз, >>>>   особенно после Рефакторинга Фаулера, у них идее пересекаются >>>> >>>>   $$index_func_name->( $fh, $idx_file ); >>>>   здесь у меня лишний доллар >>>>   работает и так >>>>   $index_func_name->( $fh, $idx_file ); >>>>   но все-таки так прозрачно, как >>>>   &$index_func_name->( $fh, $idx_file ); !! >>>> >>>>   хотя так тоже работае, ок, >>>>   тогда ответ >>>>   &$index_func_name->( $fh, $idx_file ); !! >>>> >>>>   ясно видно, что вызывается функция >>>> >>>>   29.12.2011, 15:03, "Dmitry Karpich" : >>>>>   Потому что >>>>> >>>>>   my $ref_sub1=sub {print 'By '. $_[0] }; >>>>>   sub temop_sub{ print 'Hi '. $_[0] }; >>>>>   my $ref_sub=\&temop_sub; # !!!!! ссылка на sub а не ссылка на ее >>>>>  результат >>>>> >>>>>   $ref_sub->(); # так - лучше всего >>>>> >>>>>   &{$ref_sub1}; >>>>> >>>>>   Михаил, у вас же есть подписанная Larry книга, почитайте ее :) >>>>> >>>>>   Митяй >>>>> >>>>>   On Dec 29, 2011, at 12:48 PM, Nikolay Mishin wrote: >>>>>>    Hi MoscowPM >>>>>> >>>>>>    my $ref_sub1=sub {print 'By '. $_[0] }; >>>>>>    sub temop_sub{ print 'Hi '. $_[0] }; >>>>>>    my $ref_sub=\&temop_sub(); >>>>>>    $$ref_sub; >>>>>>    &$ref_sub; >>>>>>    Not a CODE reference at 11_sub_ref.pl line 5. >>>>>>    &{$ref_sub1}; >>>>>> >>>>>>    почему так? >>>>>>    почему я не могу вызывать именованную процедуру >>>>>>    &{$ref_sub1}; ?? >>>>>>    ведь вызывать ссылку на код с помощью >>>>>>    & - лучше, чем с помощью $ >>>>>>    здесь явно показывается, что вызывается процедура >>>>>> >>>>>>    Спасибо. >>>>>>    -- >>>>>>    Nikolay Mishin >>>>>>    -- >>>>>>    Moscow.pm mailing list >>>>>>    moscow-pm на pm.org | http://moscow.pm.org >>>>>   -- >>>>>   Moscow.pm mailing list >>>>>   moscow-pm на pm.org | http://moscow.pm.org >>>>   -- >>>>   Nikolay Mishin >>>>   -- >>>>   Moscow.pm mailing list >>>>   moscow-pm на pm.org | http://moscow.pm.org >>>  -- >>>  Moscow.pm mailing list >>>  moscow-pm на pm.org | http://moscow.pm.org >>  -- >>  Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From meettya на gmail.com Thu Dec 29 04:22:22 2011 From: meettya на gmail.com (Dmitry Karpich) Date: Thu, 29 Dec 2011 15:22:22 +0300 Subject: [Moscow.pm] function ref In-Reply-To: <215001325156866@web78.yandex.ru> References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> Message-ID: Михаил, почитайте http://dklab.ru/chicken/nablas/20.html http://dklab.ru/chicken/nablas/21.html http://dklab.ru/chicken/nablas/22.html особенно последнюю, но обязательно с первой. On Dec 29, 2011, at 2:07 PM, Nikolay Mishin wrote: > То есть создавать ссылки на функции - плохая идея > (у меня так и не заработала передача параметров) > ну в общем понятно, > объектов с пакетами должно быть достаточно > для всяких хитростей и усложнения кода > > жаль! ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From mi на ya.ru Thu Dec 29 05:27:51 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 29 Dec 2011 17:27:51 +0400 Subject: [Moscow.pm] function ref In-Reply-To: References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> Message-ID: <674581325165271@web73.yandex.ru> Митяй, еще раз, привет, так, меня Николай зовут, но это Бог с ним, классные наблы прочитал, получается так: sub create_index ($$){ my ($fh, $idx_file)=@_; print "create index func ZZ $fh, $idx_file\n"; } $v='create_index'; &{$v}(10); и ссылка не нужна, просто как параметр передаем имя функции! Спасибо &{'Dmitry_Karpich'}('пирожок'); use 5.010; use Smart::Comments; my @nab=(1..23); $ref_nably_of=\@nab; for my $part (20..22){ push @{$ref_wizdom},$ref_nably_of->[$part]; } ### $ref_wizdom 29.12.2011, 16:22, "Dmitry Karpich" : > Михаил, почитайте > > http://dklab.ru/chicken/nablas/20.html > http://dklab.ru/chicken/nablas/21.html > http://dklab.ru/chicken/nablas/22.html > > особенно последнюю, но обязательно с первой. > > On Dec 29, 2011, at 2:07 PM, Nikolay Mishin wrote: > >> То есть создавать ссылки на функции - плохая идея >> (у меня так и не заработала передача параметров) >> ну в общем понятно, >> объектов с пакетами должно быть достаточно >> для всяких хитростей и усложнения кода >> >> жаль! > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From mi на ya.ru Thu Dec 29 05:48:08 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 29 Dec 2011 17:48:08 +0400 Subject: [Moscow.pm] function ref In-Reply-To: <674581325165271@web73.yandex.ru> References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> <674581325165271@web73.yandex.ru> Message-ID: <36291325166488@web53.yandex.ru> вот так, видимо, еще симатичнее use strict; use 5.010; sub create_index ($$){ my ($fh, $idx_file)=@_; say "create index func ZZ $fh, $idx_file\n"; } my $name = 'create_index'; my $subref = \&$name; &$subref('dynamic','invoke'); хотя и ,возможно, все это от лукавого и закладывает мину в программу, т.к. симв ссылки могут привести к непредсказуемым результатам, если в имени будет зарезервированное слово, будем об этом помнить 29.12.2011, 17:27, "Nikolay Mishin" : > Митяй, еще раз, привет, > так, меня Николай зовут, но это Бог с ним, > > классные наблы прочитал, > получается так: > sub create_index ($$){ >    my ($fh, $idx_file)=@_; >    print "create index func ZZ $fh, $idx_file\n"; >    } > $v='create_index'; > &{$v}(10); > и ссылка не нужна, просто как параметр передаем имя функции! > Спасибо > &{'Dmitry_Karpich'}('пирожок'); > > use 5.010; > use Smart::Comments; > my @nab=(1..23); > $ref_nably_of=\@nab; > for my $part (20..22){ > push @{$ref_wizdom},$ref_nably_of->[$part]; > } > ### $ref_wizdom > > 29.12.2011, 16:22, "Dmitry Karpich" : > >>  Михаил, почитайте >> >>  http://dklab.ru/chicken/nablas/20.html >>  http://dklab.ru/chicken/nablas/21.html >>  http://dklab.ru/chicken/nablas/22.html >> >>  особенно последнюю, но обязательно с первой. >> >>  On Dec 29, 2011, at 2:07 PM, Nikolay Mishin wrote: >>>  То есть создавать ссылки на функции - плохая идея >>>  (у меня так и не заработала передача параметров) >>>  ну в общем понятно, >>>  объектов с пакетами должно быть достаточно >>>  для всяких хитростей и усложнения кода >>> >>>  жаль! >>  -- >>  Moscow.pm mailing list >>  moscow-pm на pm.org | http://moscow.pm.org > > -- > Nikolay Mishin > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From meettya на gmail.com Thu Dec 29 06:49:11 2011 From: meettya на gmail.com (Dmitry Karpich) Date: Thu, 29 Dec 2011 17:49:11 +0300 Subject: [Moscow.pm] function ref In-Reply-To: <674581325165271@web73.yandex.ru> References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> <674581325165271@web73.yandex.ru> Message-ID: <1AD00BC8-82BF-4B84-8798-76E0517EB5ED@gmail.com> А, ацкая копипаста, да, Николай. неееееТТТТТТТ.. не получается, это плохая практика. оно будет работать только так sub create_index{ my ($fh, $idx_file)=@_; print "create index func ZZ $fh, $idx_file\n"; } my $v='create_index'; no strict 'refs'; # or nothing worked, but when you do it some kittens die &{$v}('foo','bar'); но, госспидя, не делайте так, примерно никогда или чуть реже. Короче, глобальная мысль, думать все каникулы до просветления - "Функция определяет форму". как бы прежде чем что-то сделать нужно честно ответить на вопрос "ЗАЧЕМ?". Ответ на этот вопрос в 95% случаев упрощает "КАК". Вот скажите мне честно, нафига вам резолвить литерал? Что ценного в этом изврате? Митяй PS. просьба - примеры должны быть copy-past worked - вставил и запустил (ну положим что хештег у каждого свой). Ваши таким свойством не обладают. Обычно. On Dec 29, 2011, at 4:27 PM, Nikolay Mishin wrote: > Митяй, еще раз, привет, > так, меня Николай зовут, но это Бог с ним, > > классные наблы прочитал, > получается так: > sub create_index ($$){ > my ($fh, $idx_file)=@_; > print "create index func ZZ $fh, $idx_file\n"; > } > $v='create_index'; > &{$v}(10); > и ссылка не нужна, просто как параметр передаем имя функции! ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From despairr на gmail.com Thu Dec 29 06:05:45 2011 From: despairr на gmail.com (Walery Studennikov) Date: Thu, 29 Dec 2011 18:05:45 +0400 Subject: [Moscow.pm] =?koi8-r?b?7s/Xz8fPxM7JyiBwZXJsLWFzY2lpYXJ0IDsp?= Message-ID: Hi. http://habrahabr.ru/company/regru/blog/135476/ ;) Ещё на ту же тему: http://habrahabr.ru/company/regru/blog/128334/ -- Walery Studennikov http://www.reg.ru/ From mi на ya.ru Thu Dec 29 06:30:51 2011 From: mi на ya.ru (Nikolay Mishin) Date: Thu, 29 Dec 2011 18:30:51 +0400 Subject: [Moscow.pm] function ref In-Reply-To: <1AD00BC8-82BF-4B84-8798-76E0517EB5ED@gmail.com> References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> <674581325165271@web73.yandex.ru> <1AD00BC8-82BF-4B84-8798-76E0517EB5ED@gmail.com> Message-ID: <900731325169051@web88.yandex.ru> Митяй, наверное, мне нужно поменять/упростить архитектуру скрипта, а нужно вот для чего у меня есть несколько функций и я хочу сравнить их производительность, и, чтобы не параметризировать функцию и не писать if ($f=1){ index1; }elsif($f=2){ index1; } #я, используя имя функции, как передаваемый параметр, пишу my $index_func='generate_index'; my $ref_index_func = \&$index_func; my $index_func2='generate_index2'; my $ref_index_func2 = \&$index_func2; use Benchmark; # time 3 different versions of the same code timethese (1000, { $index_func => _create_index($filename,$ref_index_func), $index_func2 => _create_index($filename,$ref_index_func2), }); потом я уберу эти ссылки, просто для того чтобы мнеьше переписывать удобнее было передавать имя функции как параметр, в конечном варианте останется 1 функция (наиб быстрая) 29.12.2011, 18:49, "Dmitry Karpich" : > А, ацкая копипаста, да, Николай. > > неееееТТТТТТТ.. > не получается, это плохая практика. > > оно будет работать только так > >> sub create_index{ >> >>   my ($fh, $idx_file)=@_; >> >>   print "create index func ZZ $fh, $idx_file\n"; >> >>   } >> >> my $v='create_index'; >> >> no strict 'refs'; # or nothing worked, but when you do it some kittens die >> >> &{$v}('foo','bar'); > > но, госспидя, не делайте так, примерно никогда или чуть реже. > > Короче, глобальная мысль, думать все каникулы до просветления - > >> "Функция определяет форму". > > как бы прежде чем что-то сделать нужно честно ответить на вопрос "ЗАЧЕМ?". Ответ на этот вопрос в 95% случаев упрощает "КАК". > > Вот скажите мне честно, нафига вам резолвить литерал? Что ценного в этом изврате? > > Митяй > > PS. просьба - примеры должны быть copy-past worked - вставил и запустил (ну положим что хештег у каждого свой). Ваши таким свойством не обладают. Обычно. > > On Dec 29, 2011, at 4:27 PM, Nikolay Mishin wrote: > >> Митяй, еще раз, привет, >> так, меня Николай зовут, но это Бог с ним, >> >> классные наблы прочитал, >> получается так: >> sub create_index ($$){ >>   my ($fh, $idx_file)=@_; >>   print "create index func ZZ $fh, $idx_file\n"; >>   } >> $v='create_index'; >> &{$v}(10); >> и ссылка не нужна, просто как параметр передаем имя функции! > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From evdokimov.denis на gmail.com Thu Dec 29 06:57:05 2011 From: evdokimov.denis на gmail.com (Denis Evdokimov) Date: Thu, 29 Dec 2011 17:57:05 +0300 Subject: [Moscow.pm] function ref In-Reply-To: <900731325169051@web88.yandex.ru> References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> <674581325165271@web73.yandex.ru> <1AD00BC8-82BF-4B84-8798-76E0517EB5ED@gmail.com> <900731325169051@web88.yandex.ru> Message-ID: Не лучше ли использовать что-то вроде my %index_sub = ( generate_index => \&generate_index, generate_index2 => \&generate_index2, ); 29 декабря 2011 г. 18:30 пользователь Nikolay Mishin написал: > Митяй, > > наверное, мне нужно поменять/упростить > архитектуру скрипта, а нужно вот для чего > > у меня есть несколько функций и я хочу сравнить их производительность, > и, чтобы не параметризировать функцию и не писать > if ($f=1){ > index1; > }elsif($f=2){ > index1; > } > #я, используя имя функции, как передаваемый параметр, пишу > my $index_func='generate_index'; > my $ref_index_func = \&$index_func; > my $index_func2='generate_index2'; > my $ref_index_func2 = \&$index_func2; > use Benchmark; > > # time 3 different versions of the same code > timethese (1000, { > $index_func => _create_index($filename,$ref_index_func), > $index_func2 => _create_index($filename,$ref_index_func2), > }); > > потом я уберу эти ссылки, просто для того чтобы мнеьше переписывать удобнее > было передавать имя функции как параметр, > в конечном варианте останется 1 функция (наиб быстрая) > > 29.12.2011, 18:49, "Dmitry Karpich" : > > А, ацкая копипаста, да, Николай. > > > > неееееТТТТТТТ.. > > не получается, это плохая практика. > > > > оно будет работать только так > > > >> sub create_index{ > >> > >> my ($fh, $idx_file)=@_; > >> > >> print "create index func ZZ $fh, $idx_file\n"; > >> > >> } > >> > >> my $v='create_index'; > >> > >> no strict 'refs'; # or nothing worked, but when you do it some kittens > die > >> > >> &{$v}('foo','bar'); > > > > но, госспидя, не делайте так, примерно никогда или чуть реже. > > > > Короче, глобальная мысль, думать все каникулы до просветления - > > > >> "Функция определяет форму". > > > > как бы прежде чем что-то сделать нужно честно ответить на вопрос > "ЗАЧЕМ?". Ответ на этот вопрос в 95% случаев упрощает "КАК". > > > > Вот скажите мне честно, нафига вам резолвить литерал? Что ценного в этом > изврате? > > > > Митяй > > > > PS. просьба - примеры должны быть copy-past worked - вставил и запустил > (ну положим что хештег у каждого свой). Ваши таким свойством не обладают. > Обычно. > > > > On Dec 29, 2011, at 4:27 PM, Nikolay Mishin wrote: > > > >> Митяй, еще раз, привет, > >> так, меня Николай зовут, но это Бог с ним, > >> > >> классные наблы прочитал, > >> получается так: > >> sub create_index ($$){ > >> my ($fh, $idx_file)=@_; > >> print "create index func ZZ $fh, $idx_file\n"; > >> } > >> $v='create_index'; > >> &{$v}(10); > >> и ссылка не нужна, просто как параметр передаем имя функции! > > > > -- > > Moscow.pm mailing list > > moscow-pm на pm.org | http://moscow.pm.org > > -- > Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From ksurent на gmail.com Thu Dec 29 07:08:34 2011 From: ksurent на gmail.com (Alexey Surikov) Date: Thu, 29 Dec 2011 15:08:34 +0000 (UTC) Subject: [Moscow.pm] function ref References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> <674581325165271@web73.yandex.ru> <1AD00BC8-82BF-4B84-8798-76E0517EB5ED@gmail.com> <900731325169051@web88.yandex.ru> Message-ID: Nikolay Mishin writes: > > Митяй, > > наверное, мне нужно поменять/упростить > архитектуру скрипта Гуглить dispatch tables до просветления. Примеры есть в (теперь уже бесплатной) книге Higher Order Perl от MJD. From akzhan.abdulin на gmail.com Thu Dec 29 10:03:57 2011 From: akzhan.abdulin на gmail.com (Akzhan Abdulin) Date: Thu, 29 Dec 2011 22:03:57 +0400 Subject: [Moscow.pm] function ref In-Reply-To: References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> <674581325165271@web73.yandex.ru> <1AD00BC8-82BF-4B84-8798-76E0517EB5ED@gmail.com> <900731325169051@web88.yandex.ru> Message-ID: мда 29 декабря 2011 г. 19:08 пользователь Alexey Surikov написал: > Nikolay Mishin writes: > > > > > Митяй, > > > > наверное, мне нужно поменять/упростить > > архитектуру скрипта > > > Гуглить dispatch tables до просветления. > Примеры есть в (теперь уже бесплатной) книге Higher Order Perl от MJD. > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From mi на ya.ru Fri Dec 30 06:00:02 2011 From: mi на ya.ru (Nikolay Mishin) Date: Fri, 30 Dec 2011 18:00:02 +0400 Subject: [Moscow.pm] function ref In-Reply-To: References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> <674581325165271@web73.yandex.ru> <1AD00BC8-82BF-4B84-8798-76E0517EB5ED@gmail.com> <900731325169051@web88.yandex.ru> Message-ID: <334391325253602@web156.yandex.ru> Спасибо огромное за Higher Order Perl , я тоже думал о $dispatch_table , но мне почему-то казалось, что она мне не подойдет, в итоге отказался и от нее, вот готовый тест, который получился (можно запускать с листа): https://gist.github.com/1539975 29.12.2011, 19:08, "Alexey Surikov" : > Nikolay Mishin writes: > >>  Митяй, >> >>  наверное, мне нужно поменять/упростить >>  архитектуру скрипта > > Гуглить dispatch tables до просветления. > Примеры есть в (теперь уже бесплатной) книге Higher Order Perl от MJD. > > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin From meettya на gmail.com Fri Dec 30 08:10:19 2011 From: meettya на gmail.com (Dmitry Karpich) Date: Fri, 30 Dec 2011 19:10:19 +0300 Subject: [Moscow.pm] function ref In-Reply-To: <334391325253602@web156.yandex.ru> References: <1083111325152134@web27.yandex.ru> <41BA30BA-29FD-45D2-BE00-DE6F1334D3C3@gmail.com> <822441325153787@web42.yandex.ru> <215001325156866@web78.yandex.ru> <674581325165271@web73.yandex.ru> <1AD00BC8-82BF-4B84-8798-76E0517EB5ED@gmail.com> <900731325169051@web88.yandex.ru> <334391325253602@web156.yandex.ru> Message-ID: Ну вот, уже лучше. Теперь я Вам обещаю, что Вы получите ливелап если САМИ поймете, почему написанное вами не подходит для задачи "у меня есть несколько функций и я хочу сравнить их производительность". Ну и прирожок, когда пофиксите, это будет черезвычайно просто. Митяй. PS. Вы были удивительно близко от правильного решения, но что заставило Вас свернуть - ума не приложу. On Dec 30, 2011, at 5:00 PM, Nikolay Mishin wrote: > Спасибо огромное за Higher Order Perl , > я тоже думал о $dispatch_table , но мне почему-то казалось, что она мне не подойдет, > в итоге отказался и от нее, вот готовый тест, который получился (можно запускать с листа): > > https://gist.github.com/1539975 > > 29.12.2011, 19:08, "Alexey Surikov" : >> Nikolay Mishin writes: >> >>> Митяй, >>> >>> наверное, мне нужно поменять/упростить >>> архитектуру скрипта >> >> Гуглить dispatch tables до просветления. >> Примеры есть в (теперь уже бесплатной) книге Higher Order Perl от MJD. >> >> -- >> Moscow.pm mailing list >> moscow-pm на pm.org | http://moscow.pm.org > > -- > Nikolay Mishin > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org From zzz на zzz.org.ua Fri Dec 30 13:57:50 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Fri, 30 Dec 2011 23:57:50 +0200 Subject: [Moscow.pm] [nodejs] Re: HOLY CRAP. nearly all nodejs http servers are vulnerable to DoS and apparently, the V8 guys seem to not care much In-Reply-To: <5a46fe03-c0c9-4555-9759-a6330554aa1a@d6g2000pra.googlegroups.com> References: <5a46fe03-c0c9-4555-9759-a6330554aa1a@d6g2000pra.googlegroups.com> Message-ID: > On Dec 28, 4:47 pm, Jann Horn wrote: >> Basically, because v8 uses weak hashes for objects, you can fill up >> one slot of the hashtable with many entries, e.g. using a POST >> containing a querystring with many keys with the same hash. Operating >> on those keys (inserting and reading) then becomes slow as hell which >> allows you to bring a nodejs server to 100% CPU usage for a long time >> (blocking the event loop completely) with one moderately large POST >> request. This is bad. >> Those guys say they told Google October 18th, they got through to the >> v8 guys in November, and they said they don't care sooo much about DoS >> attacks on v8 because they're mainly interested in browserside stuff. Гугл не захотел фиксить хэши в v8, им все равно, как он в ноде работает. Очередная причина избегать джаваскрипт за пределами браузера :) From evdokimov.denis на gmail.com Fri Dec 30 14:39:01 2011 From: evdokimov.denis на gmail.com (Denis Evdokimov) Date: Sat, 31 Dec 2011 01:39:01 +0300 Subject: [Moscow.pm] [nodejs] Re: HOLY CRAP. nearly all nodejs http servers are vulnerable to DoS and apparently, the V8 guys seem to not care much In-Reply-To: References: <5a46fe03-c0c9-4555-9759-a6330554aa1a@d6g2000pra.googlegroups.com> Message-ID: А что тут странного? Они пишут движок для скриптов внутри браузера, зачем им решать проблемы чужого проекта? 31.12.2011 1:58 пользователь "Alexandr Gomoliako" написал: > > On Dec 28, 4:47 pm, Jann Horn wrote: > > >> Basically, because v8 uses weak hashes for objects, you can fill up > >> one slot of the hashtable with many entries, e.g. using a POST > >> containing a querystring with many keys with the same hash. Operating > >> on those keys (inserting and reading) then becomes slow as hell which > >> allows you to bring a nodejs server to 100% CPU usage for a long time > >> (blocking the event loop completely) with one moderately large POST > >> request. This is bad. > > >> Those guys say they told Google October 18th, they got through to the > >> v8 guys in November, and they said they don't care sooo much about DoS > >> attacks on v8 because they're mainly interested in browserside stuff. > > Гугл не захотел фиксить хэши в v8, им все равно, как он в ноде > работает. Очередная причина избегать джаваскрипт за пределами > браузера :) > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org > ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: From zzz на zzz.org.ua Fri Dec 30 14:47:56 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Sat, 31 Dec 2011 00:47:56 +0200 Subject: [Moscow.pm] [nodejs] Re: HOLY CRAP. nearly all nodejs http servers are vulnerable to DoS and apparently, the V8 guys seem to not care much In-Reply-To: References: <5a46fe03-c0c9-4555-9759-a6330554aa1a@d6g2000pra.googlegroups.com> Message-ID: On Sat, Dec 31, 2011 at 12:39 AM, Denis Evdokimov wrote: > А что тут странного? Они пишут движок для скриптов внутри браузера, зачем им > решать проблемы чужого проекта? Главное об этом не забывать :) https://twitter.com/#!/DEVOPS_BORAT/status/141013381711790080 From postmaster на softsearch.ru Sat Dec 31 10:08:49 2011 From: postmaster на softsearch.ru (=?koi8-r?B?7cnIwcnMIO3PzsHbo9c=?=) Date: Sat, 31 Dec 2011 22:08:49 +0400 Subject: [Moscow.pm] =?koi8-r?b?7MDCzMAg0MXSzA==?= Message-ID: <614432742.20111231220849@softsearch.ru> Здравствуйте. http://www.opennet.ru/opennews/art.shtml?num=32698 -- С уважением, Михаил mailto:postmaster на softsearch.ru From zzz на zzz.org.ua Sat Dec 31 10:16:40 2011 From: zzz на zzz.org.ua (Alexandr Gomoliako) Date: Sat, 31 Dec 2011 20:16:40 +0200 Subject: [Moscow.pm] =?koi8-r?b?7MDCzMAg0MXSzA==?= In-Reply-To: <614432742.20111231220849@softsearch.ru> References: <614432742.20111231220849@softsearch.ru> Message-ID: On Sat, Dec 31, 2011 at 8:08 PM, Михаил Монашёв wrote: > http://www.opennet.ru/opennews/art.shtml?num=32698 Ну да, как раз писал, что v8 это фиксить не захотели. From dmitry на eremeev.ru Sat Dec 31 10:17:43 2011 From: dmitry на eremeev.ru (Dmitry Eremeev) Date: Sat, 31 Dec 2011 22:17:43 +0400 Subject: [Moscow.pm] =?koi8-r?b?7MDCzMAg0MXSzA==?= In-Reply-To: References: <614432742.20111231220849@softsearch.ru> Message-ID: <4EFF51C7.7060701@eremeev.ru> давайте ужэ накатим ) On 31.12.11 22:16, Alexandr Gomoliako wrote: > On Sat, Dec 31, 2011 at 8:08 PM, Михаил Монашёв > wrote: >> http://www.opennet.ru/opennews/art.shtml?num=32698 > Ну да, как раз писал, что v8 это фиксить не захотели. From tarkhil на over.ru Sat Dec 31 12:50:39 2011 From: tarkhil на over.ru (Alex Povolotsky) Date: Sun, 01 Jan 2012 00:50:39 +0400 Subject: [Moscow.pm] =?koi8-r?b?7MDCzMAg0MXSzA==?= In-Reply-To: <614432742.20111231220849@softsearch.ru> References: <614432742.20111231220849@softsearch.ru> Message-ID: <4EFF759F.1090603@over.ru> On 12/31/11 22:08, Михаил Монашёв wrote: > Здравствуйте. > > http://www.opennet.ru/opennews/art.shtml?num=32698 > Устаревший язык программирования, да. Alex From mi на ya.ru Sat Dec 31 13:30:45 2011 From: mi на ya.ru (Nikolay Mishin) Date: Sun, 01 Jan 2012 01:30:45 +0400 Subject: [Moscow.pm] =?koi8-r?b?7MDCzMAg0MXSzA==?= In-Reply-To: <4EFF51C7.7060701@eremeev.ru> References: <614432742.20111231220849@softsearch.ru> <4EFF51C7.7060701@eremeev.ru> Message-ID: <921421325367046@web19.yandex.ru> поддерживаю, всех с Новым 2012 годом!!!! 31.12.2011, 22:17, "Dmitry Eremeev" : > давайте ужэ накатим ) > > On 31.12.11 22:16, Alexandr Gomoliako wrote: > >>  On Sat, Dec 31, 2011 at 8:08 PM, Михаил Монашёв >>    wrote: >>>  http://www.opennet.ru/opennews/art.shtml?num=32698 >>  Ну да, как раз писал, что v8 это фиксить не захотели. > -- > Moscow.pm mailing list > moscow-pm на pm.org | http://moscow.pm.org -- Nikolay Mishin