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

[Alexander Lourier]

В письме Tuesday 09 June 2009 00:28:29 dvhillard на gmail.com написал:

> Попробывал сам переписать на Perl, но не осилил даже строчку
> $result = $result + ((((ord($buffer[(int)($loop / 8)])) >> (7 - ($loop % 8))) & 0x01) << ($count - ($loop - $pos) - 
1));

$result = $result + ((((ord($buffer[int($loop / 8)])) >> (7 - ($loop % 8))) & 0x01) << ($count - ($loop - $pos) - 1));

-- 
Alexander Lourier, http://aml.rulezz.ru/