Perl Developer's Journal
[Most Recent Entries]
[Calendar View]
[Friends]
Below are the 20 most recent journal entries recorded in
Perl Developer's LiveJournal:
[ << Previous 20 ]
| Sunday, May 20th, 2012 | 4:45 pm
[edik_m]
 |
Вопрос про хэши
Есть некий скрипт на Перле,работающий под cygwin,который сохраняет информацию в хэше. Размер хэша доходит до нескольких миллионов ключей и скрипт вылетает из-за нехватки памяти. Путем нудных исследований мы пришли к выводу,что каждая запись в хэше занимает почти 100 bytes. Ключи в хэше - целые числа от 1 до 2**28 очень много,а value - целые числа от 0 до 2**10 То есть,если б можно было сказать хэшу - используй для ключа и value по 4 байта,то расход памяти уменьшился бы в несколько раз,да еще и умноженное на 2,т.к. хэш имеет своего брата :) Вопрос, а можно ли такое сотворить на перле? В гугле не забанен,но ничего толкового не нашел | | Friday, April 27th, 2012 | 6:21 pm
[slonik_v_domene]
 |
PerlXS XML RPC Client
XML RPC клиент на XS/CПользуйтесь на здоровье. Завтра будет на CPAN. Для установки нужны: libcurl и libexpat. Заранее отвечаю на вопрос «Зачем это нужно». Затем, что цпановские модули либо безбожно глючат, либо жрут память и тормозят. Это - бета, у нас с ней проблем нет, но багрепорты всецело приветствуются. | | Monday, April 23rd, 2012 | 3:59 pm
[j_sheridan]
 |
Хочется странного, вывод в консоль
Уважаемые, хочется в консоли построить динамическое дерево, с возможностью достраивать ветки и динамически менять текст в ветках. Например как в htop Это я хочу для реалтайм просмотра кто из юзеров в где по интернетам ходит, парся лог squid. Просто выводить сие с подсветкой и подстановкой имени юзера я уже умею, теперь хочется шаг вперед сделать. Как? | | Friday, April 20th, 2012 | 12:56 am
[akreal]
 |
Question
what exactly does the regular expression /^$/ ? | | Monday, April 16th, 2012 | 8:08 pm
[bez_sharfa]
 |
Технический директор, Москва
Здравствуйте. И снова одно эйчар-агентство ищет спецов. На этот раз - руководитель разработки / техдир, perl, Москва. Плюшки, горизонты и прочее имеется, надо - знать-уметь-любить perl и рулить командой (~10 человек). Верю в силу тематического сообщества, в прошлый-то раз сработало. Спасибо за внимание, borisova@ichar.ru | | Thursday, March 29th, 2012 | 5:14 pm
[2heoh]
 |
| | Saturday, March 24th, 2012 | 4:38 pm
[siverko] |
Дополнительная работа и планирование рабочего времени
Здравы буде господа Perl-разработчики. Во первых строках письма хочу уведомить вас о том что данный пост не является functional или developmental, а суть просьба поделиться опытом и/или высказать свое мнение. Взяться за перо меня заставило переосмысление накопленного багажа знаний и умений, оценка дальнейших перспектив развития а так же разработка новых подходов к планированию рабочего времени и распределению личных ресурсов. Последние несколько лет я работаю в узкоспециализрованной но от этого только еще более интересной области - автоматизация в SAN (Fiber Channel, SCSI) на Perl в объектно-ориентированном стиле. Работа сложная, интересная и занимает все время и силы. По ряду причин испытываю необходимость дополнительно применять свои знания и опыт. Кроме того что у меня есть немало наработок в области автоматизации в сети ( пару лет я участвовал в разработке поисковой системы - боты для сбора, обработки, фильтрации, парсинга и распределения информации вендора ) я пока слабо представляю где и как я могу применить свои знания. Тем более что опыта разработки сайтов и прочей вэбовской хрени у меня нет, к тому же испытываю стойкое отвращение к гадкому и уродливому подобию перла - недоязыку PHP. В связи с чем уважаемые гуру, было бы интересно узнать ваш опыт при полной занятости: 1) Сколько времени у вас получается выделять для дополнительной работы? 2) Это разовые заказы, полноценная удаленка или собственный проект? 3) Как вы планируете в этом случае свой график, распорядок дня, отдых? 4) Аффектится ли это на семью (увлечения)? Такие интимные моменты как: 5) Каким образом и где вы ищите заказы? 6) На сколько они вам интересны? 7) Стоит ли браться за все что подвернется? 8) Нужна ли особая степень просветления чтобы находить хорошие ( интересные и достойно оплачиваемые ) задачи? Ну и самое главное: 9) В каких областях чаще всего вам приходится применять Perl? Thanks. | | Wednesday, March 7th, 2012 | 4:08 pm
[klopp]
 |
