bless $this, Blog

Слив локального DNS кэша

2011-10-20T13:05:00.000+03:00

Когда таскаешь свою ноут со всякими Ораклами, сайтами на IIS и т.д. по разным сетям,

То команда:

ipconfig /flushdns

просто спасает жизнь.

Perl’овщики – самые сквернословные среди программистов

2009-11-26T18:21:00.000+02:00

Вот так вот, даже круче чем Сишники ;)

Subtitle mixer

2009-11-14T15:46:00.003+02:00

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

Для решения этой проблемы, я очень быстро создал скрипт на Perl, который переводит и смешивает субтитры через Google Translate с английского языка на русский. Таким образом, сверху у меня есть английский вариант – а снизу – машинный русский перевод.

Выглядит примерно так:

132
00:09:28,680 --> 00:09:32,615
Call me back?
Yeah, yeah. You, too.
Перезвоните мне? Да, да. Ты тоже.

Скрипт сырой и не доработанный, и для перевода каждой реплики делается отдельный запрос на Google Translate, поэтому работает долго. Но, мою проблему он пока решил и дорабатывать скрипт я не планирую.

Для запуска меняем значение переменной $source_file на исходный английский файл субтитров.

my $langpair = "en|ru";
my $dest_text = "";
my $source_file = 'State.Of.Play.2009.DvDRip-FxM.srt';

А output редиректим на целевой файл:
perl subtitle_mixer.pl > my_State.Of.Play.2009.DvDRip-FxM.srt

Ссылка на исходные коды скрипта.

Perldoc и чувство юмора ;)

2009-10-22T23:43:00.001+03:00

Как показывают наблюдения, с чувством юмора на Perldoc все в норме :)
Вот такой вот дескрипшен для оператора goto:

Поддержка Perl будет добавлена в Google Android

2009-08-24T21:39:00.003+03:00

Как сообщает PerlBuzz, поддержка Perl будет добавлена в операционную систему для мобильных телефонов – Android.
Запрос на добавление Perl уже был принят (FIXED). И код для поддержки Perl уже был добавлен в ветку разработки ASE (Android Scripting Environment). Это означает то, что со следующей стабильной версией ASE мы увидим поддержку Perl.

Подробнее можно прочитать тут:
PerlBuzz :: Perl coming to Android phones

A Href / Codepad - Online компилятор/интерпретатор кода

2009-08-24T02:05:00.004+03:00

Хочу поделиться ссылкой на интересный сервис – Codepad, который умеет компилировать/интерпретировать код онлайн. Я попытался повесить сервис при помощи простеньких скриптиков на Perl – по не получилось. А еще говорят, что Перл «опасный» и «не контролируемый» – это бред.

Блин, прикольная штука этот Джуик

2009-06-16T23:21:00.002+03:00

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

Кому интересно, валкам на Джуик: http://juick.com/
Вот такой микропост про микроблог :)

От нашего Гуглридера – Вашему. RSS-ки по Perl

2009-06-10T00:38:00.002+03:00

Решил почистить свой гуглридер. Выживут только самые интересные, и тогда живые RSS-ки позавидуют мертвым (мда… что-то меня понесло).

RSS ленты, посвященные разработке на языке Perl:

jshirley
Интересный блог Perl разработчика, пишет на Perl, использует Catalyst. Интересный блог, заслуживающий быть упомянутым первым.

Catalyst Web Framework mailing list
Пожалуй, самый удобны аггрегатор почтовых рассылок. Пока что я этот сервис использую только для чтения рассылок по Catalyst.

$perl->buzz
Один из немногих крупных и популярных ресурсов для Перл разработчика. Регулярно публикуют интересные новостные посты.

One Mo’ Gin
Заметки про Perl, Catalyst, разработчик Chart::Clicker.

Scroll - Webquills.net: Better Perl for a Better Web
Perl и веб разработка на Перл. Интересные посты про различные фишечьки языка, фреймворки и прочие.

Amazing Perl
Интересные эксперименты и исследования, вместе с извращениями над языком Perl. Интересно почитать для тех, кому хочется узнать, что можно делать с Perl’ом по назначению и не только. ( // какую-то фигню написал :)

Infinity Perl
Как пишет сам автор: Infinity Perl : slack-get, Perl, Qt, KDE, Open source, etc. что еще можно добавить?

use strict ;#)
Да, да! Первое правило Перловщега! Всегда use strict; :)
Кроме того это хороший ресурс, известный своими Perl Crash Course’ами по различным языковым аспектам.

Perlsphere
Аггрегатор Перловых блогов. Кучка хороших, качественных блогов для Перл разработчиков.

Planet Perl Iron Man
Не просто кучка, а аггрегатор огромной куу-у-учищи перловых блогов :)

zag's personal blog
Стоит подписаться только потому, что этот человек знает как сбилдать Rakudo под FreeBSD. ;)

Rubric: rjbs's entries with a body
Около линуксовые, околожизненные и околоперловые заметки.

::Ворота в Perl::
Русскоязычный качественный блог по Perl.

netCUBED Blog
Блог по веб-разработке на Perl, базам данных, DBIC, Catalyst и как это все делать под Mac ;)

Shadowcat Systems Limited
Это самый энергичный Perl-разработчик :). Вы бы видели записи его видео докладов :))

Блог Джакала
Русскоязычный блог по разработке на Perl и Catalyst

Jeremy Mates’s Blog
Блог Perl-разработчика. Пишет про самые различные аспекты программирования на Perl. Блог ведет и июля 2006-го года, интересных материалов – куча.

i’m a lumberjaph
Фух, сколько же этих Перловщиков. Задолбываюсь писать одно и тоже :).
Но, и это не исключение, да, блог перл-разработчика.

Perl Ideas
Да, да, вы не поверите, но это еще один блог Perl-разработчика. Интересные посты и совету по программированию на языке Perl.

Фух, собрал тут всех, на мой взгляд, самых интересных. Поудалял у себя целую кучу скучных и редко обновляемых фидов. Если у вас есть что добавить – делитесь ссылками в камментах ;)

Видео доклады по Perl, Linux, FreeBSD, СУБД на FOSSLC

2009-06-08T23:11:00.002+03:00

Только что нашел замечательный ресурс -- FOSSLC (Free and Open Source Software Learning Center), содержащий бесплатные видео доклады по веб программированию, *nix’овым Осям, работе с базами данных.
Ресурс англоязычный, но так как доклады технической тематики, то все прекрасно понятно.
Формат представления презентации мне показался очень удобным, так как вместе с фейсом докладчика, синхронно идут слайды презентации, кроме того, можно перемещается на произвольный слайд.
Выглядит так:

Ссылка на список докладов:
http://hosting3.epresence.tv/fosslc/1.aspx

Почему на Catalyst так не рекомендуют использовать под голый CGI

2009-05-27T22:53:00.002+03:00

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

Я думал как, напишу сейчас небольшой собственный движок для блога, за это время добавлю в него контента, а к этому времени уже и на более приличный хостинг можно будет потратиться, и тогда, не переписывая код моего движка мне можно будет запустить его и под FastCGI, ведь Catalyst, собственно спроектирован для работы в многопоточном режиме, а однопоточный – это как частный случай многопоточного (ух, закрутил).
Но, не тут то было.

Во-первых, Catalyst жрет много ресурсов и времени при инициализации. В CGI режиме эта инициализация проходит при каждом запросе – в многопоточном (FCGI/Mod_perl), в зависимости от настроек, может происходить вообще один раз только при старте приложения. Ну, да ладно, к этому я был готов.

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

В третьих, оказалось, что мое приложение, работающие в режиме CGI, инициализировалось при каждом запросе. Похоже на пункт один :). Но, при каждом запросе любой картинки, или другого статического файла. Соответственно, при запросе каждой картинки инициализировался не только Catalyst, но и новое соединение с БД, после чего мой MySQL сервер куда-то уходил :(. Это можно было исправить, но было последней каплей. Под CGI на Catalyst писать нельзя.

Простой RSS аггрегатор на Perl + Catalyst

2009-05-14T13:50:00.002+03:00

Очень интересная серия статей про то, как создать простой аггрегатор на Perl и Catalyst:

Following matt’s post about people not blogging enough about Perl, I’ve decided to try to post once a week about Perl. So I will start by a series of articles about what we call modern Perl. For this, I will write a simple feed agregator (using Moose, DBIx::Class, KiokuDB), some tests, and a basic frontend (with Catalyst). This article will be split in four parts:

the first one will explain how to create a schema using DBIx::Class.
the second will be about the aggregator. I will use Moose and KiokuDB.
the third one will be about writing tests with Test::Class.
the last one will focus on Catalyst.

Вот что получилось:

Исходный код сего творения можно скачать с github: http://github.com/franckcuny/ironman-myfeedreader/tree/master

Заметка про Moose на Хабре

2009-05-13T20:26:00.002+03:00

Только что опубликовал заметку про Moose на Хабре.
Перед публикацией, решил заменить слова члены-переменные на свойства.

Весело было искать члены в заметке: ;)

Юмор / Perl делает людей счастливыми ;)

2009-05-13T01:37:00.002+03:00

Да, прямо как наркотик :)
По результатам одного твитерологичеческого исследования, было установлено, что люди, программирующие на Perl самые счастливые ;)
The Programming Language with the Happiest Users

Читая этот пост, наткнулся на еще одну писькомерку языков программирования:
Programming Language Popularity

A href / Полезные RSS ленты для Perl программиста

2009-05-12T20:13:00.000+03:00

Примерно месяц–полтора началось блоггерсоке соревнование IronMan. Смысл – публиковать новые материалы про Perl, которые будут аггрегироватся в одной ленте.
Посмотреть и подписаться можно тут: Planet Perl Iron Man

И еще один полезный аггрегатор: Perlsphere

