koorchik's Perl blog || Перл блог

Валидация данных в Mojolicious

2012-01-13T16:21:00.001+02:00

Написал небольшой плагин для Mojolicious - Mojolicious::Plugin::ValidateTiny. По сути - это обертка над Validate::Tiny с дополнительными удобными плюшками. Для валидации входящий параметров мы просто используем хелпер: $self->do_validation($validate_rules); $validate_rules - это описание проверок в формате Validate::Tiny. По-умолчанию, включена опция "autofields", которая позволяет

Быстрая установка зависимостей Perl-приложения

2012-01-05T19:19:00.000+02:00

Имеется приложение на Perl, которое имеет множество зависимостей. Задача - упростить установку зависимостей такого приложения. Есть несколько подходов к решению данной задачи, но я расскажу лишь про тот вариант, который я использую и он мне нравится больше всего. Все модули я ставлю с CPAN в локальную директорию пользователя, использую для этого "local::lib". Предварительно необходимо

Теперь постом можно поделиться в социальных сетях

2011-11-08T21:03:00.000+02:00

Я наконец-то добавил кнопки публикации информации про пост в социальных сетах. Пришлось немного порыться в интернетах, а то у меня используется нестандартный шаблон для блога и блогспот не мог к нему автоматически добавить эти кнопочки. Теперь можно поставить +1 любому понравившемуся посту. Пользуемся, не стесняемся ;).

Mojlicious: Использование роутов в javascript

2011-11-08T08:30:00.000+02:00

Мне нравится, как реализованы роуты в Mojolicious и особенно мне нравится то, что их можно именовать. Именую я роуты всегда в соответствии с именем контроллера и метода. Например, $r->get('/messages/:id')->to('messages#show')->name('messages_show'); $r->post('/messages/:id/delete')->to('messages#delete')->name('messages_delete'); И затем в контроллере: $self->redirect_to('messages_show', id =>

Mojolicious и защита от Cross Site Request Forgery (CSRF)

2011-11-01T08:35:00.006+02:00

Немного теорииЯ полагаю многие знают, что такое CSRF. Но для новичков озвучу. CSRF (Cross Site Request Forgery) - это межсайтовая подделка запросов. И происходит она следующим образом. Допустим, на вашем сайте, назовем его "mysite.com", есть ссылка, которая удаляет сообщение. Ссылка вида - "http://mysite.com/myprofile/delete?message=123". Злоумышленник может вставить эту ссылку на свой сайт "

Интересности Perl

2011-10-26T08:55:00.001+03:00

Как-то совсем давно я ничего не писал, думаю уже пора :). Не так давно прошла конференция BlackPerl 2011. Я думаю, что уже многие в курсе относительного этого события. Я на конференцию ехал без доклада, просто с желанием познакомится с Perl-комьюнити, послушать других и пофотографировать сие действо. Но вдохновленный докладчиками, решил и сам соорудить небольшое выступление. Поскольку,

IGAL - создаем фотогалерею за 5 минут

2011-08-09T20:26:00.001+03:00

У меня стояла задача раздать всем фотки после праздника. Логичнее всего раздать их через интернет. Следовательно возникли следующие требования: Фотографии должны быть доступны для скачивание только определенному кругу людей. Фотографии должны быть доступны в полном размере( не ужатые ) Должна быть возможность предварительного просмотра фотографий. Должна быть возможность пакетного скачивания

Тест на понимание Perl: Вопрос 5

2011-07-01T22:59:00.001+03:00

ВопросЧто выведет следующий код? $MODE = 'debug'; sub is_debug { $MODE =~ /debug/gi ? 1:0 } print 5 if is_debug(); print 6 if is_debug(); print 7 if is_debug(); Ответ: 57 ПояснениеВызов функции is_debug будет нам по очереди возвращать то 1, то 0. Это связано с тем, что мы используем регексп с модификатором "g" в скалярном контексте. В такой ситуации при удачном совпадении Perl запоминает

Ищем Perl-программистов в Киеве и Чернигове (Украина)

2011-06-29T10:29:00.001+03:00

Для Perl программистов есть 2 вакансии - одна в Киеве и одна в Чернигове. Компания Portaone. Описание киевской вакансии - http://www.portaone.com/company/careers/developer/ Описание черниговской вакансии - http://www.portaone.com/company/careers/web-developer/ Работать будете в команде профессионалов, начинающих программистов в компании практически нет. Если что-то интересует - спрашивайте,

