Анатолий Шарифулин

Perl. Форматирование чисел

Tue, 10 Nov 2009 18:15:49 GMT

Сегодня потребовалось написать функцию по форматированию чисел, приведение к читаемому виду: 1234567 => 1 234 567.
Написал следующую короткую и красивую функцию:

sub D($) {
	for (scalar reverse shift) {
		s/(\d{3})(?=\d)/$1 /g;
		return scalar reverse;
	}
}

say D 12345;
say D 123456;
say D 1234.56;

Спасибо pavel_kudinov за подсказку использовать (?=pattern) positive look-ahead assertion (perlre).
Вместо этого у меня была вторая простая регекспа, которая удаляла лишний символ с конца.

Функция умеет работать и с флоатом, где количество знаков после запятой максимум 3, опять же благодаря (?=\d).

scalar reverse – заставляет работать reverse в скалярном котексте при использовании в списковом контексте :)

По-моему, очень красиво получилось )))

Исходник

ЗЫ: С Павлом Кудиновым сошлись на мнении, что наверня-ка на CPAN есть модуль на несколько экранов с похожим функционалом :)

use Perl or die;

JFDI

South Perl – сегодня ровно год :)

Mon, 02 Nov 2009 20:27:23 GMT

2 ноября 2008 года в Ростове-на-Дону прошел третий Российский Perl-воркшоп "South Perl".
Было в первый раз, было круто, было интересно :)

Сайт http://rpw2008.perlrussia.ru/
Выступления http://event.perlrussia.ru/rpw2008/talks
ЖЖ http://sharifulin.livejournal.com/tag/southperl
Фото http://www.flickr.com/photos/sharifulin/sets/72157608365664301/show/
Видео:

Just fun! :)

Меня все больше посещают мысли провести South Perl – 2.
Варианты Ростов-на-Дону, Ставрополь (о.О), Волгоград (на парад Победы), Краснодар (Krasnodar.pm жив?!), Сочи (это вообще пи**ец :).

use Perl or die;

JFDI

BY Perl Too Too

Mon, 26 Oct 2009 20:40:30 GMT

Минский воркшоп BY Perl Too, о котором я недавно писал, прошел успешно.
Мне очень понравилось как в Минске, так и на самом мероприятие (и, конечно, социальная часть :)

В поезде я все-таки успел подготовить 2 доклада, выступал под вечер, когда все почти устали, но слушали внимательно :)

Первый доклад про Mojo.
Получилось много слайдов, но я не обо всем рассказал, расширю доклад в следующий раз.

Mojo. Веб в коробке!

Блиц-доклад про CPAN.
Очередная версия доклада про CPAN и про сервис http://cpan.perlrussia.ru

CPAN: модули, авторы и документация

View more documents from Anatoly Sharifulin.

</div>
Организатор(ы) позаботились о wifi и некоторые доклады я транслировал в интернет через twitcam.com.
Надеюсь, скоро все выступления появятся на yapc.tv (да, Андрей?)

use Perl or die;

JFDI

ЗЫ: Твиттер лента про воркшоп:

Еду в Минск на пёрл-воркшоп http://event.perlbelarus.or... :) Ща буду доклады готовить )))11:34 PM Oct 15th from Echofon

Подготовил блиц, батареи осталось на полтора часа, нашел рабочую розетку в 6 вагоне, заряжаю :) Еще большой доклад надо подготовить11:48 AM Oct 16th from mobile web

@vtivti : @sharifulin Готовить доклад в поезде -- это очень дальновидно ;)11:56 AM Oct 16th from XMPP Gateway
@vtivti а билет покупать за 5 часов? :-)12:20 PM Oct 16th from mobile web

Я на BY Perl Too 2009 в Минске! :) Доклады готовы, выступаю в 15:50 и в конце в сессии блиц-докладах http://tinyurl.com/ygkfbjm2:05 PM Oct 17th from Echofon

http://twitcam.com/425t - BY Perl Too here! Really :)3:51 PM Oct 17th from API

http://twitcam.com/426v - Perl6::Pod #byperl20095:08 PM Oct 17th from API

http://twitcam.com/427j - dbix::class #byperl20095:52 PM Oct 17th from API

@vtivti : @sharifulin К сожалению информация немного устаревшая. В последних коммитах много нового.
@vtivti да-да, я сам офигел, когда начал делать доклад, ну надо было хоть что-то сделать :) Тем более в поезде нет инета )))8:19 PM Oct 17th from Echofon

