Efektivita

[Jindrich Kubec]

Hi,

ten unpack v prikladu nize bude asi chvili trvat a to pole asi zabere
dost pameti. Da se to udelat 'mene' narocne? V $_[0] je nejaky dlouhy
string.

sub ComputeChecksum()
{
	my $cs = 0;
	foreach my $b ( unpack( 'C*', $_[0] ) )
	{
		#pro ilustraci
		$cs += $b;
	}
	return $cs;
}

Jindroush