Запускаем Mojolicious/PSGI приложение: мини-тест производительности.

2011-06-23T20:52:00.002+03:00

Решил провести небольшое тестирование производительности Mojolicious в разных режимах: Mojo::Server::Daemon (Epoll/Poll) Mojo::Server::Hypnotoad (Epoll/Poll) Mojo::Server::PSGI + Corona Mojo::Server::PSGI + Starman Mojo::Server::PSGI + Starlet Mojo::Server::PSGI + Plack::FCGI::Handler Хотелось еще протестировать nginx+uwsgi, но не сложилось. Возможно в следующий раз. Как проводилось

Наконец-то исправлена обработка исключений в Perl 5.14

2011-06-06T23:59:00.001+03:00

Все уже знают про выход Perl 5.14, но почему везде пишут лишь про новые плюшки?! Но то что была наконец-то решена древняя проблема с обработкой исключений, никто и не вспоминает. В Perl мы используем die для генерации исключения и блочный eval для перехвата. Конструкция, думаю, знакома всем: eval { # some code die "error"; # some code }; if ($@) { print "Error [$@] occured!";

Развертываем Perl приложение на DotCloud

2011-05-27T00:01:00.001+03:00

Немного про PSGIСпецификация PSGI стала очень важным(переломным) моментом в мире разработки Perl веб-приложений. По сути, произошло отделение протокола взаимодействия с веб-сервером от API фреймворка, что позволило запускать PSGI приложения в любом окружении(возможно стоит про это написать отдельный пост :) ). Все современные фреймворки поддерживают PSGI. Как выглядит PSGI приложение?PSGI

Mojo::JSON для сессий в Mojolicious

2011-05-26T13:32:00.002+03:00

Сейчас Mojolicious использует Storable для сериализации сессий, но Себастьян решил перейти на Mojo::JSON и мне нравится эта идея :). Я приверженец формата JSON и уже упоминал его преимущества в посте "Как устроены сессии в Mojolicious?!". Проблемы могут возникнуть только у пользователей, которые хранят в сессии блесснутые(blessed) ссылки. Тикет с обсуждением на гитхабе.

Конвертируем HTML в PDF

2011-05-17T00:48:00.001+03:00

ПредысторияЕсть некое веб-приложение(на Perl), в котором нужно было добавить определенный набор отчетов. Отчеты должны иметь два представления - HTML и PDF. Для решения этой задачи, естественно, можно было бы воспользоваться модулями типа PDF::Reuse, PDF::API2, PDF::API2::Simple, но: 1. Это лишние временные затраты (изучение API, написания дополнительного кода) 2. Это усложнение сопровождения

Mojolicious 1.16: Экстренный релиз, Всем обновляться!!!

2011-04-15T13:21:00.000+03:00

Час назад стало известно про серьезную уязвимость в Mojolicious, которая позволяет вычитать любой файл с файловой системы. Баг уже исправлен, к сожалению баг был опубликовал в твиттере перед тем как передан Себастьяну. Все срочно обновляемся!!!! Но учтите, что новый релиз не сразу попадет на все зеркала CPAN, лучше качайте прямо с официального сайта. Если обновление слишком накладно, то

Mojoliciuos - Производительность Mojo::JSON

2011-03-28T00:36:00.001+03:00

Mojo::JSON VS JSON::PPРешил проверить производительность Mojo::JSON Интересовала, естественно, производительность в сравнении с JSON::PP. Колоссальная производительность JSON::XS лишает смысла сравнивать его с перловыми реализациями. РезультатыТестирование показало, что Mojo::JSON в 1.5 раза быстрее чем JSON::PP при сериализации и в почти в 3 раза быстрее при десериализации. Очень даже неплохо

Guttman-Rosler Transform. Часть 1: Описание преобразования.

2011-03-22T01:49:00.002+02:00

Уже наверное больше года хочу написать про GRT(Guttman-Rosler Transform) и наконец-то дошли руки. Вернее, наткнулся на Sort::External::Cookbook, который и взял за основу своего поста. Повествование решил разбить на две части. Первая с описанием, вторая с результатами тестирования. Собственно сабж. Думаю многие знакомы с преобразованием Шварца, которое позволяет повысить эфективность сортировки

