Perl nicht über einen eingebauten Funktion speziell für Fließkomma-Zahlen auf ganze Zahlen zu runden, aber Sie können Ihre eigenen Funktion, die die Funktion sprintf , diese Zahlen auf die nächste ganze abzurunden enthält schreiben. Die sprintf -Funktion nimmt zwei Argumente , ein Format und eine Liste . Die Liste ist einfach die Nummer, die Sie auf-oder abrunden . Verwenden Sie " % .0 f ", wie das Format, das die Funktion , dass die Zahl wird Gleitkomma und Sie wollen es auf Null runden Ziffern nach dem Komma erzählt . Anleitung
1

Öffnen Sie ein Perl-Programm -Datei. Geben Sie den folgenden Code:

sub intCheck {

my $ num = shift;

return ( $ num = ~ m /^ \\ d + $ /);

}

Dies schafft eine Funktion namens " intCheck " , die erste bekommt ein Argument übergeben , um es und speichert sie in einer Variable namens " $ num ", dann "wahr" zurück , wenn diese Zahl ist eine ganze Zahl . oder "falsch" , wenn es nicht
2

Geben Sie den folgenden Code:

Unterumlauf {

my $ var = shift;
< p > if ( intCheck ( $ var - 0,5 )) {$ var = $ var + 0,1 ;}

Rückkehr sprintf ( "% .0 f ", $ var) ; }

Dies schafft eine Funktion namens "rund . " Er erhält das Argument an und speichert es in der " $ var "-Variable . Es ruft dann die Funktion intCheck und leitet die variable Anzahl minus 0,5 . Wenn die intCheck Funktion gibt "true ", die $ var hat 0.1 hinzugefügt. Die Funktion round rundet dann die Variable auf die nächste ganze Zahl und gibt es
3

Geben Sie den folgenden Code: .

Druck Runde ( 4,49) . " \\ n";

Druck Runde ( 4,51 ) . " \\ n";

Druck round ( 4.5). " \\ n";

Diese Zeilen testen die Runde Funktion . Die erste Zeile Runden auf vier und die nächsten zwei Linien um bis zu fünf .
4

Speichern Sie die Perl -Datei.