広告
ホームページ作成の第一歩 >> Perl メニュー >>
# 引数:数値 # 戻値:整形済み数値 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; }
ホームページ作成の第一歩 >> Perl メニュー >> ページの一番上へ