perl で四捨五入を行なう方法
2010年7月19日 17:53
perl で四捨五入の処理を行なう方法をあれこれまとめておきます。
sprintf を使う方法
あんまり推奨されていない方法だとは思いますが、sprintf で四捨五入をする場合。
小数点以下の部分を四捨五入する場合は "%.1f" "%.3f" などと指定します（1や3等の数字で小数点以下の四捨五入する桁を指定）。
$num = 1.4256;
#-- 小数点第一位に四捨五入
$round_num = sprintf("%.1f",$num); # 1.4
#-- 小数点第三位に四捨五入
$round_num = sprintf("%.3f",$num); # 1.426
Math::Round::nearest モジュールを使う方法
sprintf を使うより、こちらの方が正確です。
nearest(桁数,数値); という形式で、四捨五入の結果を返してくれます。
use Math::Round; $num = 46.8345; #-- 小数点第一位に四捨五入 $round_num = nearest(0.1,$num); # 46.8 #-- 小数点第三位に四捨五入 $round_num = nearest(0.001,$num); # 46.835 #-- 一の位に四捨五入 $round_num = nearest(1,$num); # 47
つぶやく
- 現在位置
- TOP > Web制作技術 > perl/CGI > perl で四捨五入を行なう方法
- 前のブログ記事
- perl で正規表現にマッチした文字列を配列に入れる方法 [2010年7月16日 22:16]
- 次のブログ記事
- perl でハッシュ(連想配列)のソート [2010年7月20日 16:40]
コメント(0)
コメントする