Frank Schönmann: Perl: Zahlen runden auf x dez. Stellen

Beitrag lesen

hi!

Eine dritte Moeglichkeit stellen Regular Expressions dar. Da Perl jede Variable so
behandelt, wie man es geade will, kann man auch Suche-Ersetze-Funktionen fuer
Zeichenketten auf Zahlen loslassen.
   print "Content-type: text/html\n\n";
   print "<html><head></head><body>\n";

$test = 3 / 7;
   $test =~ s/.(\d{2})*/.\1/g;

Ich würde sagen: $test =~ s/.(\d{2})\d*/.\1/g;

print "$test";

print "</body></html>\n";

bye, Frank!