Встречайте Mojolicious::Plugin::Gravatar

2011-02-27T20:48:00.000+02:00

Написал небольшой плагин для Mojolicious - Mojolicious::Plugin::Gravatar . Добавляет хелперы для работы с Gravatar.com. Думаю многие знакомы с этим сервисом( его используют cpan и github ), но кто не знаком - обратите внимание. Для отображения аватарки - <%= gravatar $email %> Для получения url аватарки - <%= gravatar_url $email %> Плагин уже на GitHub и на CPAN

Mojolicious - интервью с Себастьяном Риделем( Sebastian Riedel )

2011-02-21T09:10:00.002+02:00

Мой перевод интервью ActiveState с Себастьяном Риделем( Sebastian Riedel ), создателем веб-фреймворка Mojolicious. Это достаточно свободный перевод, но я старался не потерять суть. 14.02.2011 Себаcтьян зарелизил Mojolicious 1.1 - Perl веб-фреймворк следующего поколения. В связи с этим и состоялось интервью. Tara: Почему ты занялся созданием Mojolicious? Sebastian: По большому счету это

Как устроены сессии в Mojolicious?!

2011-02-20T12:12:00.001+02:00

В этом посте я не буду рассказывать про API для работы с сессиями, это можно найти в документации к Mojolicious, а постараюсь объяснить как устроены сессии внутри. Mojolicious использует сookies для хранения сессий. И это достаточно важный момент. Такой подход позволяет нам следовать REST идеологии. Мы можем отказаться от лишних состояний на стороне сервера, нам не нужно обеспечивать общего

Особенности конкурентной записи/чтения файлов в perl + NFS

2011-02-05T17:14:00.000+02:00

Рассмотрю буквально парочку малоизвестных нюансов/подводных камней. Мало кто знает, что для вычитки файла в строку можно использовать такой код: my $content = do {local (@ARGV, $/) = $filename; }; За объяснениями в perldoc perlvar и поиск по ARGV. Такой подход использовался и в File::Slurp. В данной ситуации не просходит flock, это важно учитывать если Вы этот файл еще и пишите другим

Perl IDE: Eclipse + Epic

2011-01-29T12:24:00.003+02:00

Perl IDEПосмотрел видео с Perl-воркшопа «Saint Perl — 2» (Санкт-Петербург). Доклад "Perl IDEs" Шафиева Наима. Я в свое время поигрался почти со всеми перечисленными в докладе IDE и редакторами (кроме Kephra и Emacs) и сделал выбор в пользу Eclipse + Epic. Сразу немного критики в сторону докладчика, который заявил, что Epic is deprecated и с 2008 без обновлений. Я пользуюсь Epic и наблюдаю там

Как Perl стал современным(Modern)?!

2011-01-05T00:05:00.000+02:00