Странности с GD::Thumbnail
my $img = GD::Thumbnail->new( square => 'crop' );
$img->create( 'test.jpg', 130 );
print $img->width();
print $img->height(); На выходе - 127 и 127. Собственно, картинка такая и получается, а не 130x130. Почему? UPD: хе-хе. Под дебианом оно работает как надо. А под центом отбирает от 130 3 пиксела, от 150 - 5 пикселей, 100 урезает до 97, 180 до 175... Версии GD и GD::Thumbnail одинаковые... | | Sunday, March 4th, 2012 | 11:16 am
[arseniiv] |
представление кирилицы в виде кодов
Доброго времени суток , Господа. Прошу вас помочь мне вот с какой задачей. Все, наверно знают что такое таблица символов в Windows. Там при выборе одно знака внизу, в статус-баре, отображается его код в 16-ричной системе. Например, С(кирилическая эс заглавная) - это 0421, что в десятеричной системе - 1057. Так вот.Моя задача заключается в том, чтобы закодировать весь текст подобными кодами(в конечном итоге надо получить значения кодов в десятеричной системе). Но пока я уперся в то, что unpack дает какие-то не те коды. И тут вопрос: куда копать? есть ли такой пакет или функция , которая сможет это сделать? Или самому написать отталкиваясь от таблицы символов? | | Friday, March 2nd, 2012 | 4:54 pm
[kahoona]
 |