@arthur_pokesh: Бля Толя ты крутой, не могу больше это слушать ) (@sharifulin live on http://twitcam.com/42ay)
@vtivti : @sharifulin Хорошо рассказал, жаль только я про себя ничего не услышал, отвалилась твоя трансляция на слове bootylicious :D8:22 PM Oct 17th from XMPP Gateway
@soko1: @Sharifulin во мне вызвал желание изучить MOJO (фреймворк). Благодарю за отличную лекцию!

http://twitcam.com/42gr - LT #byperl20098:43 PM Oct 17th from API
http://twitcam.com/42hh - qqq9:00 PM Oct 17th from API

Вчера ел вкусные мозги, свиные ушки и был в реальном кабаке :) Социальная часть #byperl2009 удалась. Мне в Минске нравится )1:07 PM Oct 18th from Echofon

@kraih: @sharifulin Great presentation (at least the parts i could understand). :)1:08 PM Oct 18th from Echofon

@babi4: @sharifulin посмотрел) круто) хотел бы послушать что будешь рассказывать)
@babi4 надеюсь видео не заставит нас ждать (yapc.tv), онлайн трансляция поломалась, twitcam.com подвел7:15 PM Oct 18th from Echofon in reply to babi4

Купил белорусских чипсов, еду на вокзал. В Минске круто, но очень хочется домой :) Всем спасибо: гостинице Турыст, гиду Юре и #byperl2009!7:22 PM Oct 18th from Echofon

В Минске ел борщ по-могилевски (сладкий с вкусной колбаской 10 см) и драники в горшочке. Очень вкусно и дешево :)1:30 AM Oct 20th from Echofon

Я дома, в Минске хорошо, воркшоп #byperl2009 удался. Всем привет! :)1:29 AM Oct 20th from Echofon

BY Perl Too

Thu, 15 Oct 2009 19:47:32 GMT

В субботу 17 октября 2009 года в Минске пройдет второй пёрл-воркшоп "BY Perl Too". Подробная информация о мероприятие тут.

Я, кстати, еду, сейчас собираю вещи и буду готовить доклады, впереди сутки в поезде, надеюсь успеть всё сделать и поспать :)

"Минск", use Perl, JFDI or die;

:)

Continuity и Squatting. Чат?!

Thu, 08 Oct 2009 17:46:02 GMT

Попробовал Continuity и микро-фреймворк Squatting на примере чата, где сервер – Push, клиент – long-polling.
Я разочаровался, нагрузку ни чистый Continuity, ни Squatting::On::Continuity не держат. Уже при 4-5 одновременных клиентах, которые постоянно пишут, сервер сильно тормозит :(

Пример чата на Continuity и Squatting можно найти в дистрибутиве модулей, в примерах.
Пример чата на Squatting + AnyEvent на Github.com (также тормозит).

Вообще, Squatting злая штука :)

Попробовал для реализации чата: APE (сложная штука на Си, клиент на мутулс, вообще не понравилась), Meteord (не сразу завелся, не очень), NginxHttpPushModule (как-то не так работает, плюс пару раз воркеры nginx ушли почти в 100% CPU). Не стал пробовать dklab multiplex на Event::Lib и POE::Component::Server::Bayeux.

Очень хочется попробовать сделать чат на XMPP, по-моему, это правильно :)

AnyEvent, AnyEvent::HTTP и Mojo::ByteStream

Mon, 28 Sep 2009 18:41:14 GMT

Удивление, удивление-два и привычка :)

Был удивлен, но оказывается AnyEvent/EV не позволяет выполнять вложенные condvar, получается рекурсия.
Вложенные кондвары не нужны, код легко модифицировать на работу либо с одним (самое главное send вызвать в самый последний момент, чтобы вся асинхронная работа была выполнена), либо с несколькими, тогда вызовы должны быть последовательными. Пример.

Так же был удивлён, что AnyEvent::HTTP автоматически заполняет заголовок Referer у запроса (для работы по умолчанию это лишнее) и не искейпит символы в урле (очень плохо, LWP::UserAgent и/или PoCo::Client::HTTP это делают на автомате, т.к. используют HTTP::Request).

За последнее время я так привык работать с Mojo (напомню, Mojo – pure perl http-фреймворк, "почти" без зависимостей, "веб в коробке"), что при возникновение задач вне окружения Mojo, которые связаны с перекодированием символом, не задумываясь, использую модуль Mojo::ByteStream. Например, для искейпинга символов в урле (проблема с AnyEvent::HTTP) использую следующий код:

Mojo::ByteStream->new($str)->url_escape

Для перевода html-последовательности символов вида Г в печатные символы использую следующий код:

Mojo::ByteStream->new($str)->encode('utf8')->html_unescape

Очень удобно и не надо вспоминать, в каком модуле реализован данный функционал.

use Perl or die;

JFDI

Mojo. Первый критичный баг

Sun, 20 Sep 2009 08:55:41 GMT

Нашел в Mojo критичный баг, а именно – при запуске сервера как демон-префорк (Mojo::Server::Daemon::Prefork), рабочий процесс (чайлд) падает при работе с пайпами; при запуске сервера как демон или CGI такой проблемы нет.
Подробное описание и тест в рассылке (кстати, мне там сделали замечание, как писать об ошибке). Надеюсь, что я доступно объяснил и показал баг, чтобы автор Mojo и/или кто-нибудь другой нашли решение. Сам пока не нашел.

