numerische notationen in Perl

[Beate Mielke]

Hallo Rolf,

sprintf() ist ok, mit dem folgenden Testscript werden genau 2 Stellen ausgegeben, bloß: wie verhindere ich das Runden?

---testsript---
$x = <STDIN>; # Eingabe mit Punkt
$s = sprintf ("%.2f", $x);
print $s;
---ende---

$x = <STDIN>;
$x = int ($x * 100) / 100;
printf ("%.2f", $x);

Viele Gruesse

Beate Mielke