Вот и вышел Catalyst 5.8001

2009-04-19T13:39:00.001+03:00

В данном случае, это очень значимый релиз, который, я думаю, может определить дальнейшее развитие фреймворка. Это стабильный релиз, который уже доступен на CPAN.
В основном, отличие ветки 5.8 от предыдущей 5.7 в том, что все модули пакета Catalyst-Runtime были переписаны под Moose – ООП расширение для Perl 5, которое делает его похожем на будущей 6-й Перл.
Я сам немного скептически отношусь к Moose. С одной стороны, на нем пишется четкий и понятный код, он более декларативный, сравнительно с родным Перловым ООП, но с другой стороны, он не родной для 5-го Перла, книг, даже англоязычных, по нему нет, и приходится изучать по слайдам, туториалам, и тестам.
Но, чтобы использовать Catalyst 5.8, вам не нужно изучать Moose. Moose обеспечивает полную обратную совместимость с родным Перловым ООП. А значит, и новый Catalyst совместим с вашим уже существующим кодом.
По сути, это тоже самое, что и старое доброе Перловое ООП, но засыпанное кучей синтаксического сахара.
Единственный негативный момент – это зависимости. Да, если вы будете требовать в своем приложении Catalyst 5.8, то он потянет за собой довольно таки не маленький Moose.
С другой стороны, если вы будете использовать PAR для разворачивания Catalyst приложений на продакшен сервере, то проблем у вас будет не много, и много времени это не займет.

На счет производительности пока что сказать ничего не могу, будем тестировать.
Более подробно об изменениях в ветке 5.8 можно прочитать тут.

Catalyst и shared хостинг под FreeBSD (для виндузняков)

2009-04-18T19:17:00.006+03:00

Недавно купил себе обычный shared хостинг. Ничего особенного, 100 Мб места, пару баз MySQL и стандартный дистрибутив Perl.
Я хочу создать небольшой движок блога на Catalyst, и установить его там. Я понимаю, что люди говорят, что Catalyst – это не для работы под CGI, но все же, ради эксперимента, я хочу выяснить, насколько это так.

Ограничения:

CGI – говорят, что будет тормозить ;). Никакого FCGI, mod_perl нет (и не будет)
SSH доступа у меня нет. Только FTP;
Я не могу установить новые перловые модули обычным способом, через команду cpan. Я не могу скопировать существующие XS (бинраные) модули вместе с проектом, так как моя рабочая система – Windows.

Задача:

Скопировать приложение со всеми его зависимостями на сервер. Все XS модули должны быть собраны под конкретную OS сервера.

План действий следующий:

Узнаем что там за операционка на сервере
Качаем ее дистрибутив и ставим на виртуальную машину
Допиливаем проект, чтобы он запустился на виртуалке и качаем проект со всеми зависимостями на сервер.
Настраиваем, запускаем и радуемся ;)

Операционная система, установленная на сервере

Если бы у меня был ssh, то я бы просто ввел команду:

uname –a

Которая бы вывела мне практически всю интересующую меня информацию, но так как SSH у меня нет, то пришлось написать небольшой скрипт, который и запускал необходимую команду на сервере:


#!/usr/local/bin/perl
print "Content-type:text/html\n\n";
print `uname -a`;

Вот то, что мне было необходимо:

FreeBSD s11.[% hostername %].com 6.4-RELEASE FreeBSD 6.4-RELEASE #0: Wed Mar 4 01:31:21 MSK 2009 root@s11. [% hostername %].com:/usr/obj/usr/src/sys/S14 i386

Да, как ни странно это оказалась FreeBSD ;) Я без проблем скачал дистрибутив, и установил его на VirtualBox. Хоть я и видел живой FreeBSD три раза в жизни, но инсталляция особых трудностей не составила.

Установка Catalyst

Каталист лучше устанавливать из портов, как написано в мануале:
http://cpan.uwinnipeg.ca/htdocs/Catalyst-Runtime/INSTALL.html

FreeBSD
FreeBSD users can get up and running quickly by typing cd /usr/ports/www/p5-Catalyst-Devel && make install, or portinstall p5-Catalyst-Devel if portinstall is installed on your system.

Можно также воспользоваться
portinstall www/p5-Task-Catalyst
Которая установит наиболее популярные модули, но я не хотел тратить время, и установил только все самое необходимое.
Опять же, установка Catalyst под FreeBSD прошла без всяческих затруднений.
Я запустил проект на своей виртуальной FreeBSD, и теперь мне необходимо перенести его со всеми зависимостями на сервер моего хостера и запустить там.

Перенос Perl-проекта, со всеми зависимостями

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

Ставим PAR (Perl Archive Toolkit)

# cpan PAR
# cpan PAR::Packer

Добавляем строчку catalyst_par(); в Makefile.PL проекта на Catalyst:


# IMPORTANT: if you delete this file your app will not work as
# expected.  you have been warned
use inc::Module::Install;

name 'MyApp';
all_from 'lib/MyApp.pm';

requires 'Catalyst::Runtime' => '5.7014';
requires 'Catalyst::Plugin::ConfigLoader';
requires 'Catalyst::Plugin::Static::Simple';
requires 'Catalyst::Action::RenderView';
requires 'parent';
requires 'Config::General'; # This should reflect the config file format you've chosen
                 # See Catalyst::Plugin::ConfigLoader for supported formats
catalyst;

install_script glob('script/*.pl');
auto_install;
catalyst_par();
WriteAll;

И создаем par-архив:

# perl Makefile.PL
# make catalyst_par

У меня появился архив my_app_name.par, это обычный .tar.gz архив, который я перенес на свою хост-машину, и уже там распаковал и залил на сервер хостера.

Запуск Catalyst в режиме CGI

Для того, чтобы Catalyst запустился в режиме CGI, необходимо использовать загрузчик из script/ myapp_cgi.pl
Для переадресации всех запросов этому загрузчику, в корневой папке сайта (Аля public_html) необходимо создать файл .htaccess со следующим содержимым:


Options +FollowSymLinks +ExecCGI
RewriteEngine On
RewriteCond %{REQUEST_URI} !^/?cgi-bin/myapp/script/myapp_cgi.pl
RewriteRule ^(.*)$ cgi-bin/myapp/script/cgi.pl/$1 [PT,L]

И если вам повезет, так же как и мне, то после того, как вы введете адрес вашего сайта, то увидите стандартную стартовую страницу Catalyst, а это значит, что it's alive!

В будущем, я хочу добиться более оптимального и автоматизированного процесса разворачивания, но, пока работает и так ;)

Юмор / Древнеегипетские регулярные выражения

2009-03-24T23:19:00.002+02:00

Вот такие вот были регулярные выражения еще задолго до нашей эры (до 1970 года, наверно :). Сурово.

Источник тут: http://punxter.com/pic/ancient-egyptian-regexp

Юмор / Жутко стыдно

2009-03-22T23:25:00.000+02:00

Недавно нашел в старом своем скрипте, который уже давно живет в репозитории заказчика в комментариях слово “fuck”. Теперь, если я его удалю и отправлю коммит, то это станет сразу же заметно.

Надеюсь, что никто не будет смотреть во внутрь этого скрипта, а если посмотрит – то мне будет жутко стыдно ;)

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

Use Perl::Mova qw[ 2 ]; # perlmova2009

2009-03-12T00:22:00.003+02:00

Сразу же после завершения второго украинского воркшопа, хотел забабахать пост со своими впечатлениями, но как-то не получилось. Сейчас же есть свободное время, точнее нет желания делать что либо другое ;)

Первое что хочу сказать, так это то, что собравшихся перловщиков было много ;) Их бы было еще больше, если бы те люди из первого ряда не пошли на перекур :)

Из того, что впечатлило. Во первых это доклады от Джонатана... нет, не произнесу эту фамилию правильно, и поэтому напишу как в оригинале Jonathan Worthington :) и Питера Эдвардса. Первый, Джонатан, пообещал что бета, ну хотя бы такая маленькая беточька 6-го Перла будет к концу этого года. Ловлю его на слове. Питер, удивил той супер отрепетированностью приложения, над которым он работает. Сложность была в том, что это приложение, которое реально используется в BBC состоит из админ. части и самого ядра, так вот админ. часть (GUI) работает под Виндами, в то время, как серверная часть под Unix и без иксов. Так вот, тесты для его приложения одинаково хорошо запускаются под различными операционными системами. Да, это не так просто объяснить, нужно увидеть :)

Еще запомнился доклад Алексея Капранова, про гуманитарный менеджмент. Это серьезный доклад. А вот его доклад про CAPCHA был очень веселым, там было все, от степени защищенности капчи, яндекса и яху, до порносайтов и людей которые зарабатывают на жизнь набором капчи. Наверное, прибыльный бизнес :)

Конечно же, доклад Дмитрия Карасика не оставил равнодушным никого. Он рассказывал о многом, плавно переходя от теме к теме. Было и о создании DSL на базе Перла, и о оптическом распознавании текста(OCR) при помощи регулярных выражений, о том как хачить перловые OP-коды и про ангельскую функцию amb и демоническую demonic.

По веб разработке рассказывали мало. Был доклад по фреймворку WebDAO от Александра Загацкого, хорошая разработка, но мне лично она показалась немного устаревшей. Автор (доклада и платформы) сам признался, что начал разрабатывать ее вроде в 2001 — 2002 году. Тогда, несомненно, технологий позволяющих абстрагировать код от среды выполнения было очень мало. И контрастом к этому докладу был лайтинг от Вячеслава Тихановского про молодой, но очень резвый веб фреймворк Mojo. Это даже не веб фреймворк, а фреймворк позволяющий строить свои фреймворки.

Вот, интересная фотка получилась с доклада Максима Вуйца:

Собственно да, все мы такие – одержимые!

