#!perl -w
use Math::Round;
use strict;

{
  # =========================================================================
  # Test Case(1)
  # =========================================================================
    my @v = (555.345, -555.765); # スカラーでもOK
    
    print "=================================\n";
    print "Case1 : ", join(", ",@v), "\n";
    
  # =========================================================================
  # sprintf使用
  # =========================================================================
    print "---------------------------------\n";
    print "/1    : ", sprintf("%.0f,\t%.0f", @v), "\t# sprintf\n"; # 小数点0桁(整数)化
    print "/0.1  : ", sprintf("%.1f,\t%.1f", @v), "\t# sprintf\n"; # 小数点1桁化
    print "/0.01 : ", sprintf("%.2f,\t%.2f", @v), "\t# sprintf\n"; # 小数点2桁化
    
  # =========================================================================
  # Math::Round::nearest()使用
  # =========================================================================
    print "---------------------------------\n";
    print "/1    : ", join(",\t", nearest(1,    @v)), "\t# nearest\n"; # /1→整数
    print "/0.1  : ", join(",\t", nearest(0.1,  @v)), "\t# nearest\n"; # /0.1→小数点1桁化
    print "/0.01 : ", join(",\t", nearest(0.01, @v)), "\t# nearest\n"; # /0.01→小数点2桁化
}