Codesnippet: Quersumme berechnen

Zur Berechnung der Quersumme einer Zahl kann auf dieses Snippet zurückgegriffen werden.

function quersumme {
	my $number = shift;
	my $sum = 0;
	while ($number != 0) {
		$sum = $sum + ($number % 10);
		$number = $number / 10;
	}
}