Спасибо Moscow.pm за организацию воркшопа. Спасибо GlobalLogic за G-Club.
Спасибо всем докладчикам за действительно интересные доклады. Было весело :)

Посмотреть презентации можно тут: http://event.perlukraine.org/upw2009/talks
Видео с воркшопа, скорее всего будет на http://www.yapc.tv/, но вот только когда это будет – не знаю. Мне так кажется, что через неделю – две.

Спасибо Максу за фотки с воркшопа. Кстати, за обновлением видео/аудио материалов можно следить в вики воркшопа.

A href / FastCGI-приложение на Perl

2009-03-01T01:59:00.001+02:00

Замечательный туториал от Михаила Иванова (m_ivanov) о том, как писать под FastCGI на Perl и зачем это нужно:

FastCGI-приложение на Perl. Часть первая.
FastCGI-приложение на Perl. Часть вторая.

Ждем продолжения ;)

print join " ", Perl => Links or die;

2009-02-26T21:36:00.001+02:00

В Rakudo, интерпретаторе Перла 6, пофиксили много ошибок, и сейчас интерпретатор проходит более 7000 тестов по спецификации языка. Это сообщает JonathanWorthington, разработчик, и, не побоюсь этого слова, Евангелист 6-го Перла.
Более подробно можно почитать тут:
Rakudo: More bugs squished, over 7000 passing spectests

Между прочем, этот человек будет готовит доклад на воркшоп Perl Mova 2009, который пройдет 7-го марта в Киеве.

А вот интересный и полезный пост, посвященный так называемым однострочникам в Перле. С объяснениями как и почему оно работает: Famous Perl One-Liners Explained, Part I

Скринкаст, посвященный великому и могучему NYTProf, профайлеру перлового исходного кода: NYTProf talk at LPW 2008
И еще одна ссылочка в тему: Amazing Perl profiling with perl -d:NYTProf

И, в завершение, полезная ссылка на очень полезный блог человека, работающего с Perl веб-фреймворком Catalyst в связке с DBIx::Class

Юмор => Следуй за мной!

2009-02-24T23:19:00.002+02:00

Получив это письмо, я просто не могу не ответить:

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

Уважаемы президент, если вы читаете этот пост, то я написал для вас небольшой стих. Он без рифмы, но зато написан на Перле. Вы можете убедится в том, что он компилируется, прогнав исходный код через любой имеющийся у вас под рукой интерпретатор Перла.
Но, не будьте слишком строгим (не надо добавлять use strict в первую строчку скрипта)


HEY: $you = president, bless [ Ukraine ];
    do your, work; not wait for  [ others ];
    my $president, listen ( people, [ many => times ] )
    and respect us;
    shift moralities => Europe
    and be => with_us while $you->can('live');

Я так же призываю всех Itшников Украины следовать за нашим президентом в Twitter:

http://twitter.com/Ushenko

print Perl => News or die;

2009-02-24T00:17:00.003+02:00

Появился второй подкаст про Перл! Спасибо Ивану Серёжкину ;)
Вот ссылка на страницу подкаста: Russian perlcast #2
Вот прямая ссылка на подкаст: http://ivan.serezhkin.com/pm/perlcast/rpc2.mp3
И краткое описание:

впечатления от новой работы
периодичность, вдохновение и каталист
http://2009.perlukraine.org
всё поменять на новом месте
совсем не фреймворки
а я больше не пишу фреймворки
CGI.pm - Зло
HTTP::Body - добро
А POE совсем рулит
Rakudo Built-ins Can Now Be Written In Perl 6

The Perl Foundation опубликовала список активных грантов:
http://news.perlfoundation.org/2009/02/running_grants_2009_-_iv.html
Из этого всего лично меня интересует: Test::Builder 2, Mojo Documentation Project и Moose docs.

A href / Популярные wiki-движки на разных языках программирования

2009-02-22T12:32:00.003+02:00

Каталог ссылок на реализации wiki-движков на самых различных языках программирования, таких как:
Perl, Java, JavaScript, Lua, Microsoft, .NET/Mono, Pascal, PHP, Python, Ruby, Smalltalk и др. :

Тут: Wiki And Collaboration Software List

Perl / Catalyst web framework: новости и полезные ссылки

2009-02-08T14:06:00.005+02:00

Начнем с самой свежей новости:

Ура! появился первый русскоязычный подкаст, посвященный Каталисту:
Слушаем\качаем тут: http://ivan.serezhkin.com/pm/perlcast/rpc1.mp3
Собственно, это первый перловый русскоязычный подкаст ;)
Автор подкаста: Иван Серёжкин (Moscow.pm)

Новость из англоязычной рассылки: catalystlists.scsys.co.uk, с содержимым которой вы можете ознакомится с помощью http://www.nabble.com/Catalyst-Web-Framework-f19245.html

Готовится новая книга по Каталисту, которая будет завершена в июне этого года.
Вот ссылка на страницу издательства: http://www.apress.com/book/view/1430223650
Вот на mail-thread: http://www.nabble.com/New-Catalyst-Book--to21858733.html

Полезные ссылки по Каталисту:
Давно хотел поделится следующими ссылками, так почему бы это не сделать сейчас?

Русскоязычные переводы мануала по Catalyst:
Источник: http://kamus.livejournal.com/tag/catalyst

Огромное спасибо товарищу Kamus за русскоязычные переводы документации по Catalyst.
Идем дальше! Переводы документации по Catalyst от Kiev.pm:

И еще! Вот небольшой туториал на тему того, как сделать свой блог на Каталисте:
http://sys.bessarabov.ru/xul/takahashi-ru.xul?data=blog#page1

Презентация сделана в стиле Такахаси, и это значит что смотреть нужно через FireFox.

MySQL / Тест производительности InnoDB и MyISAM

2009-01-30T19:30:00.002+02:00

Время от времени задумываюсь о том, насколько InnoDB быстрее/медленнее MyISAM.
Вот результаты небольшого теста для InnoDB и MyISAM:

database	insert time (s)	select time (s)	delete time (s)
InnoDB, no FK	4.5	0.25	3
InnoDB, FK	4.0	0.0	1
MyISAM	1.0	0.75	0

Как оказывается, что операция select в InnoDB с внешними ключами работает быстрее чем в MyISAM.
Это радует, так как я сейчас юзаю именно InnoDB + FK (хотя, зачем юзать InnoDB без FK? :)

Подробно тут...

Дизайнер баз данных в вашем браузере!

2009-01-25T00:55:00.002+02:00

Браузерный дизайнер баз данных. Написан на JavaScript с небольшими Perl/PHP бекэндами. Опенсорсный. С поддержкой нескольких локализаций.
Вот скриншот (кликабельно, ссылка на демо):

Вот ссылка на страницу проекта:
http://code.google.com/p/wwwsqldesigner/
Автору зачет!

Perl / Mojo. Велосипед или эволюция?

2009-01-19T20:06:00.005+02:00

Интересная обзорная заметка, рассказывающая об активно развивающимся Perl веб фреймворке для... веб фреймворков – Mojo.

На сегодняшний день, новый веб фреймворк – это баян.
Но, Фреймворк для создания Фреймворков – это интересно.
Читаем на kiev.pm: Mojo-- Велосипед или эволюция?
------

Perl / Catalyst: грязные хаки и Monkey Patching

2009-01-18T14:08:00.004+02:00

Catalyst – удобный веб фреймворк, но удобный до тех пор, пока ты играешь по его правилам. Как то на днях, мне не понравился его механизм инициализации компонентов.
Конкретно, я хотел оставить ядро некоторой системы в стандартных папках контроллеров, моделей и представлений, а все расширения вынести в отдельные.
Собственно, было так:


SomeCMS::Controller
SomeCMS::Model
SomeCMS::View

А должно стать так:


SomeCMS::Controller
SomeCMS::ControllerX
SomeCMS::Model
SomeCMS::ModelX
SomeCMS::View
SomeCMS::ViewX

При этом модуль, который находится в директории ControllerX должен иметь точно такие же права, что и контроллер в директории Controller: Каталист должен автоматически подхватывать его и создавать экземпляр; прописывать все экшкны модуля в dispatch таблице.

Вроде бы ничего сложного... ха! Но не тут то было!
Оказывается, что Каталист ищет компоненты по захардкодженным условием, т.е. такие директории как ControllerX, ModelX, ViewX для него вообще нечто чужеродное.

Выход один – лезть в ядро системы.
Конечно же, я не должен руками в конкретный файл ядра каталиста и что-то там менять. Нет, ведь это может повлиять на работоспособность других приложений. Я должен сделать изменения только в своем приложении.

Итак, вот что нужно сделать:
1.Указать Каталисту, что модули нужно искать в *X папках
2.Каталист должен автоматически создавать таблицу диспатчинга для этих модулей.

С первым пунктом, о чудо, оказалось все довольно просто.
Необходимый метод – setup_components – который осуществляет поиск доступных компонентов и их настройку находится в модуле Catalyst.pm, а базовый модуль моего приложения SomeCMS.pm – это как раз прямой его наследник. Кроме того, оказалось что необходимые дополнительные пути можно добавить через обычный конфиг:


package SomeCMS;
# ...
__PACKAGE__->config( setup_components => { search_extra => [ '::ControllerX', '::ModelX', '::ViewX' ] } );

#...
1;

После этих строчек новые модули в *X папках начали подхватывается Каталистом. Первая часть задачи решена. Кроме того, просматривая модуль Catalyst.pm, я заметил некоторый хардкод в поиске компонентов. Так что, возможно, в будущем мне придется переопределить такие методы как:


$c->controller($name)
$c->model($name)
$c->controllers
$c->view($name)
$c->models
$c->component($name)

Но, это позже. Теперь когда Каталист «узнает» мои *X модули необходимо разобратся с таблицей диспатчинга. Я столкнулся со следующий проблемой:

Я создал контроллер SomeCMS::ControllerX::Sample с единственным экшеном sub index :Path :Args(0) { ... }. Очень странно, но хоть этот модуль и обрабатывался, но правила /sample/index в таблице диспатчинга не создавалось.
И правил для контроллера SomeCMS::ControllerX::Sample не создавалось вообще.
Оказалось, что при регистрации экшенов, Каталист сначала нашел экшен index в SomeCMS::ControllerX::Sample и создал для него правило /index. Потом нашел родной для Каталиста SomeCMS::Controller::Root и там тоже нашел метод индекс, для которого так же прописал правило /index, чем успешно перетер правило для SomeCMS::ControllerX::Sample.

Тут вот в чем вопрос, почему это для SomeCMS::ControllerX::Sample::index создалось правило /index, хотя должно было бы создаться /sample/index? – Тогда бы проблемы и не было.

Ответ опять же прост. В модуле Catalyst::Utils есть метод class2classprefix который содержит захардкодженное регулярное выражение:


sub class2classprefix {
    my $class = shift || '';
    my $prefix;
    if ( $class =~ /^(.+?::([MVC]|Model|View|Controller))::.+$/ ) {
        $prefix = $1;
    }
    return $prefix;
}

А мне нужно добавить туда еще ModelX|ViewX|ControllerX. Что-то там унаследовать и переопределить я не могу. Остается только один выход – это Monkey Patching.
Т.е. я создам свой метод, выполняющий функции class2classprefix и просто подменю его в таблице Catalyst::Utils, используя glob.

Вот что получилось:


package SomeCMS;

use strict;
use warnings;

use Catalyst::Runtime '5.70';

# Set flags and add plugins for the application
#
#         -Debug: activates the debug mode for very useful log messages
#   ConfigLoader: will load the configuration from a Config::General file in the
#                 application's home directory
# Static::Simple: will serve static files from the application's root 
#                 directory

use parent qw/Catalyst/;

our $VERSION = '0.01';


# ======== HACKS ================================

*Catalyst::Utils::class2appclass = sub {
    my $class = shift || '';
    my $appname = '';
    if ( $class =~ /^(.+?)::([MVC]|ModelX|ViewX|ControllerX|Model|View|Controller)::.+$/ ) {
        $appname = $1;
    }
    return $appname;    
};

*Catalyst::Utils::class2classprefix = sub {
    my $class = shift || '';
    my $prefix;
    if ( $class =~ /^(.+?::([MVC]|ModelX|ViewX|ControllerX|Model|View|Controller))::.+$/ ) {
        $prefix = $1;
    }
    return $prefix;
};

*Catalyst::Utils::class2prefix = sub {
    my $class = shift || '';
    my $case  = shift || 0;
    my $prefix;
    if ( $class =~ /^.+?::([MVC]|ModelX|ViewX|ControllerX|Model|View|Controller)::(.+)$/ ) {
        $prefix = $case ? $2 : lc $2;
        $prefix =~ s{::}{/}g;
    }
    return $prefix;
};

Все работает чудесно ;)

Про «Integration Watch: The end for Perl?»

2009-01-17T13:27:00.001+02:00

Обычно, вместе оптимистической статьей про Перл, появляется что-то вроде: «Ну, все. Сегодня Перл умрет, ну точно умрет». Именно такую статью написал Andrew Binstock: Integration Watch: The end for Perl?

На сколько я уловил смысл, автор ставит Питон и Руби в пример Перлу, и говорит о том, что вот они очень крутые и синтаксис простой, и интегрируются с .NET'ом и Google активно юзает Питон, и то что раньше Перл был самым крутым после Джавы... В общем читайте сами.

При этом, в статье, он опирается на Tiobe index, Google Trends, и статистику Ohloh. Нельзя не согласится с тем, что на графиках прослеживается явное падение рейтинга Перл и приближения его рейтинга к таким языкам как Руби и Питон. С другой стороны, эти графики показывают то, что и Руби и Питон развиваются минимальными темпами.

С другой стороны есть и статистика буржуйского Indeed: Job Trends, которая показывает сохранения востребованности Перловиков по отношению к Питонщикам, и даже прирост этого спроса к началу 2009-го года. Но, это статистика буржуйская.

Мне интересно, как с Перлом обстоят дела в Украине...

Организация Perl-просвещения

2009-01-15T00:07:00.003+02:00

Есть такая мистическая комьюнити – The Enlightened Perl Organization (EPO), в интересах которой развитие, осветление и поддержка современных Перл технологий.
Подробнее можно прочитать тут(http://www.dev411.com/blog/...enlightened-perl-organization) и на официальном сайте.

Perl: проверка здоровья

2009-01-14T23:34:00.002+02:00

Будущее Perl

Если вы спросите, какие языки актуальны в данный момент, то услышите, что люди говорят о Ruby, C#, JavaScript, Erlang, Python. И скорее всего, не упомянут про Perl.

Текущее состояние Perl чем-то похоже на то состояние, в котором был JavaScript пару лет назад. JavaScript воспринимался как неприятный, напичканный хаками язык, который был настолько ужасен, что вызывал отвращение к написанному на нем коду. С развитием таких чудесный фреймворков, как Jquery, YUI, MooTools Dojo и благодаря публикации Дугласа Крокфорда JavaScript: The Good Parts, люди поняли что, фактически, это реально хороший язык со своими особенностями и причудами.

Перл начинал свою жизнь как язык для системных администраторов, возможно потому, что его создатель, Лари Уолл, работал в это время системным администратором. С выходом Perl 5, язык был изменен с целью поддержки более общего программирования. Эти изменение лишили Перл некоторых странностей и синтаксических структур, которые выглядели очень не читабельно. Но, если вы посмотрите на важные аспекты Perl, то увидите в них действительно хороший язык. По крайней мере, таких апектов два. С одной стороны на этом языке можно быстро писать так называемые «однострочники» - быстро написанный скрипт в одну строку для решения задач, связных с системным администрированием; с другой стороны, вы можете использовать «более изысканный» синтаксис для программ, которые в итоге будут развиваться и поддерживаться.

И это было разделение сущности языка. Ведь есть люди, которые повидали нечитабельный код от школы однострочного программирования, игры в Perl Golf, соревнования по обфускации кода на Перл, ужасный код, написанный ковбоями и людьми, которые не знали ничего лучшего в доткомовском пузыре( да, вы можете решить проблему, используя ужасный Перловый код, но легче разбить головой стену, чем попытаться изменить в нем что-то). И эти люди думаю, что это все на что способен Перл. И то, что на Перл можно писать только так.

Но, есть и другой Перл. Это язык, на котором работают такие проекты как: Internet Movie Database, Slashdot, Booking.com, Vox.com, LiveJournal и HiveMinder. Это язык, который позволяет людям писать и поддерживать код больших проектов годами. И этот код поддерживается разработчиками в состоянии хорошей документированости и замечательного тестового покрытия. И это язык, который вы должны рассматривать для своего следующего проекта.

Perl 6

Perl 6 слишком, слишком...

Ну, а дальше, на английском:
Читать дальше >>

Автор заметки: Piers Cawley
Источник: http://www.heise-online.co.uk/open/Healthcheck-Perl-The-Perl-Future--/features/112388/0

Паро-нормальная служба поддержки от Укртелеком

2008-10-27T20:49:00.001+02:00

Хм... вот уже 2 раза так было.
Я пытаюсь подключится к Интернету – выдает ошибку что-то вроде «такое имя пользователя и пароль недопустимы в этом домене». Я ввожу пароль еще раз, по новой. Результат тот же. Я перезапускаю модем и ввожу логин и пароль еще раз – тоже самое.
Я перегружаю машину, и ввожу все тот же логин и пароль.
Я звоню в службу поддержки Укртелекома. Как всегда, там нет свободного оператора и мне телефонный бот предлагает мне подождать, послушав классическую музыку :).
Я пробую еще раз – и все работает!
Я сижу с кирпичным лицом перед монитором, но зато с работающим Интернетом :).
Вот, очень странно, но такое уже повторилось два раза. Прямо, сюжет для программы «Необъяснимо, но факт» :))

SQL::Translator. Конвертируем схемы таблиц MySQL в SQLite

2008-10-15T21:30:00.003+03:00

Сабж на Хабре

[Perl Catalyst]: Релизнулся Catamoose

2008-10-14T14:16:00.004+03:00

Вчера, 13 октября, вышел релиз Catalyst::Runtime 5.8. Версия 5.8 – это результат работы над проектом "Catamoose": Catalyst с использованием нового ООП Фреймворка Moose.
Смысл Moose в том, что он позволяет использовать те новшества особенности ООП Перл 6 уже в 5-й ветке Перла.

Видео: Обзор Catalyst с далекого-далекого Far East Perl Workshop 2008. (Владивосток, 26 сентября 2008)

2008-10-05T15:59:00.003+03:00

Советую посмотреть доклад Романа Беликина, посвященный Perl MVC веб-фреймворку – Catalyst.
http://yapc.tv/2008/fe/roman-catalyst/

Краткое содержание доклада:

Что такое «мясо» в Perl исходниках
Catalyst -- Perl MVC Фреймворк
Установка и создание приложений на Catalyst: обзор Моделей, Контроллеров и Представлений
Что такое $c? И как использовать объект контекста
Модели (ORM DBIx::Class и его грабли)
Представления и шаблонизатор Template toolkit
PHP -- шаблонизатор для Catalyst ;)
Контроллеры: Root, Dispatcher и URL-Mapping, атрибуты Действий
Engine – интерфейс между сервером(Apache/IIS/FastCGI и т.д.) и Catalyst
Плагины и расширение контекста ($c)
Ждем Catamoose…
Полезные ссылки

MVC Марафон