Смотрим видео про то, как Perl стал современным ;) Get the Flash Player to see this player. var s1 = new SWFObject("http://media.dreamhost.com/mp4/player.swf","mp1","640","480","9","#FFFFFF"); s1.addParam("allowfullscreen","true"); s1.addParam("allowscriptaccess","always"); s1.addParam("flashvars","&file=http://presentingperl.org/yn2010/modern-perl/

Ура, товарищи. Вышел Mojolicious 1.0

2010-12-22T12:48:00.002+02:00

Список изменений по этой ссылке Хотя в твиттере Себастьяна видим: "#mojolicious 1.0 is scheduled for december 26! #perl"

Чем плох eval?!

2010-12-01T10:02:00.003+02:00

Чем плох eval?!В perl, как всем известно, имеется 2 варианта вызова функции eval. Строковый eval для компиляции и выполнения кода на лету и блочный eval. Нас интересует блочный eval. Часто встречается такой вот код: eval { # some code die "error"; # some code }; if ($@) { print "Error [$@] occured!"; } Это вполне стандартный код, но есть ряд недостатков связанных и с

Пример приложения на Mojolicious ( не Lite )

2010-11-24T15:36:00.002+02:00

Пример приложения на Mojolicious ( не Lite )В интернете много всего уже сказано про Mojolicious::Lite, но сегодня про Mojolicious (не Lite). С фреймворком я только начал знакомится, поэтому смело критикуйте в комментариях. Для изучения фреймворака я решил написать прототип сервиса заметок. Сразу прошу не писать про XSRF, я в курсе и это лишь прототип. Расписывать все я не буду, только ключевые

Тестирование в Perl: Завершение теста при первой ошибке

2010-10-21T18:15:00.000+03:00

Для меня стала открытием вот эта функция - Test::Most::bail_on_fail :) Вкратце объясню зачем оно нужно. В обычном режиме прогоняется все тесты, а затем выводится отчет. И потом приходится искать в логах нужное место для выяснения причин ошибок. Если вы добавите в начало теста вызов Test::Most::bail_on_fail, то при первой же неудаче тест остановится. Теперь нас интересуют лишь последние

Современный Perl и современный Perl-программист.

2010-09-24T23:22:00.003+03:00

В последние время встречается много постов на тему, что такое современный Perl. Попробую и я высказать свое мнение по этому поводу. За последние 10 лет произошло колоссальное развитие Perl . Это развитие похоже на то, как развивается Java. Сам язык программирование Java - практически не меняется, но развивается инфраструктура. Сегодня знание Java - это знание фреймворков, а не знание синтаксиса

История одного коммита

2010-09-16T11:43:00.003+03:00

Год назад прочтением Олди, дождливой погодой ... и багами в коде было навеяно написание данного текста :) Код изогнулся, как большой кусок оргстекла, поблескивая константами и переменными... он выдержал, он всегда выдерживал. Хотя такое случалось все чаще и чаще, но никто не обращал на это должного внимания, многим даже нравилось данное зрелище : "Так чудесно переливается в свете мониторов", -

GPL говорит, что я обязан открывать исходники моего сайта?

2010-09-08T20:57:00.001+03:00

Лицензия GPL позволяет нам использовать и модифицировать код в своих целях. Мы имеем право модифицировать код и не делиться им ни с кем если мы не распространяем( не имеет значение платно или бесплатно) програмных продукт на основе этого кода. Вроде как все логично и понятно. Например, если мы скачали исходник Apache и модифицировали его код, то мы можем без проблем продавать модифицированную

CPANPLUS и Gentoo - Автоматически создаем ebuild-ы модулей из CPAN

2010-08-30T12:20:00.000+03:00

Часто встречается такая ситуация, что в системе часть модулей инсталлировано через пакетный менеджер, а часть через cpan. Потом это приводит к разного рода проблемам связанные с тем, что пакетный менеджер не видит модули установленные через cpan. 1. Пакетный менеджер тянет по зависимостям уже установленный через cpan модуль. 2. Удаление через модулей через пакетный менеджер также не учитывает

Инкремент такой инкремент : инициализируй числовую перменную как строку и потеряй 20% скорости :)

2010-08-25T23:14:00.008+03:00

Заголовок конечно провокационный, но бенчмарк показывает, что вариант с числовой инициализацией переменной на 20% быстрее(тестировал на 5.12). #/usr/bin/perl -w use v5.10; use strict; use warnings; use Benchmark ':all'; cmpthese( -5, { integer_init => sub { my $i = 0; $i++ for ( 1 .. 10000 ); }, string_init => sub { my $i = '0'

Улучшаем документирование кода - текстовые диаграммы.

2010-08-23T17:34:00.001+03:00

У меня стояла задача написать документацию к программной компоненте. И я решил поместить описание структуры классов непосредственно прямо в POD документацию.Для этого мне потребовался инструмент, который мог бы рисовать текстовую графику. И такой инструмент был найден - Asciio, к тому же он сам написан на Perl.Просто инсталлируем модуль с CPAN и получаем упрощенный аналог visio для текстовых

Баян, но все же - песня про Perl. Perl, in a Nutshell ! :)

2010-08-19T14:48:00.002+03:00

Еще один способ наговнокодить.

2010-08-03T22:05:00.002+03:00

Пишите всегда отдельно cигил и имя переменной, а лучше вообще вставляйте после сигила перевод строки. Тогда Ваш код станет значительно нечитабельней :) Например: my $return = "HA-HA-HA"; print $ return; print "We are here! )"; Спешите, в Perl 6 уже так не получиться

Фотоотчет(63 фото): YAPC-2010 День докладов

2010-06-14T00:50:00.007+03:00

