数値に３桁ごとでカンマを挿入する

# 引数：数値

# 戻値：整形済み数値

sub spKeta {
    local($lngNum) = @_;
    if ($lngNum =~ /^[-+]?\d\d\d\d+/g) {
        for ($i = pos($lngNum) - 3, $j = $lngNum =~ /^[-+]/; $i > $j; $i -= 3) {
            substr($lngNum, $i, 0) = ',';
        }
    }
    return $lngNum;
}