Реальная задача, которая обнаружила это – отправка сообщения через sendmail в обработчике. Скорее всего ошибка в том, что возникает сигнал завершения потомка и он завершает работу воркера, а не пайпа.

Временное решение проблемы. Есть два варианта:

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

Mojo настолько хорош, что фикс бага должен обязательно найтись :)

UPD: Решение найдено! github.com/sharifulin/mojo/commit/416b0b15b637ed0fe8d9bf3ca3ba348e16d07f2b

Запуск проектов на AnyEvent и Mojo

Fri, 11 Sep 2009 09:07:48 GMT

AnyEvent

Запустили твиттеры всех пользователей СТАНЦИИ 2.0, о котором я писал в предыдущем посте.
Используем AnyEvent::Twitter::Stream. Сам API находится в альфа-тестировании, поэтому мы работаем так же :)

Получилось очень круто, иногда интересней, чем ЧАТЕГ :)
Пишите в твиттер и слушайте СТАНЦИЮ 2.0!

Mojo

На днях запустили Рыков.ру, это первый публичный проект, полностью написанный на Mojolicious, в качестве шаблонизатора простой php-like шаблонизатор Mojo::Template, в качестве интерфейса – daemon_prefork, в момент разработки – daemon c установленной переменной окружения MOJO_RELOAD (изменения применяются без перезапуска), профилирование – с помошью Devel::NYProf и CGI.

В тестовом режиме запустили API для Маруси. Серверная часть написана на Mojolicious::Lite + MojoX::Renderer::JSON.
Получилось очень круто и все в одном файле, всего 246 строк :)

Что можно сказать про Mojo. Нет стабильной версии, постоянно выходят новые версии без обратной совместимости, но это нормально :)
Многие фичи приходится дописывать самому, автор лоялен к обсуждению функционала Mojo, принимает патчи, фиксит баги.
Иногда меня и мои просьбы не понимает )))
В целом, мне Mojo/Mojolicious нравится, простой и очень удобный. Даже шаблонизатор мне понравился, хотя в начале я не понимал его.

use Perl or die;

JFDI

Риалтайм твиттер – риал? тайм!

Thu, 03 Sep 2009 16:59:45 GMT

У отличного сервиса Twitter есть хороший API, особенность – Streaming API, возможность получать данные из твиттера мгновенно, почти в реальном времени (риалтайм веб?).

Меня заинтересовала такая возможность, тем более есть необходимость получать статусы из твиттера всех пользователей СТАНЦИИ 2.0 (конечно, у кого есть твиттер) и отображать их на странице в реальном времени. Похожая идея реализована тут, только это видимость реального времени, т.к. делается один запрос на сервер, и постепенно по одному статусу показывается на странице, затем следующий запрос и так далее :)

На CPAN я нашел реализацию Twitter Streaming API – AnyEvent::Twitter::Stream.
С помощью модуля, действительно, очень просто получать статусы пользователей в реально времени, примера из синопсиса достаточно, чтобы быстро реализовать это.

Далее полученные статусы пользователей каким-то образом надо выводить, отдавать клиенту.
Идеальный вариант – Push-сервер и соответствующий клиент на JavaScript. Но я пока так не умею, камень преткновения – клиентская сторона (делал такое – сервер и клиент на Perl).
Я выбрал следующую реализацию (выбирал так, чтобы быстро реализовать):

простой и быстрый сервер – точно должен быть мультиплексирующий, думал о AnyEvent::Mojo (устарел, т.к. последний Mojo обратно не совместим, но подправить не сложно, просто не решился :), выбрал AnyEvent::HTTPD (заработал сразу :),
постоянно опрашивающий "тупой" клиент (jQuery решает), который выводит только новые для него сообщения,
формат данных – JSON (последнее время всегда такой формат выбираю, спасибо JSON::XS, очень быстро работает).

Вот такой код сервера получился.

Риалтайм твиттер заработал.
Но:

данный скрипт вылетает при возникновение ошибки соединения с твиттером,
ограничение в 150 запросов в час на API твиттера, иначе 401/406 ошибка.

Последнее "но" придется обходить: либо умышленно делать <= 150 запросов, либо отказаться от Stream API и использовать обычное API, которое по крону будет получать новые статусы пользователей.

Все-таки риалтайм веб еще далеко, но ближе, чем был год назад :)

use Perl or die;

Just F*cking Do It

Perl. Коротко о разработке

Mon, 24 Aug 2009 18:00:40 GMT

Если раньше для разработки простых серверов я использовал POE::Component::Server::SimpleHTTP, то сейчас мне вполне хватает Mojo или Mojolicious::Lite. Легко, просто и быстро. Заинтриговал? На этом все, привет с моря :)