2008-10-04T10:23:00.003+03:00

Замечательная ссылка на статью, посвященную сравнению MVC фреймворков. Прочитал с огромным интересом и считаю этот материал колоссально полезным.

В сравнении участвуют: ASP.NET MVC: Preview 3, CakePHP: 1.2RC2, Catalyst: 5.7, Django: 0.96, Ruby on Rails: 2.1

Читаем тут:
MVC Marathon

Скрытые возможности Perl

2008-10-03T17:30:00.002+03:00

Сегодня наRSSил интересное обсуждение:
Hidden features of Perl на stackoverflow.com

Должен сказать, что почерпнул для себя очень много интересного. Я бы не сказал полезного – просто интересного :)
Вот, например:


The "for" statement can be used the same way "with" is used in Pascal:
for ($item)
{
    s/&nbsp;/ /g;
    s/<.*?>/ /g;
    $_ = join(" ", split(" ", $_));
}

You can apply a sequence of s/// operations, etc. to the same variable without having to repeat the variable name.
http://stackoverflow.com/questions/161872/hidden-features-of-perl#163481

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

Опубликовал заметку про Catalyst для ДОУ

2008-10-02T20:35:00.002+03:00

С самой заметкой можно ознакомится вот тут:

Catalyst – Perl веб-фреймворк в лучших традициях MVC
(комментировать прошу там же)

Цель этой заметки, скорее, привлечь внимание к тому, что существует такой Перловый фреймворк – Catalyst и то, что он ничем не уступает своим MVC – аналогам, написанным на других ЯП. Собственно, про Каталист можно рассказать очень и очень много: есть там и магия, есть там и философия, есть и грабли... Но, я думаю, что для обзорной статьи букафф там достаточно :)
Давно чо-то про Перл в русскоязычном инете не писали...

P.S.: Пока бороздил просторы сети, наткнулся на небольшое сравнение производительности Питоновского Джанго с Перловым Каталистом, вот:
Benchmarks: python. Django vs. perl-> Catalyst

Perl все таки сильнее C#! ;)

2008-09-27T00:44:00.003+03:00

Сегодня днем хотел попробовать как работают ASP.NET приложения под Mono. Долго не думая, я скачал для тестов один из самых популярных блоговых движков, написанных под .NET – BlogEngine.NET . К чести автора, блог действительно очень хороший, это я узнал сам, таки запустив его под Mono (это значит, что он будет хорошо работать и на *nix серверах). Запустил я это дело под XSP – это такой специальный веб-сервер для разработчиков, который служит для того, чтобы приложение можно было бы быстро запустить, без утомительных настроек «реального» веб-сервера. К слову XSP написан на C#. А, по умолчанию, сервер использует для работы порт 8080.
Удовлетворив свой интерес, я переключился на разработку в Perl‘овом Catalyst. Там также есть свой собственный development web server, написанный на Perl. По умолчанию, этот сервер также прослушивает порт 8080.
По истечении некоторого времени, я заметил что XSP до сих пор висит у меня в задачах. Я посмотрел на его вывод – XSP захлебывался в сообщениях об ошибках. Я гуманно убил XSP, чтобы не подливать его мучения. При этом сервер для разработки Catalyst работал отлично.
Вот так вот, в равной схватке за порт Perl победил и поставил на колени C#. :))

На пути изучения C#

2008-08-16T23:42:00.001+03:00

Сначала этого месяца я занялся изучением .NET и языка C#. Давно хотел узнать, что же это такое – управляемый код, и считаю очень полезным уметь создавать кросс платформенные приложения. После разговоров с людьми, чтения форумов и оценки популярности технологий по открытым вакансиям на сайтах по поиску работы, понял, что в принципе нет особой разницы что изучать: C# или Java.
И .NET и C# есть проект Mono, который, вроде бы не поддерживается официально Мелкомягкими, но вполне доказывает свою работоспособность. Сейчас, как я понял, у ребят из Novel уже готова адаптация второго фреймворка под все популярные платформы.
Плюс, по синтаксису Си Шарп больше чем Ява похож на C++. Для меня это весомый аргумент.
Должен сказать, что, прочитав и изучив довольно не малый объем информации, я не разочаровался в своем выборе по поводу C#. Я бы сказал, что, по синтаксису C# это косметически подправленный C++, мне понравилось то что:

Добавился оператор foreach. К нему я привык, используя скриптовые языки, такие как Perl и 4Test.
Упростились перегрузки операторов. Индексаторы вынесены в отдельную конструкцию.
Добавились анонимные функции, на базе делегатов. И появилась возможность использовать их при сортировке списков и массивов.
Контейнеры стали называться коллекциями, а итераторы слились с коллекциями в единое целое. Это, на мой взгляд, очень удобно.
Появилась поддержка свойств.
Не надо ставить точку с запятой после завершающей фигурной скобочки объявления класса :)

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

По части обработки и анализа текстовых данных виде C# не оправдал моих надежд. Люди, знакомые с Perl, поймут, о чем я говорю. Какими бы небыли крутыми классы для работы с регулярными выражениями – они никогда не будут настолько же простыми и удобными как это реализовано в Perl. Так же мне не понравилась реализация хешей. Они не стали лучше и гибче тех, которые реализованы в STL C++.
С#, по сравнению с C++, стал немного проще и удобней в использовании. Но, смотря на код через призму этой простоты, гибкости ООП, безопасности типов и супер-пупер сборщика мусора – нужно не забывать о том, что реализовывать или использовать готовые типы нужно очень осмотрительно, так как ошибка при выборе типа может повлечь за собой чрезмерный перерасход ресурсов операционной системы при выполнении приложения.
Нужно хорошо знать о том, как устроен этот .NET изнутри и что на самом деле стоит за каждым из предлагаемых классов. Только тогда я смогу сказать, что хорошо разбираюсь в C# и платформе .NET, а пока я могу сказать, что сделал только первые шаги в сторону изучения новой для меня технологии.

Catalyst deployment немного сосет (подсасывает)

2008-08-12T01:18:00.000+03:00

Меня просто достает то, что я не могу установить ни одного известного мне приложения на, созданного на фреймворке Catalyst. Все они тянут за собой пол-CPAN’а зависимостей, при этом эти самые депенденсы либо не компилируются(Foorum), либо зависают на тестах(Mojomojo) либо даже после установки всех задекламированных депенденсов требуют еще кучу модулей (Blog).

Приложения на Каталисте интересны тем, что, во первых, они могут запускаться при помощи отдельного development-сервера, который идет вместе с каждым приложением и работать с СУБД базой SQLite, если используется какой-нибудь ORM, по типу DBIx::CLass. Это означает, что вам нужно скачать приложение, запустить сервер и юзать интересующее приложение под любой платформой.

К сожалению, так у меня так еще не получалось сделать на тех приложениях, которые мне в данный момент интересны.

Разбираюсь с intensedebate

2008-08-03T16:13:00.000+03:00

Поставил себе внешний сервис для комментирования заметок – IntenseDebate. Сейчас тестирую как работает.

Perl 5: Срезы хешей могут заменить циклы

2008-05-29T00:37:00.001+03:00

Насколько часто вы используете цикл for, чтобы сделать что-то простое с хешем, и при этом задумываетесь, что, скорее всего, должен быть более подходящий способ сделать это. Использование срезов хешей может заменить эти простые циклы и ускорить время выполнения вашего скрипта.
Срез хешей это синтаксическое средство для доступа к множеству значений через однострочную операцию. Это краткая и эффективная техника, но это, также представитель той коллекции примеров кода, из-за которой Перл приобрел репутацию нечитабельного языка программирования. Однако, изучив эту технику, вы почувствуете себя более искусным в программировании человеком! Я хочу представить парочку примеров того, как срезы хешей помогли сделать мой код короче и быстрее.

Базовый синтаксис срезов

Для того чтобы получить срез значений хеша, обращение к хешу должно быть следующим: перед именем хеша ставится знак массива @, так как будет возвращен массив значений. На месте индекса, который стоит после имени переменной хеша и заключен в фигурные скобки, должен стоять список из имен требуемых ключей хеша.


use strict; use warnings;
my %number_for = (one => 1, two => 2, three => 3);
# Обычный пример получения значения по ключу
print $number_for{one}; # 1
# Срез хеша. Получение множества значений. Обратите внимание на  '@'
print @number_for{qw(one two three)}; # 123
# И это тоже работает
print @number_for{'one','two','three'}; # 123

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

Слияние двух хешей

Срез хеша может находиться с левой стороны от оператора присвоения. Это свойство используется для слияния одного хеша в другой. Общим примером слияния может служить то, когда вы получаете конфигурационные данные более чем из одного источника, но вы хотите объединить их в одном месте.


use strict; use warnings;
my %your_numbers = (two => 2, four => 4, six => 6);
my %number_for   = (one => 1, three => 3, five => 5, six => 7);
# Я получаю все числа! 
# (И ваше значение перепишет мое, если они различаются)
@number_for{keys %your_numbers} = values %your_numbers;
print sort values %number_for; # 12346

Получение значений ключей в заданном порядке

Это общий пример, который встречается в веб программировании. Вы получили данные формы и уже проверили их. Данные формы находятся в хеше и вы хотите сохранить их в базу данных. У вас уже есть подготовленный SQL-запрос, но он требует того, что порядок ваших значений будет соответствовать порядку полей таблицы, заданных в запросе. К сожалению, функция values не может обеспечить тот порядок следования значений хеша, который вам необходим. (К тому же, вы не хотите получить значение от кнопки "submit"!)


use strict; use warnings;
my %number_for = (one => 1, two => 2, three => 3, four => 4, six => 6);
# получить значение от вашей функции валидации формы
my %validated = %number_for;
# Порядок следования значений, требуемый в вашем  SQL-запросе
my @columns = qw(six one three);
# Получить срез значений
my @bind = @validated{@columns}; # 6,1,3
print join(",", @bind);

