centerize.pl

# 文章をセンター寄せにする。
# 文末にも空白を入れるので注意

# usage: &centerize(*str, 10);
# $strを10バイト幅に収める

sub centerize{
	local(*str, $length) = @_;
	local($space) = ($length - length($str));
	if ($space){
		$str = ' ' x (int($space/2) + ($space % 2))
		. $str .
		' ' x int($space/2);
	}
}