63 фотографии с Perl Mova + YAPC-2010 проходившей в Киеве. ПЕРЕЙТИ В ФОТОАЛЬБОМ>> ЗЫ: В picasa web-albums тоже можно оставлять комментарии ;)

Вы не любите котов? Так Вы просто не умеете их готовить.

2010-06-05T16:48:00.003+03:00

Многие сейчас переходят с Subversion на Git. Многие считают, что merge в Subversion практически невозможно использовать... и так далее. Эта статья для тех, кто еще пользуется Subversion, но только планирует перейти на Git. После прочтения статьи просто взвесьте все за и против, которые Вы получите при переходе на Git. Я ни в коей мере не наезжаю на Git, но для меня существует ряд проблем при

Удаление svn:externals для файла

2010-06-03T14:29:00.000+03:00

Что такое svn:externals? Это атрибут, который можно установить любому каталогу в репозитарии. Он позволяет подгружать файлы и каталоги с другого места. (За деталями сюда - http://svnbook.red-bean.com/en/1.0/ch07s03.html) До версии subversion-1.6 возможно было указать только ссылки на внешние каталоги. То есть внешний файл было невозможно указать. С версии 1.6 появилась возможность указывать в svn

Чего я не понимаю?

2010-05-30T20:40:00.001+03:00

print 1 if "a\nb" =~ /^a\n$/m; #Почему не выводит 1?

Subversion: переезд на новый домен

2010-05-02T11:54:00.001+03:00

Решил расширить тематику постов, теперь будут выходить посты посвященные системам контроля версий. Предвидится целая серия постов посвященная организации работы в SVN. Собственно сабж У нас в компании SVN-сервер переехал на новый домен и стала задача всем разработчикам поменять имя домена для рабочей копии: Переходим в рабочую директорию и выполняем: svn switch --relocate old_repositary_root

Тест на понимание Perl: Вопрос 4

2010-04-21T20:48:00.001+03:00

Вопрос:sub a{&b; print shift}sub b{print shift} a(1,2); Ответ: 12 Пояснение:Главная особенность состоит в том, что вызов функции &b происходит без круглых скобок и с использованием амперсанда. То есть вызов &b b(), &b() - это разные вызовы и каждый имеет свою особенность.b() - классический вызов функции &b() - аналогично первому варианту, но игнорируются прототипы&b - если функция вызывается

Тест на понимание Perl: Вопрос 3

2010-04-19T08:32:00.000+03:00

Вопрос: 0 ? $a = 1: $b = 2; 1 ? $a = 1: $b = 2; print "$a $b" Ответ: 2 2 Пояснение: Тут есть два важных момента: Приоритет тернарного оператора выше чем у "=" и поэтому конструкция работает так (0 ? $a = 1: $b) = 2; После вычесления тернарного оператора возвращается переменная, а не ее значение. И ее можно изменить. Вот еще наглядный пример: конструкцию вида if ( $x ) { $a->{key} = 1;

Экономия памяти: YAML::Tiny

2010-04-17T18:52:00.000+03:00

Небольшое вступление для тех, кто еще не использует YAML (позволю себе процитировать википедию )YAML — человекочитаемый формат сериализации данных, концептуально близкий к языкам разметки, но ориентированный на удобство ввода-вывода типичных структур данныхмногих языков программирования. Я использую YAML для разного рода конфигурационной информации.Почему я использую YAML? :YAML краток и понятен

Несостоятельность ithreads в Perl (сам не ожидал)

2010-04-09T09:39:00.005+03:00

Предыстория Никогда до этого не использовал треды(threads) в Perl - как-то не доверял я им и использовал forkи... и как оказалось не зря! И настал тот день, когда от тредов никуда не убежишь(на самом деле убежишь, но про это дальше) - нужно было включить многопоточность для модуля Fuse.pm(просто передается дополнительный параметр threaded => 1), и тогда на каждый вызов файлофай системы будет

Мог бы быть вопрос номер 3 на понимание Perl ...

2010-04-01T09:15:00.001+03:00

... если бы я сам понимал что тут происходит perl -e 'my $i=5; print(++$i + ++$i)' # почему тут 14, а не 13 ??? perl -e 'my $i=5; print(sub{++$i}->() + sub{++$i}->())' # тут все нормально - выдает 13 perl -e 'my $i=5; print( $i++ + $i++)' # и так нормально - выдает 11

Тест на понимание Perl: Вопрос 2

2010-03-31T14:32:00.001+03:00

@a = (2,3,4,5); my $a = {a=>"q", b=>@a, c=>2}; print $a->{c}; Ответ: undef Пояснение: хеш представляет собой список с пар(ключ/значение). значение(как и ключ) всегда представляет собой скаляр. Оператор => - по своей сути, это синоним оператору ",", только он еще берет левый аргумент в двойные кавычки. Эта запись {a=>"q", b=>@a, c=>2} на самом деле равна {"a", "q", "b" , @a, "c", 2}, либо {

Тест на понимание Perl: идея и вопрос 1

2010-03-29T14:32:00.000+03:00

Идея Решил написать серию постов с вопросами на понимание Perl. То есть каждый пост - отдельный вопрос. Каждый такой пост будет содержать: вопрос, ответ, объяснение ответа. Вопросы не будут содержать каких-либо редко используемых функций. Главное здесь проверить не знание функций, а понимание поведения Perl-кода. Возможно многим они покажутся очевидными, но это говорит о том, что вы

Комментарии на русском языке(utf-8) в perl коде - ЗЛО || ДОБРО ?

2010-03-27T12:45:00.000+02:00

Какие могут быть проблемы? Я пока вижу следующие: Проблема 1. Необходимо всем перенастроить редакторы кода. У нас в компании нет ограничения на использование редакторов кода - используются Vim, Eclipse, Geany, Far... С Far есть явная проблема, которая заключается в необходимости постоянного переключении редактора в режим юникода для просмотра комментария. С vim тоже есть проблема - при

Экономия памяти: прием по ссылке

2010-03-21T09:27:00.000+02:00

Не для кого не секрет, что Perl любит кушать память и при написании кода нужно обращать внимание на всякие мелочи, если вы работаете с большими объемами данных. Проблема заключается в том, что когда Perl съедает память, он ее не возвращает системе, а оставляет себе для повторного использования. Для долгоживущих процессов это иногда создает проблемы. Допустим у нас есть огромный блок данных - $

Разрешено анонимное комментирование :)

2010-03-20T11:09:00.000+02:00

Теперь можно оставлять комментарии анонимно, необходимо только пройти проверку каптчей.

Никогда не пишите так m/$var/ :)

2010-03-18T14:44:00.000+02:00

Не многие в курсе, но такая запись m/$var/ чревата сложно находимыми багами. Сразу оговорюсь, что это актуально если $var может быть пустой. Пример 1 my $a = "text"; my $b = "text2"; print 1 if $b =~ /text2/; print 2 if $a =~ //; # В результате будет напечатано 1; Пример 2my $a = "text"; my $b = "text2"; print 1 if $b =~ /text3/; print 2 if $a =~ //;# В результате будет напечатано 2;

Обновил Debug::LTrace до 0.02

2010-03-16T10:18:00.000+02:00

* Обновилась документации и тесты. * Теперь модуль без проблем инсталлируется под 5.8.x ЗЫ: Как приятно смотреть на все эти зелененькие "PASS" в CPAN Testers Report :))

