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

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

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

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

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

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

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

Original post http://sharifulin.livejournal.com/46649.html

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

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

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

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

use Perl or die;

Just F*cking Do It

Original post http://sharifulin.livejournal.com/46532.html

В тот день я блицовал.

Первый блиц "Почему я программирую на Perl", две незапланированные паузы не позволили мне уложиться в 5 минут.
Зато принт-хелло-ворлд сорвал аплодисменты. Лучше смотреть видео :)

Это был ремейк блица с South Perl. Сделал для себя вывод – больше повторять доклады не буду.

Второй блиц – спонтанный, написанный в тот же день – "Модули Net::*, использующие LWP::UserAgent – зло?!".
Этот доклад продолжил тему зла в моих блиц докладах на YAPC::Russia :)

Порадовали красные фирменные кружки YAPC::Russia.
Большинство презентаций с мероприятия уже доступны на сайте.
В общем, конференция удалась, было очень круто, интересно и весело.
Надеюсь, видео не заставит долго ждать :)

Классная фотография Брайна Д Фоя:

И это то же ничего :)

 

use Perl or die;

JFDI

Original post http://sharifulin.livejournal.com/46107.html

Сегодня также выступал мой коллега – Дмитрий Константинов с блиц-докладом "10.000 вариантов снять квартиру или сам себе POE-риелтор", мне понравилось, для первого раза очень хорошо.

Немного фото:

Завтра день будет насыщенным: мастер-класс от brain d foy, два зала и блиц-доклады.
До завтра :)
Original post http://sharifulin.livejournal.com/45840.html

На сайте курса нашел примеры полной интроспекции кода на Perl (т.е. нужно показать исходный код программы, не используя чтение/запись файла).

Решил написать свой вариант на Perl (только перловый, а не академический), а потом посмотреть на имеющиеся. Долго думать не стал, получилось следующее:

print, printf 'q(%s)', $_ for q(print, printf 'q(%s)', $_ for )

print <DATA>x2 __DATA__
print <DATA>x2 __DATA__

О! Френды-перловики, хотелось бы увидеть ваши варианты.

UPD: 

Вариант от mcfist :

require B::Deparse;
'B::Deparse'->compile->();
$_ = 'Hello World!';

pavel_kudinov

s{[[:digit:]]|^(?!.)}{s{[[:digit:]]|^(?!.)}{1} while !length...0;print} while !length...0;print

what_me

s ffq bprint q ts t, chr 0146, chr 0146, qq tq t, chr 0142 and print and print chr 0142, chr 0146, q te;t and printbfe;print q ts t, chr 0146, chr 0146, qq tq t, c

Original post http://sharifulin.livejournal.com/44428.html