Опубликовано с мобильного портала m.livejournal.com

Perl. use strict; use warnings; use features; use Modern::Perl; use common::sense;

Mon, 17 Aug 2009 19:57:38 GMT

Почти каждый Perl-программист знает, что всегда нужно писать:

use strict;
use warnings;

С выходом perl 5.10 еще и:


use features '...';

Некоторые решили, что приходится писать слишком много "буковок". Так появился модуль Modern::Perl и новая веха в развитии Perl 5, получившая одноименное название. Модуль подключает и импортирует в пространство имен прагмы strict, warnings, features и mro. Теперь скрипты должны начинаться со следующей строчки:

use Modern::Perl;

Оказывается, можно пойти дальше и написать так:

use common::sense;

Что это такое? Это почти тоже самое, что и Modern::Perl, только круче :)

use strict qw(vars subs);
use feature qw(say state switch);
no warnings;

Содержимое модуля:

sub import {
   # no warnings
   ${^WARNING_BITS} ^= ${^WARNING_BITS};

   # use strict vars subs
   $^H |= 0x00000600;

   # use feature
   $^H{feature_switch} =
   $^H{feature_say}    =
   $^H{feature_state}  = 1;
}

Преимущество – использует меньше памяти, чем другие решения.

Обоснование и подробности на CPAN'е.

ЗЫ: Вопреки всем убеждениям в своем коде не использую use warnings или -w, я научился чувствовать и понимать, почему я могу этим пренебречь в той или иной ситуации (за что большое спасибо pavel_kudinov ). Так что common::sense мне вполне подходит :)

ЗЫ2: Автор common::sense – Марк Лехманн (AnyEvent, Coro, EV, BDB).

use Perl or die;

JFDI

Perl. Коротко об AnyEvent

Mon, 10 Aug 2009 07:32:19 GMT

AnyEvent – очень крут! :)

Ссылки по теме:

Документация для новичка AnyEvent::Intro
Новое API – AE
"EV / Event /EventLib / Glib / POE / IOAsync / Irssi / Qt / Tk – я все могу" AnyEvent::Impl::*
"DBI / BDB / CouchDB – тоже могу"
"Я дружу с Coro" AnyEvent::Coro
"И Mojo мой друг" AnyEvent::Mojo::Server
Количество дистрибутивов постоянно растет AnyEvent::*
Real-time Web: AnyEvent::FriendFeed::Realtime AnyEvent::Twitter::Stream AnyEvent::ReverseHTTP AnyEvent::Atom-Stream
Чат на AnyEvent AnyEvent::MP::Intro

YAPC::EU 2009 – самое крупное Perl-мероприятие в Европе в 2009

Mon, 03 Aug 2009 07:34:03 GMT

YAPC::EU 2009 – юбилейная (десятая) европейская "другая конференция" по Perl, проходит с 3 по 5 августа 2009 года в Лиссабоне (Португалия).

На конференцию зарегистрировалось 412 перловика из 32 стран и 74 pm-групп. 3 дня выступлений и 4 дня мастер-классов. Подробное расписание. Там будут Ларри Уолл, Демиан Конвей, Брайн Д Фой, Габор Жабо, Мэт Траут и многие другие известные перловики. Россию представляют Андрей Шитов, Алекс Капранов и Руслан Закиров, каждый из них подготовил доклад :)

На мой взгляд интересные доклады:

Ларри Уолл Keynote
How Opera Software uses Perl
Про MooseX::Declare
Выступления Мэт Траута, он очень ярко рассказывает :)
How I built a modern website on Catalyst, KiokuDB and REST
Catch Me If You Can: Sugary exception handling with TryCatch.pm
Awesome things you've missed in Perl
Perl 6 ♥ the Web
Блиц-доклады

Хочется дождаться презентаций и видео с мероприятия, а в следующем году поехать на YAPC::EU :)

CPANTS – Сервис контроля для CPAN

Fri, 31 Jul 2009 11:45:27 GMT

Всем молодым и не только CPAN-авторам советую пользоваться сервисом CPANTS, сервис котроля для CPAN.

Основная фишка сервиса – это kwalitee, коэффициент качества. Такой коэффициент есть как у автора, так и у дистрибутива.
На его основе строится несколько рейтингов, графики и многопользовательская "он-лайн игра" :) (лига до 5 дистрибутивов, лига более 5 дистрибутивов и лучшее дистрибутивы).

Вот информация обо мне со слов CPANTS.

Я в лиге до 5 дистрибутивов, позиция в рейтиге 1, коэффициент качества 134.783.
Очень интересная получается игра – улучшать свой дистрибутив, увеличивая kwalitee.
Интересный параметр 5й с конца – уговорить/заставить других CPAN-авторов использовать ваш модуль :) Пока никого не уговорил.