Не только одними feature5.10... :)

2010-03-14T16:03:00.003+02:00

Выложил свой модуль на CPAN и тут начались проблемы - CPAN Testers показывает, что во всех версиях перла ниже 5.10 тесты проваливаются, начал разбираться и вот: в 5.10.x print qr{\Q\_\E} #выведет:(?-xism:\\_) print "\Q\_\E" #выведет:_ в 5.8.x print qr{\Q\_\E} #выведет: (?-xism:_) print "\Q\_\E" #выведет: _ Занятно, однако ...

koorchik's Perl blog переехал с koorchik.name на koorchik.blogspot.com

2010-03-11T14:16:00.000+02:00

Блог изначально создавался как просто страница с советами по Perl ("Perl Tips"), но в результате вырос и потребовался новый функционал, появились желающие прокомментировать посты... Теперь koorchik's Perl blog можно найти по адресу http://koorchik.blogspot.com/ и все желающие могут оставлять комментарии. Если у кого-то возникало желание прокомментировать старый пост, то теперь можно это сделать,

Как добавить свою аватарку на CPAN

2010-03-11T11:33:00.001+02:00

Залил свой модуль Debug::LTrace на CPAN и смотрю у меня дефолтовая аватарка. Начал перерывать все пункты в меню моего аккаунта на PAUSE сервере в поисках формы аплоада аватарок и все тщетно. Через 15 минут меня совсем перестал удивлять тот факт, что так мало автором на CPAN имеют свои аватарки :)). Так вот. Решил я посмотреть в html коде откуда подгружается аватарка на CPAN и... возможно это для

