Lugares decimales truncados (no redondos) en sprintf?

Question

Quiero mostrar el valor en dólares con dos dígitos después del punto decimal para indicar los centavos. En el programa a continuación, la salida es 23.24. Perl redondea los decimales. Cómo evitarlo Quiero que la salida sea 23.23.

$val=23.2395; 
$testa=sprintf("%.2f", $val); 
print "\n$testa\n $val"; 

Answer 1

print int(23.2395*100)/100; # => 23.23 

Answer 2

Math::Round tiene diferentes métodos de redondeo.

use Math::Round 'nlowmult'; 
print nlowmult(0.01, 23.2395); # 23.23