К сожалению, данный сервис не умеет работать с дистрибутивами, у которых несколько мейнтейнеров. Так например мой дистрибутив Acme::CPANAuthours::Russian не участвует в моем рейтинге.

Сегодня решил опубликовать еще несколько своих модулей на CPAN (осталось только написать документацию и тесты :), тем самым покинув лигу до 5 дистрибутивов и потеряв первую позицию. В лиге более 5 вообще анреал выйти в топ, посмотрите сами :)

Если ты CPAN-автор, увеличь свой kwalitee, сделай цвет своей таблицы зеленым, попади в топ!
Это игра, это CPAN, это Perl!

use Perl or die;

Just F*cking Do It

Русская поддержка Perl

Thu, 23 Jul 2009 09:40:24 GMT

Меня спросили, а что можно почитать по Perl на русском, кроме книг от орейли и двух страниц на perlrussia.ru?
Ответ очень простой: мой блог и англоязычные блоги и Perl-планеты.
И смех и грех.

Действительно, что у нас есть?
Непонятный домен perl.ru, который никак не перекупить. Раньше на нем был "гламурный" сайт про Perl и форум.
Афиша мероприятий и несколько полезных ссылок на perlrussia.ru.
Старое г*вно типа perl.org.ru и статьи 2000 года, которые надо назвать: "Так писать на Perl нельзя!".
Пара форумов и ru_perl, на одном из форумов я был ко-модератором, но туда уже не захожу.
Авторский блог perl6.ru
Несколько блогов, где авторы пишут про Perl.
Заброшенный проект POD2::RU (все-таки перевод это сложная штука, особенно когда такие объемы, массу волонтеров найти не получилось, поэтому надо заказать перевод за деньги).
~200 перловиков в Москве, ~90 в Киеве, по ~25 в Ростове-на-Дону и Владивостоке, ~17 в Минске (судя по конференциям) и отличный университет в Екатеринбурге, где преподают Perl на первом курсе.

Чего нет?
Самое главное – нет официального русскоязычного сайта и планеты из русскоязычных блогов про Perl 5 и Perl 6.

Сразу возникает вопрос, как новичок может получить быстрый старт в Perl в России?
Только сам (как мы с вами, но это долго) или придя в фирму, которая готова вырастить Perl-программиста за короткие сроки (Точка кипения?!).

По-моему, это все сложно :) П*здец.

P.S. Я сам читаю 47 фидов про Perl, из них 10 на русском, наверно надо поделиться :)

PHP маст дай

Mon, 13 Jul 2009 08:54:03 GMT

Давно хотел написать пост на эту тему, но сегодня как никогда, увидел статью Котерова.
Все три шага, приведенные в ней, имеют место быть. Именно поэтому пхп-программистов большое количество, причем многие из них далеко не программисты. Снизив порог вхождения, мы имеем, что имеем: кучу некачественного кода, движки форумов/галерей и их многочисленные уязвимости. Это обратная сторона медали.

Меня порадовала фраза в статье:

профессиональные программисты на PHP не используют embedded-синтаксис, а предпочитают разделять код и шаблон страницы. Таким образом, очевидно, что embedded-синтаксис — средство завлечения новой аудитории, а не инструмент языка.

Лично у меня тут возникают несколько вопросов.
Профессионал, зачем тебе использовать PHP, если все фишки пхп не используются?
MVC – это убийца PHP как такового, зачем тогда его использовать?
Может быть для того, чтобы написать свой "пхп" на С++, оставив php-шные урлы как Facebook и/или ВКонтакте?

Что такое PHP? Это миллион функций и никакого синтаксического сахара, никакой гибкости, все просто и тупо, все просто, чтобы сделать несложный сайт. Даже консольные скрипты не попишешь на нем, потому что будет через ж*пу :)
PHP – это крутой embedding-синтаксис, который "профессионалы" не используют, это простые формы, который "профессионалы" не используют, это ошибки в браузере, которые "профессионалы" не могут позволить себе использвовать, и это у*бищный синтаксис в неймспейсах (назову я его windows-like), который обсуждают "профессионалы" и индексируют мега-профессионалы :)

Если ты профессионал, или хочешь им быть, тебе это не нужно, тебе не нужен PHP!

У меня есть две цитаты по поводу PHP:

На пхп программируют только лохи

Пхп как шансон, никому не нравится, но все слушают

От слов к делу. А именно к коду.

Я столкнулся с пхп-скриптом, который постит треки из ротации на Last.fm. Да-да, именно Last.fm Ыubmission. Ко мне обратились как профессионалу в этом деле :) (напомню, я автор Net::LastFM::Submission)

Итак, это был консольный скрипт на PHP, который читал данные из файла и постил их на Last.fm.
Код из разряда говнокода, написан так – лишь бы работал. Тут я сразу вспомнил формулировку write-only, которую прекрепили к Perl.
Если на сегодня есть write-only язык программирования, то это PHP!