Debug::LTrace - мой дебют на CPAN

2010-03-10T09:13:00.000+02:00

Debug::LTrace отслеживает вызов и возврат функций. Использование Debug::LTrace не требует никаких дополнительных изменений в коде. Информации о вызовах выводится через стандартный warn. На CPAN есть и другие модули такие, как Devel::TraceCalls и Debug::Trace, но Devel::TraceCalls неудобный в использовании(хотя очень мощный), Debug::Trace - удобный и простой, но не хватает функционала. Debug::

Таблицы псевдографикой

2010-02-07T09:11:00.000+02:00

Задача отправлять табличную информацию на почту. И решение в общем то очевидное - использовать псевдографику(хотя возможно кого-то устроит html), либо просто выравнивать текст при помощи printf, но эффект уже не тот :). Полчаса моего поиска в CPAN увенчались успехом и был найдет модуль Text::SimpleTable, который был предельно простым и полностью решал поставленную задачу. Пример:use Text::

GUI в Perl: Frozen Bubble

2010-02-04T09:23:00.000+02:00

Есть игрушка, которая мне очень нравится - FrozenBubble и я давно в нее играюсь. И я был приятно удивлен когда узнал, что она написана на Perl и SDL :) Красочная игра, 100 уровней для одного игрока, есть поддержка сетевой игры, классный саундтрек. Показательный пример создания качественной игры на Perl.

Инструменты разработчика: Devel::TraceUse

2010-01-29T09:10:00.001+02:00

Модуль позволяет посмотреть(в виде дерева) какие модули подключает ваша программа. Это бывает может быть полезным в разных случаях. Например, когда программа сразу после компиляции начинает занимать слишком много памяти... или бывает непонятно какой из бекендов подключает некий модуль(например JSON)... или просто необходимо собрать список зависимостей ... В общем - вариантов может быть

Движки сериализации: кто быстрее?

2010-01-27T09:40:00.000+02:00

Сегодня наткнулся на модуль Benchmark::Serialize, который тестирует разные движки сериализации( тестируется сериализация, десериализация и размер сериализированных данных). У меня в системы оказались следующие движки: Data::Dumper 2.124, JSON::PP 2.27000 JSON::XS 2.27, Storable 2.20, XML::Simple 2.18. И я был очень и очень удивлен результатом. Первое место по всем показателям достается модулю

Генерация произносимых паролей

2010-01-26T09:08:00.000+02:00

Возникла задача добавления большого списка новых пользователей в систему, притом пароль может устанавливать и менять только администратор. Поскольку лично у каждого пользователя просить ввести пароль не представлялось возможным, то необходимо было сразу сгенерировать удобные для пользователей пароли. Удобные пароли - это те, которые содержать только латиницу в нижнем регистре и складываются в

Рекурсивное копирование сложных структур данных

2010-01-25T09:42:00.000+02:00

Модуль StorableКлассический вариант - это использования функции dclone со стандартного модуля Storable, который предзначен для сериализации данных, и невероятно быстрый. Реализован на 'C' с низкоуровневыми оптимизациями, работающими с внутренней реализацией Perl( инкапсуляция отдданна в жертву в обмен на скорость)Функция dclone на самом деле сначала просто сериализирует в память данные, а потом

Проблемы логирования отладочной информации

2009-12-28T09:45:00.000+02:00