Senior Perl Developer - Webzilla Hosting Company
Привет, У нас в компании Webzilla (https://webzilla.com/) появилось много интересных задач по разработке различных сервисов, сетевых серверов, многослойных веб-приложений. Дело в том, что кроме хостинга открывается много новых интересных направлений. Мы ищем опытного Perl-разработчика в нашу команду на полный день в европейский офис. В отличии от удаленной работы, при живом контакте многие критически важные вопросы решаются намного быстрее. Поэтому ключевой момент - готовность приехать к нам. Компания помогает с переездом, решает визовый вопрос, легально оформляет на работу, помогает с поиском жилья. В нашей команде немало интересных людей, в том числе из Яндекса, Мастерхоста, Агавы, так что скучно не будет. ( Обязанности и требования )Подходящему кандидату мы предлагаем от 2000 EUR чистого дохода ежемесячно, в соответствии с опытом работы. Кроме того, компания предоставляет: - помощь с переездом, оформлением рабочей визы, поиском квартиры;
- легальное трудоустройство, хорошую медицинскую страховку, социальное страхование;
- ежегодный оплачиваемый отпуск, 24 дня;
- ежегодные премии.
( О компании )Пожалуйста, присылайте резюме, примеры работ, примеры кода, ссылки на выполненные проекты Алексею Скорикову на bitman@webazilla.com. Буду рад рассказать дополнительные детали о вакансии и подробно ответить на вопросы вам лично в почте. | | Tuesday, February 21st, 2012 | 2:49 pm
[agent_0007]
 |
fork по непонятным причинам вешается
Изначально есть большой массив с именами. Его чанкаем, и начинаем условно динамический форк. скрипт форкается, дети запускаются, но через некоторое время зависает на waitpid и работа всех останавливается Как можно обойтись без waitpid или как полечить? $SIG{CHLD} = 'IGNORE'; while (my @fork_names_array = splice(@name_array_chunking, 1, PREFORK_CHILDREN+1)) { for ($i = 0; $i <= PREFORK_CHILDREN; $i++) { my $name = $fork_names_array[$i]; if (defined($name) && $name) { $name =~ s/["\r\n"]//g; defined(my $pid = fork()) or warn "Can't fork: $!"; push(@childs, $pid); if ($pid) { # parent } else { # child's process here $name; do_child( $name ); exit 0; } } foreach (@childs) { my $tmp = waitpid($_, WNOHANG); } } P.S. Может кто знает как сделать динамический форк? (я имею в виду скажем у нас есть 4 чилда, один завершился, система поняла что он завершился и форканула нового. Итого у нас постоянно 4 чилда весит) | | Saturday, February 11th, 2012 | 4:48 pm
[korshak]
 |
Техническая встреча Kiev.pm
16 Февраля 2012 года, в 19:30 в помещении GL Club, Киев состоится техническая встреча Kiev.pm - группы пользователей Perl На сегодняшний день зарегистрированы доклады: * Gearman Managers: управление рабочими процессами - Олег Алистратов, Яндекс * Nginx. По следам мастер-класса Игоря Сысоева - Денис Жданов, Cogniance * Тестирование кода, использующего ORM - Виктор Турский, WebbyLab * Redis и Protocol::Redis - Сергей Засенко Посетителям: Мы будем рады посетителям с любым уровнем знания Perl. Зарегистрируйтесь до 14 Февраля (включительно). Регистрация обязательна. Пожалуйста, не забудьте взять с собой документ, удостоверяющий личность. Клуб находится по адресу ул. Николая Гринченка, 2/1, БЦ "Протасов" [ карта] Докладчикам: напишите тему доклада и приблизительную продолжительность на support@kiev.pm.orgПоследний срок регистрации докладов - 14 Февраля Будет здорово, если вы поделитесь этой информацией с друзьями и коллегами, которые могут быть заинтересованы в посещении. | 8:05 am
[knutov]
 |
given ... when
http://perldoc.perl.org/perlsyn.html#Statement-Modifiers"when executes the statement when $_ smart matches EXPR" И ниже пример. Однако, syntax error at ***.pm line 496, near ") when" given($action) {
$ok = $u->Suspend() when 'suspend';
} При этом, в варианте given($action) {
when ("suspend") { $ok = $u->Suspend()}
} всё ок. Что не так в первом варианте? Я даже скопипастил пример по ссылке один в один и получил ту же ошибку. upd: всё оказалось просто, в перле 5.10 другой perlsyn и там такой конструкции ещё нет. А по верхней ссылке perlsyn от 5.14. | | Tuesday, January 31st, 2012 | 6:35 pm
[edik_m]
 |
Переход с AWK на Perl
Надо реализовать awk-скую программку на Perl На awk все просто: Печатем те строки из лога,где есть один из двух темплайтов и чтоб 7-е поле было больше 2000. Поля разделены двоеточием (:) awk -F ":" '{/"Write_sector_start"|"Read_sector_sta rt"/}{if ($7>2000) print }' Можно тупо впихнуть эту строку в перловский скрипт,но как-то некрасиво. Написать на Перле в одну строку у меня не получилось Заранее благодарен | 10:16 am
[b0rmann]
 |
upgrade
полтора месяца назад был апгрэйдован debian c lenny до wheezy. на сервере много perl скриптов, активно используется Catalyst и DBIX::Class. но что-то брутально сгнило. при рестарте http сервера под которым Catalyst наступает полный адъ минуты на две. это бы ещё понял. но почему всё время такая загрузка?  | | Saturday, January 28th, 2012 | 10:26 am
[zupernintendo]
 |
Годный фрейморк или библиотека для web
Добрый день! Посоветуйте сабж, если таковой в природе существует - чтобы рутеры, контроллеры, вьювсы в привычном виде. Нужно для своих простых проектов без высокой нагрузки и т.п. Надо чтобы работало через CGI на большинстве простых говнохостингах где установлен php и perl, возможность скачивать перл-модули со CPAN там есть например. | | Thursday, January 26th, 2012 | 1:03 pm
[jamhed]
 |
https://github.com/jamhed/Dancer-OOКак известно, Dancer не поддерживает наследование. Тем не менее это легко сделать. Для этого используются два вспомогательных класса Dancer::OO::Object, от которого должны все наследоваться, и Dancer::OO::Dancer, который переопределяет Dancer DSL. Идея в том, что объявления обработчиков маршрутов типа get, post и другие, откладываются -- записываются в переменную _handler соответствующего пакета, а функции объявляются через wrap, который передает в анонимную функцию некоторые полезные переменные -- ($self, $context, $params), где $self -- имя класса, $context -- Dancer::session, params -- Dancer::params. | | Thursday, January 19th, 2012 | 8:02 pm
[kitt_vl]
 |
| | Wednesday, January 18th, 2012 | 9:44 pm
[bez_sharfa]
|
Вакансии в Ростове-на-Дону и Казани
Здравствуй, сообщество. Одно небольшое, но весьма айтишное кадровое агентство ищет для своих клиентов - большого конструктора сайтов - perl-разработчиков. Помогите чем можете, товарищи? Из требований - хотеть писать на перле (готовы рассматривать и без опыта, но со знанием php, python), шарить в mysql и jquery, json. Ну и конечно иметь прямые руки и светлую голову. Деньги готовы обсуждать, честное слово. Да и с остальными плюшками все ок. Если вдруг это вы - дайте знать на borisova@ichar.ru. | | Sunday, January 15th, 2012 | 6:20 pm
[ploutos] |
Как узнать куда уходит память?
Добрый день! Переписал скрипт с ипользованием HTML::TreeBuilder, который в цикле обрабатывает N-ое количество файлов, до этого использовались регексы.... в итоге, сервер несколько раз подвисал, стал смотреть топом, примерно за минуту-две работы съедается около 10 Мб памяти. ( Read more... )UPD РЕШЕНО |
[ << Previous 20 ]
|
![[info]](http://l-stat.livejournal.com/img/community.gif?v=92.2){kind=small}
ru_perl