Настроил недавно тут сабжект на работе, наверно день потерял на этом, но чую не зря, очень горд собой :)

выглядит это так:

( Read more... )

Чтобы не забыть - для замены текста в файле

perl -i -pe 'undef $/; s!one line\ntwo line!new text!g' file
даже еще короче можно:
perl -0 -i -pe 's!one line\ntwo line!new text!g' file

ps: perl никогда не перестанет удивлять :)

а мож кто-нить юзал сабж как оно?

Я уже больше 5 лет пишу на перле, но правило "век живи - век учись" никто не отменял :)

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

Делается это просто:

use Carp q/cluck/;
warn cluck;
выводит все вызовы "вверх" до ( Read more... )

Вчера обновил свое творение, 18 августа Mojo сильно перелопалили, и мой чудо-модуль поломался, вот дошли руки починить.

в Mojo починили метод default_handler (судя по логу комитов, чинил sharifulin) и вызов render стал проще: теперь в качестве аргументов функции можно передавать только переменные которые надо вывести в шаблоне (имя шаблона по умолчанию ( Read more... )

Написал свой первый модуль для CPAN: MojoX::Renderer::HTP. Это рендерилка HTML::Tempate::Pro для Mojo. Сам Mojo еще активно дописывается, так что возможно придется что-то исправлять-дописывать.

Имя шаблона можно указать явно:
$self->render(template => 'index.tmpl', handler => 'pro', var => 'foo');
тогда Mojo будет искать шаблон  $PROJECTDIR/templates ( Read more... )

Хозяйке на заметку: не используйте никогда apache2-mpm-worker, он не работает.

Sebastian Riedel не перестает удивлять, в прошлую субботу он анонсировал Mojolicious::Lite.

Это реально круто, такого я в перле еще не видел, действительно "быстрый старт":

( use Mojolicious::Lite; )

Итак, вы - $_Используется по умолчанию во многих функциях и операциях, в том числе: в качестве области поиска в операциях сопоставления с образцом, замены и транслитерации, когда область поиска не задана явно операцией связывания; в качестве области ввода, когда условное выражение оператора while состоит из единственной операции ввода <>; в ( Read more... )

кто знает - тс!...

кусок кода:

foreach my $index (0 .. $#sports) {
if ($index & 1 == 1) {
$sports[$index]{is_next_line} = 1;
} else {
$sports[$index]{is_prev_line} = 1;
}
}

что делает этот цикл?

UPD: пару пояснений:
$#sports - количество элементов в массиве
@sports - массив хэшрефов