Wieviele Bits sind gesetzt

[Horst]

Hallo,

sub countBits ($) {

my $count = $[0] - (($[0] >> 1) & 0xDB6DB6DB) - (($_[0] >> 2) & 0x49249249);
  return (($count + ($count >> 3)) & 0xC71C71C7) % 63;
}

  
Vielen Dank,  
Hotte