В первой записи на сайте сообщается:
«После продолжительного перерыва возрождается группа пользователей Perl в Софии, или Софийских перл-монгеров. Это происходит раз в ответ на быстрое развитие языка Perl в последние годы и предстоящего выхода нового Perl 6. Идея по возобновлению группы пришла во время второго Perl-воркшопа в январе 2010 года».
]]>Рецепт: в магазине приобретается красная футболка по размеру, и по пути на работу (на велосипеде) она завозится в контору AKDR.
Передняя сторона будет выглядеть так:
Оборотную сторону пока показывать рано.
]]>
Решение о том, пройдет YAPC::Europe 2011 во Франкфурте или в Риге, еще не принято и не обнародовано :-)
]]>Но я — нет — не сижу без дела. Вот в блокнотики рисую, например.
На спане — модуль для Perl-гольфистов Acme::Minify.
]]>Дано: хеш вида
my %what_when = (
13 => 'Lunch',
17 => 'Tea',
20 => 'Dinner',
9 => 'Breakfast',
);
Требуется: сформировать список пар, отсортированных по ключу хеша (в примере — по времени):
]]>my @schedule = (
[9, 'Breakfast'],
[13, 'Lunch'],
[17, 'Tea'],
[20, 'Dinner'],
);
Вот модуль Time::Business, судя по описанию, полезный: умеет переводить рабочие часы в «общечеловеческие». CPAN сообщает о десятках успешных тестов на разных платформах. Но в действительности к модулю прилагается только тест use_ok (это не самое страшное), а код из краткого описания не работает:
use v5.12;
use Time::Business;
my $bt = new Time::Business ({
WORKDAYS => [1..5],
STARTTIME => 1000,
ENDTIME => 1900,
});
my $seconds = $bt->calctime(time, time + 1 * 86400);
perl test.pl
Can't locate object method "calctime" via package "Time::Business" at test.pl line 9.
Понятно, что дальнейшее чтение документации помогает добиться работоспособности, но внутренний голос сразу начинает говорить о том, что как-то и все остальное некрасиво: и странный формат записи времени (а что, если записать 0800 — не в восьмеричном ли формате это получится?), и капслок в именах ключей, и отсутствие предопределенных значений — собственно, все то, что замечаешь при первом взгляде, но что лишь усиливает негатив после того, как первый тест не заработал.
]]>
Помимо собственно описания мероприятия автор делится некоторыми мыслями по поводу того, как сделать хакатоны максимально эффективными.
«В чем же секрет такой высокой производительности хакатона? Пожалуй, рецепт успеха выглядит так: „Сформулируйте цели мероприятия. Найдите самый маленький конференц-зал, вместите в него пару дюжин толковых программистов. Обязательно пригласите ведущих специалистов в выбранной области, возьмите на себя их расходы на поездку. Каждое утро проводите брифинг о целях нового дня и о достигнутых результатах, чтобы участникам было к чему стремиться и чего добиваться. В течение трёх дней кормите, поите и выдавайте программистам столько кофе, сколько они потребуют. В конце последнего дня подведите итог и отведите работяг в кафе или бар. Если сделаете все правильно, то результат вас ошеломит‟. Всего-то делов».
]]>]]>— Как нужно правильно кастовать полученный объект к нужному типу, чтобы с ним можно было работать?
— (A*)(SvIV((SV*)SvRV(cppObject))).
— Большое спасибо. Все заработало.
package MyTest;
use base 'Class::Accessor';
use Test::Deep;
__PACKAGE__->mk_accessors qw(mytest);
1;
Модуль Class::Accessor создаст в пакете MyTest метод mytest(), который должен работать как пара сеттер — геттер для установки поля mytest (точнее, $self->{mytest}). Тестируем:
use v5.12;
use MyTest;
my $test = new MyTest;
$test->mytest('test');
say "mytest=", $test->mytest;
И видим, что никакое значение mytest=test не устанавливается. Комментируем в файле MyTest.pm строку, подключающую модуль Test::Deep, и все работает:
mytest=test
Раскомментируем обратно и попробуем немного по-другому:
$test->set('key', 'value');
set $test('key', 'value');
Опять не работает. Но по-другому мы пробуем уже после того, как заглянули в исходник Test::Deep и увидели там безусловный экспорт функции set:
@EXPORT = qw( eq_deeply cmp_deeply cmp_set cmp_bag cmp_methods
useclass noclass set bag subbagof superbagof subsetof
supersetof superhashof subhashof
);
В свою очередь, внутри методов-аккессоров, которые создает Class::Accessor, используются вызовы $self->set(...), которые в модуле, унаследованном от него, попадают напрямую в Test::Deep::set().
Неуклюжее быстрое решение: подсказать компилятору, куда направлять внутренние вызовы методов set:
package MyTest;
use base 'Class::Accessor';
use Test::Deep;
*set = *Class::Accessor::set;
__PACKAGE__->mk_accessors qw(mytest);
1;
Сделали sandbox на новеньком сервере, стали запускать тесты — половина не работает. Вместо ok видим wanted a data type, got `i8'. Кто говорит? Слон? Ошибку можно разглядеть в XML, который как-то где-то формируется через третьи руки. Разумеется, автор кода на этой неделе в отпуску, поэтому тратим еще час на то, чтобы выяснить, что сообщение об ошибке формирует модуль RPC::XML.
Мы-то уже догадались, что i8 — скорее всего тип целочисленных данных, потому что в стандарте есть тип i4, но про i8 там ни слова.
Еще какое-то время, и выясняется, что на другом сервере такой ошибки нет. Остается догадаться посмотреть $RPC::XML::VERSION. Ну точно, в одном месте — 1.36, в другом — 1.41.
Читаем документацию и удивляемся: тип i8 добавлен как нестандартный. Потому что им уже кто-то пользуется. Смотрим на спан и удивляемся еще раз: последняя версия там — 0.70. Ij? (в русской раcкладке — шо?) Может github? Там тоже 0.70. Начинаем подозревать всех в том, что они втихаря переписывают модуль прямо на серверах. Но в итоге смотрим в исходник версии 0.70 и видим, что версия модуля — 1.50. Релаксируем.
]]>
А выведут они следующее.
Программа А.
use v5.12;
my @letters = 'a'..'z';
for (my ($number, $char) = each @letters) {
say "$number $char";
}
0 a
0 a
Программа Б.
use v5.12;
my @letters = 'a'..'z';
say $_ for each @letters;
0
a
Программа В.
use v5.12;
my @letters = 'a'..'z';
say $_ foreach @letters;
a
b
c
. . .
x
y
z