Help for this page

Select Code to Download


  1. or download this
    use Test::More tests=>1;
    my $x = 1.00000001;
    is sprintf("%.5f", $x), "1.00000";