Получение значений из хеша, отсортированного по ключам

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


print @number_for{sort keys %number_for}; # 41632

Срез ссылки на хеш

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


use strict; use warnings;
my %number_for = (one => 1, two => 2, three => 3, five => 5, six => 6);

my $num_for = \%number_for;
# Общий синтаксис получения значения по ключу
print $num_for->{one}; # 1
# Альтернативный, ленивый способ 
print $$num_for{two}; # 2
# Альтернативный, подробный способ 
print ${$num_for}{six}; # 6

Ключ к получению среза хеша в том, чтобы использовать альтернативные способы получения значения хеша, заменяя первый знак скаляра $ на знак массива @.


my @columns = qw [six one three];
# Альтернативный, ленивый способ 
print @$num_for{@columns}; # 613
# Альтернативный, подробный способ 
print @{$num_for}{@columns}; # 613

Примечание:Способ со стрелочкой не используется, так как стрелочка подразумевает использование скаляра, в то время, как нам нужен список.

Мощный синтаксис

Срезы хешей - это продвинутый синтаксис, демонстрирующий краткость и выразительность Perl. Теперь вы сможете распознать срезы, когда столкнетесь с ними, и возможно, применить их в своем проекте для экономии времени и объема кода. (Но, запомните: используйте супер силу Perl только в пользу Добра, но не Зла!)

Отменятинна:

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

прЭлюдия.pm за нас! Фреймворк для веб разработки на Perl

2008-04-27T20:09:00.000+03:00

Eludia.pm – это веб фреймворк для быстрой веб разработки. Авторы обещают, что для разработки тривиального CRUD функциональности достаточно 5-ти минут. Фреймворк поддерживает работу с сессиями, авторизацию пользователей, абстракцию при работу с различными СУБД (свой слой SQL абстракций), независимость от сервера и много другое.
Подробно можно почитать на сайте разработчиков.
На базе элюдии есть еще одна разработка, имя которой больше напоминает тост. Это Zanas. Пока я его не смотрел, но по описанием видно, что это Perl-фреймворк, заточенный на работу и создание DHTML виджетов.
Почитать про Занас можно тут, а скачать отсюда.

Какая польза от Интерфейсов в Perl?

2008-04-27T17:29:00.001+03:00

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

Пример:


# Это интерфейс. Все функции интерфейса должны быть реализованы.
# Иначе - кто-то сдохнет. 
package ISQLDriver;
sub select { die "I'm pure!" }
sub insert { die "I'm pure!" }
1;

# Это класс-наследник. Это правильный наследник, 
# потому что он реализует все функции наследуемого интерфейса.  
package MySQLDriver;
use base qw[ISQLDriver];

sub new { bless {}, shift }  # Очень мелкий конструктор

sub select {
    my($this, $table, $conditions) = @_;
    print "SELECT * FROM $table WHERE $conditions\n";
}
sub insert {
    my($this, $table, $values) = @_;
    print "INSERT INTO $table VALUES($values)\n" ;
}
1;

# А у этого наследника нереализованная функция insert. 
# Ничего страшного -
# Она будет унаследована от ISQLDriver и при вызове 
# insert от класса SQLightDriver - ваш скрипт сдохнет. 
package SQLightDriver;
use base qw[ISQLDriver];

sub new { bless {}, shift }

sub select {
    my($this, $table, $conditions) = @_;
    print "SELECT * FROM $table WHERE $conditions\n";
}
1;

package main;

# Эта функция создает новую запись в блоге независимо от 
# драйвера для работы со СУБД.
sub insert_record {
    my ($db_driver, $body_text) = @_;

    if ( !$db_driver->isa('ISQLDriver') ) {
        die "$db_driver is not an ISQLDriver";
    }
    $db_driver->insert("Records(body)", "'$body_text'");
}

my $dbh_1 = new MySQLDriver;
my $dbh_2 = new SQLightDriver;

print "All records from MySQL:\n";
$dbh_1->select("Records", "");

print "All records from SQLight:\n";
$dbh_2->select("Records", "");

print "Add new record (MySQL)\n";
insert_record $dbh_1, "blah blah blah";

print "Add new record (SQLight)\n";
insert_record $dbh_2, "blah blah blah";

Вывод будет следующим:


All records from MySQL:
SELECT * FROM Records WHERE 

All records from SQLight:
SELECT * FROM Records WHERE 

Add new record (MySQL)
INSERT INTO Records(body) VALUES('blah blah blah')

Add new record (SQLight)
I'm pure! at example.pl line 5.

Вся проблема в том, что SQLightDriver не реализовал метод insert. Очевидно, что это баг реализации SQLightDriver. Очевидно, потому что insert есть в ISQLDriver, но не реализована в SQLightDriver.
С другой стороны, у нас есть функция insert_record, которая добавляет новую запись в таблицу. Insert_record знает, что если она работает с интерфейсом ISQLDriver, то в объекте драйвера, который приходит как параметр, точно должна быть функция insert. В противном случае – баг в классе объекта. В данном случае, функции insert_record достаточно убедится, что класс объекта наследуется от ISQLDriver:

if ( !$db_driver->isa('ISQLDriver') ) {
die "$db_driver is not an ISQLDriver";
}

У нас может появиться новый класс-драйвер для СУБД. И если этот класс реализовывает ISQLDriver – то код функции insert_record менять не нужно будет.

Так что есть место для интерфейсных классов, при программировании на Perl.

Link::Dumper

2008-04-21T22:51:00.004+03:00

Три способа застрелится в голову – опасность излишней магии (англ)
Three ways to shoot yourself in the head - the dangers of too much magic

Автор пишет об опасности применения излишней магии в при программировании на Perl. Особо интересным мне показался способ с использованием Monkey Patching. В этой части дается совет, как избежать опасности.
Согласен в части с фильтрацией кода (использования чего-то подобного на C-препроцессор). Конечно, макросы – это мощная вещь, но в интерпретируемом языке без них нужно обойтись.

Локальные переменные

Продолжаем тему о процессе программинга и хорошем коде. На сайте Inside C++ появилась новая заметка, в которой идет речь о вреде большого количества локальных переменных в одной функции:
Большое количество локальных переменных также может представлять собой помесь нескольких контекстов. Это означает, что функция пытается решать сразу несколько задач. В этом, очевидно, тоже нет ничего хорошего.

В очень больших функциях иногда бывает очень много багов, причину которых найти бывает очень затруднительно.

BIW - online-журнал бизнеса в интернете

На днях открыл для себя этот ресурс. Читая некоторые посты, украдкой думаешь: «По-моему, я это уже где-то видел... ». Но, должен сказать, что заметки там интересные.

Как узнать, что ваш сын компьютерный хакер?(Is Your Son a Computer Hacker?)

Это перевод серьезной статьи, написанной серьезным человеком. Но, в наше несерьезное время ее можно определить в раздел «Компьютерный юмор». Советую почитать.

Доска почета и позора Пользовательских интерфейсов

Хорошая подборка примеров относительно юзабильности пользовательских интерфейсов. Должен заметить, что примеры хороших интерфейсов уже немного устарели, но зато примеры хреновых интерфейсов не устареют никогда :)

Вперед, к движковым вершинам!

2008-04-19T18:12:00.001+03:00

Хочу написать свой движок, аля фреймворк для комфортной веб разработки на Perl. Почему на Perl? – потому что язык очень гибкий и удобный для меня. Писать на Perl – это программерсоке удовольствие :).
Почему свой? Есть у меня идеи, реализацию которых я не видел в уже существующих Perl веб-фреймворках. Во-первых, фреймворк должен поддерживать как компонентную архитектуру так и архитектуру MVC. Компонентная архитектура очень удобна для небольших проектов. У меня уже есть одна старая разработка, на которой уже больше года работает мой корпоративный веб-сайтик для мониторинга результатов автоматизированного тестирования на двух десятках машин. Исходники движка можно скачать с Google code.
Он построен на базе компонентной архитектуры: основная логика работы находится в шаблонах. Шаблоны подключают компоненты, через которые работают с базой данных. Суть движка в том, что вся логика работы с базой данных реализовывалась в компонентах (это обычные ООПерловые модули) а логика взаимодействия этих компонентов между собой и представление данных – в Template toolkit шаблонах, которые динамически подключали нужные им компоненты.
Компонентная архитектура очень удобна для того, чтобы можно было бы быстренько и понятно состряпать нужную веб страничку. Ненужно играться с всякими там контроллерами. Есть шаблон, подключил компоненты – и вызывай себе их методы для дальнейшего отображения данных.
Движок этот, в принципе, не плохой получился. Но, только для создания небольших вспомогательных сайтов и домашних страничек. Я допустил несколько довольно значительных ошибок при проектировании движка, которое проходило вместе с его реализацией :)
Сейчас же я решил разработать MVC фреймворк. Пораскинув мозгами, я заметил, что, на самом деле компонентная архитектура – это частный случай MVC. В этом случае, контроллер универсален и лишь запускает обработку шаблона. Шаблоны в свою очередь непосредственно могут подключать и работать с моделями напрямую. Это делается красиво и без проблем, если использовать такой мощный шаблонизатор как Template toolkit. Но, я не хочу затачивать фреймворк под конкретный шаблонизатор, точно так же как и не хочу затачивать его под конкретную реализацию ORM’a или модуля для доступа/создания/валидации форм. Должна быть возможность в любой момент времени заменить один модуль системы на другой, более удобный для решения конкретной задачи.
В такой ситуации может помочь применения интерфейсного программирования. Интерфейсы будут описывать правила работы фреймворка, внося ясность в то, как функционирует система. Нечто похожее есть в веб-фреймворке Catalyst. Там, к примеру, плагин для конкретного шаблонизатора наследует класс Catalyst::View, который содержит метод process для обработки шаблона. Хотя, таких общих методов для разных шаблонизаторов может быть и побольше, так как это реализовано в Gantry.
Интерфейсный подход жизненно необходим при разработки приложений, использующих технологию COM. Но, насколько он будет полезен при создании веб приложений – нужно будет еще узнать на практике.

