В письме Tuesday 09 June 2009 00:28:29 [email protected] написал:
> Попробывал сам переписать на 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/ -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