Почему-то сразу решил расставить ворнов, чтобы разобраться как скрипт работает. Тут я столкнулся с тем, что PHP и warnings не совместимы :) Сначала я нашел очень интересное решение писать сообщения в STDERR – через php://stderr. От самой конструкции я очень долго смеялся (URI-схема php – это сильно). Затем я написал функцию warn для PHP (real Perl PHP warn):

function warn($msg) { fwrite(STDERR, substr($msg, -1) == "\n" ? $msg : $msg.' at '.__FILE__.' line '.__LINE__.".\n"); }

Всем пхп-профессионалам рекомендую использовать такую функцию :)

Далее я решил сделать глобальную переменную, куда планировал вынести все настройки скрипта. Но не тут-то было, в PHP глобальные переменные не так работают как в Perl без use strict. Чтобы сделать ее видимой, например, в функции, надо использовать global. Ааа, как все сложно :)

Затем я поразился от синтаксиса создания хеша: array( key => value, ... ). Даже в JavaScript проще можно.
Конечно, может быть я в PHP чего-то не знаю (а я и не знаю), но такое решение – полный п*здец, его, наверно, используют 99% новичков. "Профессионалы", вы видели как это делается в Perl? :)

Очень позабавили функции работы с датами и с таймзонами.

Зато есть функция trim – на Perl это максимум 3 регекспы, причем простых, очень простых.
Насколько мне известно, большинство пхпшников боятся, очень боятся регекспов. Я даже знаю почему: это жутко неудобно в PHP!
Проще и круче, чем в Perl, регулярных выражений не найти. "Профессионалы", а вы используете регекспы?

Добило меня: включение класса работы с Last.fm в исходник скрипта, зато все коменты автора класса и права сохранены.
И тут новая волна говнокода.

Количество переменных поражает глаз, такое ощущение, что все из переменных, а где код?
Чтобы сделать GET-запрос используется мега-функция file_get_contents, а чтобы сделать POST-запрос используются сокеты, чистые сокеты. Это что получается, чтобы сделать POST-запрос в PHP я должен быть "профессионалом"?

Это очень сложно, это очень write-only, это п*здец, PHP – это п*здец. Извините, "профессионалы".

Аналогичный код на Perl пишется на много проще, поверьте мне :)

ЗЫ: Для меня Дмитрий Котеров когда-то был иконой веб-разработки, с денвера, форума на dklab.ru и куроводств я начинал, я делал так же: "Generation time: 0.04 s GZip enabled: 9516/23684 (60%)". Затем я забыл про него, научился программировать на Perl, вспомнил про его модули CGI::WebIn / WebOut, посмотрел исходники и офигел, такого говнокода на Perl от него я не ожидал, это ужас. Потом я понял, что Дмитрий увлекся PHP, мне стало все понятно. Он выпустил пару книг, сделал МойКруг. Он профессионал, не спорю.

Но! PHP – это зло!

use Perl or die;

Just F*cking Do It

UPD: Придумал новую цитату:

Любишь себя, не пиши на пхп

Perl. MooseX::Declare

Wed, 08 Jul 2009 18:58:08 GMT

Второй день уже мучаю MooseX::Declare, постоянно посматриваю в презентацию.
Получается интересно, уже 4я версия кода, с каждой версией абстракция растет и количество килобайт тоже :) Но голова болит еще больше, приходиться "иначе" мыслить, чем прежде.
Пока нравится то, что много интересных фишек (например, собственные типы, классы со вложениями и указания имен как ::Bar, а не полные Foo::Bar, lazy-дефолтные поля), код заставляет тебя не ошибаться, где-то что-то упустил и все п*здец, не работаить :)
Сейчас столкнулся с одной проблемой, сразу не стандартизировал поле, посчитал его произвольным и теперь мучаюсь с разными форматами. Завтра собираюсь написать 5 версию и избавиться от этого. Постоянный рефакторинг – это круто, метки типа XXX и FUCK решают.

Чувствую себя ModernPerl'истом :)

Perl. Cache::FastMmap побаловаться, но не использовать

Mon, 29 Jun 2009 13:40:23 GMT

Года два назад наткнулся на модуль Cache::FastMmap, документация очень впечатлила, по-моему, именно в таком стиле надо доку писать!
Попробовал заюзать этот модуль, все хорошо, работает, на синтетических тестах показывал хорошие результат.
Я даже подумал, что memcached мне нужен.
Но со временем при увеличение нагрузки, процессы при обработке определенных запросов стали уходить в D (uninterruptible) и все подвисало, иногда так, что даже залогиниться не получалось :) Временное решение сразу нашлось – перезапуск процессов, если D много. Уже хотел начать профилировать код, но вспомнил про Cache::FastMmap.
Убрав его, все наладилось, пока D ни разу не было. Профилированием обязательно займусь, Devel::NYTProf, ты готов? :)