VIM – это самый непродуктивный редактор в мире!

2008-04-13T11:32:00.000+03:00

Вот так вот, открыл файл, чтобы подправить пару строчек. Ага, нужно было сделать несколько однотипных действий. Записал макрос. Замапил его на клавишу . Применил к каждой строчке. Вспомнил, что в VIM можно пользоваться диапазонами строк для применения макроса. Откатил изменения, воспользовался диапазонами. Вспомнил, что недавно скачал подсветку borland.vim. Попробовал ее. Вроде нормально. Открыл _vimrc в новом буфере, изменил там цветовую схему по умолчанию. Появился MiniBufExplorer – плагин, с помощью которого можно переключатся между буферами. Захотел вернутся на предыдущей файл. Можно было бы, конечно, кликнуть по его имени мышкой – но это не прикольно. Вспомнил команду bprev для возврата в предыдущей буфер. Длинно как-то. Полазил в хелпе. Оказывается есть bp...
Потратил 25 минут на файл, который можно было бы отредактировать за минуту в Блокноте.
Честно говоря, VIM – это не редактор, а хобби :)

System Refresh – это очень полезно

2008-04-06T00:48:00.002+03:00

Должен сказать, что переустановка Виндов – бодрит. Раньше я переустанавливал Винды каждый месяц. Винды, прожившие больше 25 дней – это была редкость для меня. Со временем на этот священный обряд у меня уже не хватало ни времени, ни желания.
Как же так! Ведь столько полезного мусора в папке «Мои документы», столько полезных программ в меню Пуск, столько часто используемых ярлыков на «Рабочем столе»... Очень не хочется терять кучу таких важных экскрементов... Вот она и прожила рекордный термин – 204 дня... Так, стоп... можно было бы, конечно, призадуматься: стоит ли обрывать жизнь Винды в таком юном возрасте, если бы у меня не лежала целая пачка готовых запакованных системных образов на любой вкус и цвет, со всеми нужными дровами и необходимым софтом, с настроенным подключением к Интернету и запущенным Апачем.

Остается только доставить недостающие приложения – и все незавершенные дела можно продолжать после 30 минутной приостановки, но, уже с чистой, незаэкскременчиной системой.

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

Да... ведь в этом посте должно быть что-то полезное :)
Хочу посоветовать вам программку для упаковки/распаковки образов системы – Acronis True Image. Интересен тот факт, что распаковать новую систему можно прямо из старой, это означает, что вам не нужно грузится со всяких загрузочных CD и т.д.: просто выбираем нужный образ, жмем: Дальше, Дальше, Дальше, Окей – и идем на перекур. По возвращению нас будет ждать уже новая готовая к работе система.
Эта фича Акрониса может быть использована, например, в автоматизированном тестировании приложения: после завершения тестов (например, smoke-тестов ), скрипт может сам отправить результат, записать необходимую конфигурационную информацию на диск D:, распаковать чистую систему, запустится на чистой системе и ожидать нового билда приложения для тестирования.

Обмен переменных значениями: самый быстрый и самый Perl'овый способ

2008-04-05T19:50:00.003+03:00

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


use strict; use warnings;
my $min = 10;
my $max = 2;
print "Before: \$min = $min; \$max = $max\n";
my $tmp = $min;
$min = $max;
$max = $tmp;
print "After: \$min = $min; \$max = $max\n";

Это способ хороший, но содержит очень много букв. Ведь есть более Perl'овый способ обмена переменных значениями, заключающийся в использовании списков:


use strict; use warnings;

my $min = 10;
my $max = 2;

print "Before: \$min = $min; \$max = $max\n";
($min, $max) = ($max, $min);
print "After: \$min = $min; \$max = $max\n";

Это самый красивый способ обмена, но существует еще один способ: использование бинарной операции XOR.


use strict; use warnings;

my $min = 10;
my $max = 2;

print "Before: \$min = $min; \$max = $max\n";
$min = $min ^ $max;
$max = $max ^ $min;
$min = $min ^ $max;

# $min ^= $max;
# $max ^= $min;
# $min ^= $max;

print "After: \$min = $min; \$max = $max\n";

Хм... самый напрягающий способ. Он то работает... но... как? Разобраться тут, с первого взгляда, не просто:


# $min == 1010
# $max == 0010

$min = $min ^ $max;
# $min == 1010 $min == 1000
# $max == 0010

$max = $max ^ $min;
# $min == 1000  
# $max == 0010 $max == 1010

$min = $min ^ $max;
# $min == 1000 $min == 0010
# $max == 1010

Это сложный способ. Для использования в Perl-скриптах - абсолютно не подходит. Но, он может быть полезен при оптимизации кода в других языках, например C или C++. Все дело в том, что при таком подходе не используется вспомогательная переменная, а это экономия памяти.

Кто быстрее?

Следующий код изменяет производительность описанных выше способов обмена переменных значениями:


use strict; use warnings;
use Benchmark qw(:all);

sub bin_xchg(\$\$) {
 my ($var_ref1, $var_ref2) = @_;
 $$var_ref1 ^= $$var_ref2;
 $$var_ref2 ^= $$var_ref1;
 $$var_ref1 ^= $$var_ref2;
}

sub list_xchg(\$\$) {
 my ($var_ref1, $var_ref2) = @_;
 ($$var_ref1, $$var_ref2) = ($$var_ref2, $$var_ref1);
}

sub helper_xchg(\$\$) {
 my ($var_ref1, $var_ref2) = @_;
 my $tmp = $$var_ref1;
 $$var_ref1 = $$var_ref2;
 $$var_ref2 = $tmp;

}

my $a = 10;
my $b = 1;

cmpthese(10000000, {
        'BIN'    => sub { bin_xchg($a, $b)    },
        'HELPER' => sub { helper_xchg($a, $b) },
        'LIST'   => sub { list_xchg($a, $b)   },
    });

Этот бенчьмарк выдал следующие результаты:


  Rate BIN LIST HELPER
BIN 109228/s -- -2% -4%
LIST 111001/s 2% -- -3%
HELPER 114318/s 5% 3% --

В этом бенчьмарке, чем больше значение Rate - тем быстрее работает код. Оказывается, что бинарный способ не только плохо читается, но еще и работает медленнее. Использование вспомогательной переменной - самый быстрый способ в Perl, но он ненамного быстрее самого красивого и читабельного способа, использующего списки.

Для Perl я выбираю "золотую середину": ($a, $b) = ($b, $a);

Я упоминал, что бинарный подход может быть полезен при использовании в C или C++. Следующий код измеряет время, требуемое на выполнение операций бинарного обмена значений и обмена с использованием вспомогательной переменной:


#include <iostream>
#include <time.h>
using namespace std;

const int ITERATIONS = 400000000;

int main()
{

 long l;
 int min = 10;
 int max = 1;
 
 cout << "Xchg with helper variable\n";
 l = clock();
 for ( int i = 0; i < ITERATIONS; i++ ) {
  int tmp = min;
  min = max;
  max = tmp;
 }
 cout << (clock()-l)/1000.0 << "s.\n";

 cout << "Xchg with binary XOR\n";
 l = clock();
 for ( int i = 0; i < ITERATIONS; i++ ) {
  min ^= max;
  max ^= min;
  min ^= max;
 }
 cout << (clock()-l)/1000.0 << "s.\n";

 return 0;
}

Результат выполнения у меня получился следующий:


Xchg with helper variable
13.018s.
Xchg with binary XOR
23.434s.

Это означает, что бинарный XOR не только выглядит непонятно, но и работает почти в 2 раза медленнее. Для себя я решил, что XOR-способ мне не подходит. Я не вижу в нем преимуществ, а вот недостатки - огромны.

Шаблонизатор Template toolkit теперь и в Python

2008-04-02T23:55:00.000+03:00

Еще в январе 2008 года вышел релиз порта шаблонизатора Template toolkit 2 для языка Python. Проект Template toolkit был запущен для Perl еще в середине бородатых 90-х. Вклад Template toolkit в развитие разработки веб-приложений на языке Perl – колоссален. Но, насколько полезным может быть TT2 при использовании в Python?

Хм... а Mako то чем не угодил?
К сожалению или к счастью, реализация TT2 для Python появилась сравнительно поздно. Потребность в мощном шаблонизаторе для таких языков, как Perl, Python и Ruby, в которых удобные средства генерации HTML не реализованных на языковом уровня, выражается особо остро, по сравнению, например, с PHP, который сам является мощным шаблонизатором. Такая потребность и повлекла за собой появление различных шаблонизаторов на любой вкус и цвет. Один шаблонный движок покрывает функциональность другого. Вся разница лишь в философии движка и его синтаксисе.
TT2 практически не отличается от Mako или любого другого известного шаблонного движка по функциональности, но зато он здорово отличается в подходах создания шаблонов и их взаимодействия с основным кодом приложения.

Синтаксический сахар и собственный язык для шаблонов
TT2 использует свой простой язык для построения шаблонов. На этом языке можно описать практически все, что вам нужно не прибегая к использованию чистого Python в шаблонах. Но, между тем, Template toolkit поддерживает специальные блоки, в которых может быть использован код на чистом Питоне (PYTHON / RAWPYTHON).

