Perl non ha un built-in funzione specificamente progettata per arrotondare i numeri in virgola mobile in interi, ma si può scrivere la propria funzione che incorpora la funzione sprintf per arrotondare questi numeri per l' intero più vicino . La funzione sprintf prende due argomenti , un formato e una lista . L' elenco è semplicemente il numero che si desidera arrotondare . Utilizzare "% .0 f" come formato , che indica alla funzione che il numero è in virgola mobile e si desidera arrotondare a zero cifre dopo la virgola decimale . Istruzioni
1

Aprire un file di programma Perl . Digitare il seguente codice :

sub intCheck {

my $ num = shift;

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

}

Questo crea una funzione denominata " intCheck " che ottiene prima un argomento passato a esso e lo salva in una variabile chiamata " $ num ", quindi restituisce "true" se quel numero è un numero intero . oppure "false" se non lo è
2

Digitare il seguente codice:

sub rotonda {

my $ var = shift;
< p > se ( intCheck ( $ var - 0.5 ) ) { $ var = $ var + 0.1 ; }

ritorno sprintf ( "% .0 f" , $ var) ;

}

Questo crea una funzione denominata "rotondo ". Ottiene l'argomento passato a esso e lo salva nella variabile " $ var " . E poi chiama la funzione intCheck e passa al numero variabile di meno 0,5 . Se la funzione intCheck restituisce " vero", il $ var ha 0.1 aggiunto ad esso. La funzione round, giri la variabile al numero intero più vicino e lo restituisce
3

digitare il seguente codice : .

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

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

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

Queste linee di testare la funzione round. La prima linea arrotonda a quattro e le prossime due linee arrotondate fino a cinque.
4

Salvare il file Perl .