[perl]afronden

[Verwijderd]

heb het volgende stukje

code:

$sql="SELECT sum(size), count(*) FROM maillog WHERE domeinnummer = $data[$b][0] ORDER BY sum(size) ASC" ;
  @som=$dbh->ct_sql($sql);
  if ( $som[0][0] > 1000000) { $som[0][0] = $som[0][0] / 1000000;}
  if ( $som[0][0] > 1000) { $som[0][0] = $som[0][0] / 1000;}

Nu wil ik dat afronden op 2tiende achter de komma.
en er moet een stukje tekst achter bij de eerste mb en de 2de kb.
Hoe kan ik dit doen want ik ben een noob

edit:

Nu hoor ik dat je niet kan afronden in perl

[RRX]

ik heb geen verstand van perl, maar kun je de functie round() niet proberen:?
/edit:

in php is het:

$getal = round($getal, 2);

[Verwijderd]

zo slim ben ik nog wel dat dat niet kan.
php is toch net ff anders dan perl

[Verwijderd]

Kan met Math::Round http://search.cpan.org/doc/GROMMEL/Math-Round-0.03/Round.pm

[Verwijderd]

#aanroepen benodigde modules
use Number::Format;

my $hfl = new Number::Format (-thousands_sep => '.',
-decimal_point => ',');


$totaal = $hfl -> format_number($subtotaal,2,2);

meer info op perldoc Number::Format <- command line

deze werkt wel. Heb de math module (nog) niet geinstalleerd