コンマ挿入

数値1234567を\1,234,567-見たいにコンマを挿入する

sub toCommaNum(){
	local(@str,$i,$in);
	$in = $_[0] . '';
	$i = length($in);# - 3;
	push(@str,substr($in,($i-=3),3)) while ($i>3);
	push(@str,substr($in,0,$i)) if ($i>0);
	return join(',',reverse(@str));
}

($i -= a) などの場合 計算された後の数値を返す
#このせいで変な値を返していた