Подсчет единиц в двоичном числе на perl

Анна12 років у сервісі
Дані замовника будуть вам доступні після подання заявки
19.11.2012

нужен небольшой (он, действительно, небольшой) скрипт на Perl.

Есть информация о состоянии 30 соединительных линий в потоке .

состояние линии кодируется одним битом - занята/свободна

В потоке линий 30, получается примерно вот такое число 001001001110110110001100110000

Железка отдает это число в десятичном виде, примерно такое: 154886960

Нужно знать количество занятых соединительных линий, то есть количество единиц в двоичном виде десятичного числа.

Другими словами,нужно преобразовать число 154886960 в число 13.

хочется получить результат сегодня-завтра. лучше сегодня.

Предложения по цене?

Заявки фрілансерів