数値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(…