Perl. POE or not POE

Thu, 25 Jun 2009 14:44:30 GMT

Я довольно быстро стал писать на POE различные простые мультиплексы, даже не смотрю в документацию :)
Так, например, сегодня пришлось написать микро-скрипт, который пробежится по базе твиттер-пользователей и проверит их аватары (многие урлы стали невалидными и Амазон очень красиво говорит 404 в виде XML). Скрипт я написал на POE, хотя знаю все недостатки его и есть опыт работы с AnyEvent, IO::Lambda, даже Coro + Coro::Mysql. Меня устраивает скорость разработки, но с другой стороны я понимаю, что надо от него уходить. Как перестать писать на POE? (свой мультиплекс писать я не буду :)

POE или не POE. Вот в чем вопрос :)

Ax, Perl, сколько задач приходиться решать на работе, не связанных с тобой :)

Tue, 23 Jun 2009 14:33:45 GMT

По другому этот пост не назовешь.

Прошла неделя и Perl'а было совсем немного, зато очень много оптимизации MySQL, настройки nginx, тонкой настройки, мониторинг графиков Munin'а, написание JavaScript'а, даже на PHP пришлось пофигачить (об этом следующий пост, обещаю, ой, как я плевался, монитор несколько раз протирал :).
Меня несколько раз спрашивали: "А правда, что Perl – write-only?!", мои следующие посты обязательно ответят на этот вопрос.

Вернусь к теме простых и функциональных скриптов на Perl.
15 минут и 37 строчек кода позволяют осуществить трансляцию RSS с поиска по блогам от Яндекса.
По-моему, очень просто, парсинг RSS вообще не составляет труда, используя XML::Feed.
Структура сообщений не позволила использовать ту же таблицу для проверки уникальности записей (обычно: unique id + insert ignore), поэтому Storable в помощь.

Единственное: в отличии от Твиттера, поиск по блогам не риал-тайм, поэтому опираться на дату создания поста было нецелесообразно, многие посты тонули в бездне ЧАТЕГА :) Поэтому они раскидываются с минутным интервалом.

use Perl or die;

JFDI

CPAN: modules, authors and documentation

Sat, 13 Jun 2009 11:58:59 GMT

Hello, Iron Man! I have a good time during my hollyday (beer + Black sea + gprs), but I ought to write post to the Iron Man Planet :) I want to present my service – http://cpan.perlrussia.org. It is best service for CPAN, try it. Thanks Acme::CPANAuthors and Perl 5.10 :)

Привет, Iron Man! Хоть я отлично провожу время на отдыхе (3 дня выходных, Точка кипения на море :), но япомню об Iron Man :)
Хочу рассказать о CPAN-сервисе, который недавно разработал – http://cpan.perlrussia.org.

Блиц-доклад в Норвегии на NPW2009 и 20-минутный доклад на YAPC::Russia 2009 стимулировали разработку сервиса для CPAN-авторов.
Получить RSS по авторам конкретной страны или по определенному автору стало очень легко. Так, например, RSS русских CPAN-авторов – http://cpan.perlrussia.ru/Russian/rss.xml (недавно на сайте Moscow.pm стал выводится этот фид) или RSS моих публикаций на CPAN – http://cpan.perlrussia.ru/Russian/SHARIFULN/rss.xml . Также на сервисе есть различные CPAN faces. Спасибо Acme::CPANAuthours::* и Perl 5.10 :)

Руслан Закиров решил помочь с поиском поддомена на cpan.org. Обсуждение имени в рассылку Mocsow.pm. Круто :)

Планы: сделай различные RSS для отслеживания модулей по ключевому слову и трансляция в твиттер.

Подписывайтесь в Google Reader, регистрируйте и обновляйте свои подможества Acme::CPANAuthors и будьте счастливы )))

use Perl or die;

JFDI

Совсем немного Perl. IronMan ждет :)

Thu, 04 Jun 2009 16:53:52 GMT

Подошло время писать про Perl для Iron Man. Так сложилось, что на неделе совсем мало перлом занимался, я все-таки веб-разработчик :), либо :(

Perl за неделю.

Поучаствовал в обсуждении шаблонизаторов, ребята переписали Рамблер-почту с шаблонизатора HTML::Template::JIT (который продвигал Алекс Капранов :) на HTML::CTPP2. Я соглашусь с тем, что последний быстрый, даже очень быстрый, функциональней (из всех HTML::Template), но на мой взгляд ощутимого прироста не будет. Лично меня в HTML::Template'ах не устраивает невозможность создавать динамические структуры, которыми я постоянно пользуюсь, ну и руки связаны (возможно, это дело привычки). Поэтому на сегодняшний день мой выбор – TT. Все больше посматриваю на "PHP-подобные шаблонизаторы" такие, как Mojo::Template и Text::Template::Simple.

Решил перевести многие проекты на Mojo. Тяжело переписывать (чисто морально). Это того стоит. Очень красиво все получается. Созревает новый блиц-доклад: "Apache – зло?!". Пока о Mojo все :)