Новые языковые конструкции: UNLESS и SWITCH / CASE
Конструкция UNLESS, подобна IF, только наоборот :). Блок unless выполняется, если условие ложно. Это наследство от языка Perl. Такая конструкция есть в Ruby. Просматривая буржуйский Перловый код, я не раз замечал, что эта конструкция используется очень часто. Мне же больше по душе старый добрый IF.
Пример:
[% name = 'Билл' %]
[% surname = 'Гейтс' %]
[% UNLESS name == 'Билл' && surname == 'Гейтс' %]
Нам сказали таких не пущать! :(
[% ELSE %]
Захады, дарагой, гостэм будешь! :)
[% END %]

[% IF !(name == 'Билл' && surname == 'Гейтс') %]
Нам сказали таких не пущать! :(
[% ELSE %]
Захады, дарагой, гостэм будешь! :)
[% END %]

Результат:

Захады, дарагой, гостэм будешь! :)
Захады, дарагой, гостэм будешь! :)

А вот конструкция SWITCH / CASE будет полезной заменой цепочек if-elif-else и извращений с анонимными ассоциативными массивами.
Пример:
[% age = 16 %]
[% SWITCH age %]
[% CASE 0 %]
Это шутка такая, да?
[% CASE [1..17] %]
А может лучше на футбол, чем на этом сайте сидеть?
[% CASE [18, 19, 20, 21, 22, 23, 24 ] %]
В двери стучат из военкомата...
[% CASE DEFAULT %]
Фух, хоть сейчас можно на сайте спокойно посидеть :)
[% END %]

Результат:

А может лучше на футбол, чем на этом сайте сидеть?

Template toolkit поддерживает и другие языковые конструкции и операторы, аналоги которых есть в Питоне:

FOREACH – аналог for. Поддерживается несколько форм записи.
WHILE – аналог обычного, старого доброго while.
IF / UNLESS / ELSIF / ELSE – ветвление
USE – это аналог import. Служит для загрузкигрузки плагинов, написанных на Python.
TRY / THROW / CATCH / FINAL – Обработка исключений непосредственно внутри шаблона.
NEXT, LAST – управление итерациями цикла. NEXT == continue; LAST ==break.
RETURN, STOP – Это остановка обработки только включаемого шаблона и полная остановка обработки всех шаблонов соответственно.

Манипуляция блоками текста: фильтры, включения, блоки, обвертки и макросы
Удобство при работе с блоками текста – это, на мой взгляд, самая необходимая функциональность, предоставляемая шаблонным движком. И у Template toolkit она развита на достаточно высоком уровне.

Включения позволяют собирать шаблон страницы из частей, разбросанных по разным файлам либо вызывать именованные шаблоны. Template toolkit поддерживает 3 вида включения:
INSERT – включить шаблон без обработки
INCLUDE – включить и обработать шаблон. Все переменные включаемого файла или именованного шаблона будут находиться в локальном пространстве имен.
PROCESS – аналог INCLUDE, при этом все переменные будут жить в глобальном пространстве имен “главного” шаблона.
Кроме этого, PROCESS и INCLUDE используются для обработки текстовых блоков BLOCK.

Обвертки и блоки
BLOCK – это именованный шаблон, вызываемый с помощью директив PROCESS, INCLUDE, INSERT, WRAPPER. По принципу действия блок похож на функцию, которая возвращает текстовые данные. Блок можно вызывать как с параметрами, так и без, в любом месте обрабатываемого шаблона.
Обвертки – это специальный вид блоков, один из параметров которого есть текст, который был заключен в директиву WRAPPER. Этот текст доступен через специальную переменную [% content %] внутри BLOCK. Сначала обрабатывается содержимое переменной [% content %], и лишь потом оно обрамляется в данные блока.
К примеру, в блоке может быть реализована шапка и подвал страницы (т.е. ее макет; layout). А содержимое страницы может непосредственно попадать в готовый макет посредствам директивы WRAPPER.
Пример:

[% BLOCK layout %]
Это шапка сайта
Заголовок: [% title or 'Без имени' %]
---------------
[% content %]
---------------
А это подвал
[% END %]

[% WRAPPER layout title='My title' %]
А тут содержимое страницы!
[% END %]

Результат:

Это шапка сайта
Заголовок: My title
---------------
А тут содержимое страницы!
---------------
А это подвал

В отличие от блоков – макросы возвращают результаты вычислений, описанных непосредственно в шаблоне, это обычная функция. Для объявления макроса используется директива MACRO. Вызываются макросы по имени и могут участвовать в условиях и вычислениях.
Директива FILTER по принципу действия подобна WRAPPER. Отличие состоит в том, что FILTER вызывает специальную функцию, написанную на Python для обработки куска текста, а не именованный шаблон, как это делает WRAPPER.
Есть еще много того, о чем я не рассказал: о включение кода на Python внутри шаблона, о богатых возможностях конфигурирования шаблонного движка, о некоторых директивах... Все это вы можете узнать из руководств по Template toolkit’у, ссылки на которые я приведу в конце заметки.

Так зачем же нужен еще один шаблонизатор?
Template toolkit предоставляет свой подход при работе с шаблонами. Основная изюминка TT в том, что он использует свой, простой для изучения язык для составления шаблонов, который, при обработке движком, компилируется в Perl или Python. Так что вы не много потеряете в производительности, получая при этом удобство при программировании шаблонов. Хоть этот язык и прост для освоения, но при этом он поддерживает необходимые конструкции ветвления, циклы и управление временем выполнения шаблона, вызов методов переданных объектов и подключенных Питоновских модулей.
Template toolkit будет очень удобен для программистов, которые после освоения Перла изучают Питон, так как теперь шаблонизатор можно использовать в обоих языках.
Template toolkit – это мощь, скорость и гибкость в одном флаконе.

Что почитать дальше?
Конечно же, официальный ресурс Template toolkit 2 и не забыть зайти на страницу Template toolkit для Python – там есть ссылка на svn-репозиторий, откуда можно взять свежий релиз. Когда вам наскучат эти английские буковки – почитайте русскоязычную документацию. Информация о TT есть и в Wiki.
Скачав TT с svn-репозитория – читайте документацию в файле template/ __init__.py.
В папке t – вы обнаружите кучу тестов, а тесты, как известно – лучшая документация для программиста.

Установка

$ python setup.py install

Приятного тэмплэйтинга!

Создал проект на code.google.com для своего Google Charts URL парсера

2008-03-30T14:57:00.000+03:00

При заполнении формочки для нового проекта на Гугле придумал имя моему проекту:
yagc-server: Yet Another Google Charts server.
Пока что это pre-pre-alpha версия сервера. Т.е. пока что я добился того, что он может строить PieChart (p) и Pie3DChart и то, только по будним дням и после молитвы.

Исходники доступны тут:

# Non-members may check out a read-only working copy anonymously over HTTP.
svn checkout http://yagc-server.googlecode.com/svn/trunk/ yagc-server-read-only

Собственный сервис создания графиков на базе формата Google Charts

2008-03-29T13:18:00.000+02:00

Миллионы программистов всего мира бьются над глобальной проблемой
интернет-сообщества: хорошего класса-обвертки Google Charts API для PHP нет.
Каждый день, неутомимыми энтузиастами, в их гаражах изобретаются все новые и новые велосипеды-обвертки, в большинстве из которых реализовано расширенное кодирование данных, но не реализовано простое – Simple encoding (это же фигня, что у нашего велосипеда нет заднего колеса, зато у нас есть одно переднее и среднее).
В это не легкое время процветания велостроительной промышленности, находятся такие люди, которые готовы посягнуть на самое святое – создать собственный Google Charts сервис. Да, да товарищи, вы не ослышались (если вы слушаете эту заметку в аудио формате): не оболочку для создания УРЛов в Google Charts формате, а анализатор этих самых URLов для последующего создания графиков.

(WTF)Вот зе фак, или зачем оно нужно?

При всей крутости Google Charts API – это не идеальное средство для построения графиков, но вместе с этим – очень удобное.
Причины для создания собственного модуля построения графиков следующие:

Небезопасно передавать конфиденциальную информации компании, в которой я работаю какому-то поисковику. Для меня это главная причина.
Ограничения. Раньше количество генераций графиков относительно одного хота было ограниченно. Сейчас это ограничение снято, но осталось еще одно, техническое ограничение. Методом GET больше 3кб данных не передать. Так что модно забыть о построение графиков с высокой детализацией. Это ограничение снимается за счет метода POST, но только (или пока что) на собственном сервере. Ведь данные методом POST можно и AJAX’ом передать.
Возможность настройки. К сожалению графики Google создаются только в одном стиле: в стиле Google Charts. Google Charts поддерживает довольно большой спектр настроек, но и его может быть недостаточно: маркеры не нравятся, хочется машинку на задний фон влепить и т.п. И это легко реализовать с помощью вашей любимой библиотеки, но не с помощью Google Charts.

Хорошим решением для решения описанных проблем является использование собственного модуля для построение графиков. И этот модуль должен:

Генерировать графики по переданным ему в URL параметрам.
Самый известный и хорошо документированный формат передачи данных для построения графиков – Google Charts API. На официальной странице находиться довольно не плохая документация сервиса с хорошими примерами использования.
Существует немалая кучка классов оболочек для генерации URL’ов в формате Google Charts API для различных языков программирования.
Использовать уже готовый движок для создания графиков. Таких движков уже существует немалое количество. Мне больше всего приглянулся jpGraph, потому что он многофункциональный и не плохо документирован. Содержит большое количество примеров использования.

За счет использования готовой библиотеки построения графиков, функциональность которой покрывает функционал Google Charts – я упростил себе задачу: необходимо написать парсер для перевода параметров из запроса в более удобно программируемый – объектно-ориентируемый вид для дальнейшего построения графиков при помощи используемой библиотеки.

И этот парсер уже готов на 80%. В следующий заметках я выложу его код и примеры использования.

Blog->create_instance()

2008-03-27T22:34:00.000+02:00

Тест