Perl har ikke en indbygget funktion specielt designet til at afrunde kommatal til heltal , men du kan skrive din egen funktion, der inkorporerer sprintf funktion at afrunde disse tal til nærmeste hele . Den sprintf funktion tager to argumenter , et format og en liste. Listen er simpelthen det nummer, du ønsker at runde op eller ned. Brug "% .0 f" som format , som fortæller funktionen , at antallet er flydende punkt, og du ønsker at afrunde det til nul cifre efter kommaet . Instruktioner
1

Åbn en Perl program fil. Indtast følgende kode : Hej

sub intCheck {

min $ num = skift;

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

}

Dette skaber en funktion kaldet " intCheck " , der først får et argument gik til det og gemmer det til en variabel kaldet " $ num ", derefter returnerer "true ", hvis det er et helt tal . eller "falsk ", hvis det ikke er
2

Indtast følgende kode : Hej

sub runde {

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

afkast sprintf ("% .0 f" , $ var ),

}

Dette skaber en funktion kaldet "rund ". Det bliver argumentet videre til det og gemmer det i " $ var " variable . Derefter kalder intCheck funktion og passerer variabelt antal minus 0,5 . Hvis intCheck funktionen returnerer " sand ", den $ var har 0.1 tilføjes det. Den runde funktion så runder variablen til det nærmeste hele tal og returnerer det
3

skrive følgende kode : .

Print round ( 4.49 ) . "\\ n";

print round ( 4.51 ) . "\\ n";

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

Disse linjer teste funktionen round . Den første linje runder ned til fire , og de ​​næste to linjer runde op til fem.
4

Gem Perl -fil.