Зацепила презентация про MooseX::Declare. Раньше я спокойно относился к Moose и ко всей шумихе вокруг него. Но теперь готов попробовать MooseX::Declare в деле :) Ищу подходящий пример.

Хочу возобновить работу над Padre и POD2::RU :)

И последнее. Очень порадовал тот факт, что флешмоб "поднять рейтинг Perl в Google App Engine" удался, сейчас 1709 голосов и второе место (когда я брался за дело было 15хх и третье место). Спасибо всем, кто откликнулся. По-моему, Perl не заслуженно списывают со счетов "дроздики", хотя мне на них все равно, но за общественное мнение обидно.

use Perl or die;

JFDI

Perl. Simple scripts for life

Tue, 26 May 2009 14:18:32 GMT

Synopsis: I'd like to write a simple script for job/life. 15-20 minutes and task is done. For example, yesterday and today.

Мне нравится писать короткие, простые скрипты на Perl, которые решают большие или существенные задачи.
15-20 минут и задача решена, скорость поражает, а сил уходит совсем немного, даже если предметная область до написания скрипта была неизвестна.

Я совсем не против социализации :)
Поэтому первый пример – поиск по твиттеру и агрегация с обшей лентой и второй пример – разбор JavaScript объекта и генерация plist.

Даа, не Modern Perl, можно подумать и написать лучше, но хочется научиться писать быстро и качественно.

ЗЫ: надо опубликовать на CPAN свои модули DBI::Util и XML::Util

UPD:

Немного Perl. Скринкаст takahashi2pdf

Sat, 23 May 2009 16:01:47 GMT

Synopsis: takahashi2pdf – convert takahashi presentation to PDF on Mac OS X (used Firefox with Full FullScreen extention, screencapture and Automator), see screencast and code

На конференции YAPC::Russia 2009 "May Perl 2" у многих были Такахаси-презентации (takahashi).
Создание таких презентаций не составляет особого труда, отлично воcпроизводить их Firefox.
Как такие презентации загрузить на Slideshare.net?

Я решил эту задачу весьма просто.
Писать свой анализатор taka-презентаций не хотелось (масштабирование, форматирование, поддержка css, js, мультимедиа) и лучше Firefox'а быстро не получится, решил воспользоваться Firefox'ом (с расширением Full FullScreen) и скриншотом. К сожалению, полностью автоматизировать процесс не удалось, т.к. я не понял как управлять из консоли Firefox'ом. Зато скриншотами на Mac'е – легко. Из полученных изображений при помощи Automator легко сделать итоговый PDF.

Смотрим скринкаст takahashi2pdf (скринкаст сделал при помощи отличной программы iShowU HD):

Монтировать видео не стал, т.к. Final Cut требует 50 гигов, у меня свободно всего 37, как-нибудь в следующий раз :)

Код управляющего скрипта и автоматора доступен на github.com.

Без Perl не обошлось :) Нужно было полученные изображения переименовать так, чтобы автоматор их выстроил в верном порядке.

Возможно, есть проще способ сконвертировать takahashi в PDF (какой?), но я решил задачу быстро и "в лоб".

ЗЫ: Это мой первый скринкаст, переснимал 3 раза :) Скринкаст получился почти на 5 минут, эдакий он-лайн блиц-доклад. В скринкасте я использовал презентацию Владимира Перепелицы "AnyEvent" или "Юлий Цезарь Perl"

Perl. YAPC::Russia 2009 "May Perl 2". Нет фидбека, есть гольф и первое видео :)

Thu, 21 May 2009 17:48:52 GMT

На круглом столе я был возмущен, что все хотят будущего для Perl, но никто не пишет в блоги про Perl и на Perl.
Я призвал писать в блоги, пропагандировал JFDI от Iron Man.

Но что получается: прошла конференция, на мой взгляд очень все здорово получилось, было много фана, интересных докладов и выступлений, пара экспромтов и, конечно, круглый стол, но никто (почти никто) не пишет о конференции в блогах, либо Яндекс.Блоги плохо индексировать стал :)

Сегодня Андрей Завьялов, организатор Perl-гольфа, выложил все решения гольфа.

Видео с конференции снимали две камеры, все еще монтируется.
Поэтому – "экранка" моего доклада "CPAN: модули, авторы и документация":

Пишите в блоги про Perl, про события, связанные с Perl, про то, как у вас что-то получается или чем вам не нравится Perl, главное – писать.

use Perl or die;

Just F*cking Do It