Wieviel Bit braucht eine integer Zahl

[Christoph]

Moin.

sub bitcount{

[...]
}

  
Das geht einfacher (ungetestet):  
~~~perl
  
sub bitcount {  
	my $n = shift || return 0;  
	my $msb = 0;  
  
	for(; $n; $n >>= 1)  
		++$msb;  
  
	return $msb;  
}

Christoph