Как известно вывод отладочной информации значительно замедляет выполнение программы, особенно если Вам приходиться дампить сложные структуры данных. После завершения этапа тестирования отключают вывод лишней информации, но все же вызовы функций остаются, и они съедают системные ресурсы. Особенно необходимо избегать такого - logger("Message1", Message2", Dumper($mega_structure_ref); Дампер будет

Удобства perl 5.10 или Modern::Perl

2009-11-21T09:05:00.000+02:00

Как известно в perl 5.10 появилось много всяких вкусностей: все новые операторы доступны по-умолчанию Пример 1: $a = 0 unless defined $a; #раньше $a //= 0; # perl 5.10 Пример 2: Допустим у нас есть массив @types = qw/type1 type2 type3/; и необходимо проверить наличие в нем некого элемента if (grep {$a eq $_} @types ) {} # раньше if ($a ~~ @types ) {} # perl 5.10 (самый быстрый способ для

Правильное использование временной переменной в цикле foreach

2009-11-11T09:58:00.000+02:00

Классический перловый foreach цикл: Вариант 1:foreach my $element ( @list ) { #some code } Вариант 2:my $element;foreach $element ( @list ) { #some code } Сравнение: Большинство, не задумываясь, используют первый вариант... и это правильно :). Но есть "программисты-оптимизаторы", которые используют второй вариант, аргументируя это тем, что он "быстрее" (забивая на то, что они

Подсветка ошибок при просмотре логов

2009-10-20T10:02:00.001+03:00

Мы часто юзаюем команду tail для логов( например tail -f file.log ) и часто не хватает подсветки строчек, которые содержат строку "error". Пример 1. Следующий код подсветит целую строку красным, если она содержит слово "error": tail -f file.log | perl -pe 's/^.*error.+$/\e[1;32;41m$&\e[0m/gim' #ключ -p обрамляет программу в while (<>) { ... print $_} Пример 2. Тут строки со словами "error", "

Term::ANSIColor (стандартный модуль) - раскрась терминал

2009-08-10T23:40:00.000+03:00

Очень простой стандартный модуль, который великолепно справляется со своей задачей, а именно подсветить текст необходимым Вам цветом. За деталями лезем в perldoc Term::ANSIColor Пример 1. use Term::ANSIColor;print color 'bold blue';print "This text is bold blue.\n";print color 'reset';print "This text is normal.\n";print colored ("Yellow on magenta.\n", 'yellow on_magenta');print "This text is

Сортировка Шварца

2009-07-25T23:38:00.000+03:00

Представим, что у нас есть масив @ar , нужно получить масив @ar_new отортировав масив @ar следующим образом : @ar_new = sort { slow_sub ($a) <=> slow_sub($b) } @ar Все бы хорошо но для сортировки n елементов блок сравнения будет вызван примерно n log n раз, а каждое сравнение это двойной вызов slow_sub. И в данной ситуации сортировка Шварца все решает. @ar_new = map { $_->[0] }

При присвоении перл возвращает переменную (вернее - lvalue), а не ее значение

2009-07-15T23:10:00.000+03:00

Что это дает? Пример 1. Можно сделать замену в скопированной переменной(сохранив при этом оригинальную) (my $new_var = $original_var) =~ s/pattern/replacement/; Пример 2. Запись вида : $a += 2;$a *= 3; можно заменить на : ($a += 2) *= 3; Пример 3. Запись вида : if ($x) { $a->{key} = 1;}else{ $b->{key} = 1;} Можно заменить на : ($x ? $a : $b)->{key} = 1 ЗЫ: с это особенностью нужно быть

Вы знаете про стандартную перловую утилиту find2perl ?!

2009-07-10T23:02:00.000+03:00

find2perl транслирует параметры команды "find" в перловый код, который использует стандартный модуль File::Find смотреть perldoc perlutils Пример: find2perl . -user root -perm 4000 -print выдаст следующий платформонезависимый код (функция wanted нас интересует больше всего ) #здесь было начало. выполнив пример можно увидеть весь код ;) sub wanted { my ($dev,$ino,$mode,$nlink,$uid,$gid);

Просмотр исходного текста модуля установленого в систему

2009-07-05T23:01:00.000+03:00

perldoc -m Module Пример: perldoc -m File::Path Модуль открылся и нет подсветки синтаксиса - просто нажмите "v". Модуль переоткроется в вашем редакторе(переменная EDITOR, у меня, например, vim) со всеми выплывающими прелестями. (этот фокус работает, если вы используете less как стандартный пейджер)

Как узнать где находится модуль установленный в систему ?

2009-07-05T22:59:00.000+03:00

perldoc -l Module Пример 1: perldoc -l File::Path /usr/lib64/perl5/site_perl/5.8.8/File/Path.pm Пример 2: Открыть системный модуль в vim можно следующим образом: vim `perldoc -l File::Path`