[Moscow.pm] Нужна ваша помощь (PHP -> Perl)

[Андрей Костенко]

Советую заглянуть на CPAN, возможно, эти же задачи решатся гараздо более
красивым кодом + модуль работы с SWF :-)

2009/6/9 <dvhillard на gmail.com>

> Здравствуйте, Moscow.pm.
>
> Есть PHP файл, там несколько функций для работы .SWF
> Попробывал сам переписать на Perl, но не осилил даже строчку
>           $result = $result + ((((ord($buffer[(int)($loop / 8)])) >> (7 -
> ($loop % 8))) & 0x01) << ($count - ($loop - $pos) - 1));
>
> И ещё там есть пару сложных моментов, с большим регекспом.
>
> Немогли бы вы мне помочь с этой задачей? Естественно не бесплатно, WMZ
> плачу.
>
> Вот этот PHP файл
> http://www.8fn.net/875489
>
>
> Спасибо!
>
> --
> С уважением,
> Dvhillard                          mailto:dvhillard на gmail.com
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>
----------- следущая часть -----------
Вложение в формате HTML было извлечено&hellip;
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20090608/2991a37e/attachment.html>