open(TEMPLATE,"<:encoding(utf-8)", $filepath);

А затем, благодаря Mons Anderson с moscow.pm, он был оптимизирован:

open(TEMPLATE,'<:utf8', $filepath);

Хакнутый модуль доступен здесь

P.S.

Тема неожиданно получила продолжение в списке рассылки moscow.pm. А именно, высказали опасения насчет безопасности использования второго способа с utf8. В качестве аргумента приводится статья: http://www.perlmonks.org/?node_id=644786. Думаю каждый сам решит для себя как лучше здесь поступить. В коде самого модуля вызов open(TEMPLATE...) встречается всего два раза - и желающие всегда смогут  изменить его на нужный вариант.

Успел послушать только 4-х докладчиков, к сожалению, но и то что увидел/услышал - очень понравилось с точки зрения и организации и вовлеченности участников в процесс.

Хотел бы также в этой заметке прорекламировать очень полезный инструмент для freebsd администраторов и разработчиков от Андрея Костенко. Почему в этой заметке? Потому что об этой программе было рассказано на офлайновой встрече. Итак:

Утилита  для создания портов для FreeBSD из дистрибутивов CPAN. Действительно полезная вещь, ибо сам неоднократно мучался с этим. Помимо того что вещь полезная - она еще и очень friendly-used :).

P.S.

Надеюсь что презентации со встречи скоро появятся на соответствующих ресурсах.

Вышла очень интересная, на мой взгляд книга: "Developing Web Applications with Apache, MySQL, memcached, and Perl" by Patrick Galbraith. Самое удивительное что ее уже можно найти в сети :).

Skype давно уже открыл свой API для сторонних разработчиков. Написано уже масса библиотек для работы с его протоколом для разных языков. Что нам может предложить perl по этому поводу?

Порыскав на cpan, нашел всего лишь 1 модуль - SkypeAPI для поставленной задачи (работа с протоколом Skype). Но это «ВСЕГО ЛИШЬ» преждевременно, как будет рассмотрено ниже - этот модуль покрывает основную часть наших потребностей работы со Skype.

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

Итак, начнем...

Прежде чем что-либо писать дальше, скажу сразу, что данный модуль работает только под Windows (пока... к сожалению). Так что наша тестовая среда (в моем случае) Windows XP SP3, ActivePerl 5.8.9, Skype 3.8.

Наверное, первый вопрос, который мне зададут - как это будет работать и зачем установленный Skype на компьютере? Как всегда в вопросе - половина ответа. Скрипт на perl работает через установленный клиент Skype, использует текущий аккаунт, который использует Skype на этом компьютере, и совершает все действия от имени этого аккаунта.

Начнем с очень простой задачи - получение информации о текущем пользователе, получение его статуса и изменение его статуса:

   1    #!/usr/bin/perl -w
   2    use strict;
   3    use SkypeAPI;
   4    
   5    my $skype = SkypeAPI->new();
   6    if( $skype->attach ) {
   7    my $command = $skype->create_command( { string => "GET USERSTATUS"}  );
   8    print $skype->send_command($command) , "\n";
   9    print "Now go away\n";
  10    # переведем клиента в статус Нет на месте :)
  11    $command = $skype->create_command( { string => "SET USERSTATUS AWAY"}  );
  12    print $skype->send_command($command) , "\n";
  13    }
  14    else {
  15      print "Please, install Skype on PC and login\n";
  16      exit;
  17    }

# отправляем текстовое сообщение 
$command = $skype->create_command( { string => "CHAT CREATE user_vasya"}  ); 
my (@a)=split(/ /,$skype->send_command($command));#$a[1] - CHAT ID 
my $i=0; 
# слегка поспамим :0) 
while($i<2) { 
$command=$skype->create_command( {string=> "CHATMESSAGE $a[1] Вот так вот"}); 
print $skype->send_command($command) , "\n";
$i++; 
} 

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

Итак, для наглядности создадим небольшую форму для обратной связи с помощью данного модуля. Будем использовать HTML-Template для обработки шаблонов (при этом нам не надо отдельно загружать данный модуль, CGI-FormBuilder будет использовать его абсолютно прозрачно для пользователя).

  11    my $form = CGI::FormBuilder->new(
  12                            source      => './feedback.fb',
  13                            messages    => './messages.ru',
  14                            template    => './feedback.html',
  15                            title       => 'Форма обратной связи',
  16                                      );

Создаем объект для работы с формой. Рассмотрим опции переданные в конструктор new.

Source - указывает путь к файлу-шаблону формы

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

Template - указывает путь к файлу-шаблону HTML-Template

Title - это уже один из параметров для шаблона HTML-Template

Теперь напишем небольшой блок условий, для обработки добавленной формы:

  20    if ($form->submitted && $form->validate) {
  21           $form->title('Успешно добавлено');
  22           $in{name} = $form->field('name');
  23           $form->tmpl_param(user  => $in{name});
  24           print $form->confirm template => './success.htm');
  25    }
  26    else { 
  27            print $form->render(sticky => 1);
  28    }

Методы CGI-FormBuilder submitted и validate возвращают true, если форма отправлена и прошла проверку, в противном случае возвращаем форму. Параметр sticky => 1 позволяет сохранить уже введенные пользователем данные и не очищать форму («приклеивает» значения формы).

Итак, если форма добавлена, мы перезаписываем title страницы с информацией типа «Успешно добавлено». Затем получаем из формы значение поля name, для этого используется модуль CGI. (NB: модуль предполагает использование CGI.pm для работы с входными/выходными данными, в данном случае я использую его так: use CGI qw (param header)).

Вот собственно и весь код по отображению формы. Теперь перейдем к написанию шаблонов.

Начнем с шаблона формы feedback.fb

Весь код описанный в заметке лежит здесь.

Резюме:

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

Рис. 1. Данные 2008 года

Рис. 2. Данные 2009 года

А теперь посмотрим процентное соотношение прироста:

Perl 40.2 %

Python 36.7%

C++ 36.6%

Java 13.3%

Ruby только в этом году смог выделиться из группы Others, что тоже очень не плохо.

Если учесть долю Perl в общем кол-ве от диаграммы, то опять же получаем:

2008 год - доля Perl 2.7%

2009 год - доля Perl 3.02%

Кто сказал что Perl умер? Киньте в него камень!*

* - надеюсь, виртуальный, ведь вы не кровожадны? :)

There is a really simple reason we owned PerlMonks: we couldn't resist more
than 50,000 unencrypted programmer passwords.