Cómo redondear a un número entero en Perl

Perl no tiene una función integrada diseñada específicamente para redondear los números de punto flotante a enteros , pero usted puede escribir su propia función que incorpora la función sprintf para redondear los números al entero más próximo. La función sprintf toma dos argumentos , un formato y una lista . La lista es simplemente el número que desea redondear hacia arriba o hacia abajo. Utilice "% .0 f " como el formato , que indica a la función que el número es de coma flotante y desea redondear el resultado a cero dígitos después del punto decimal. Instrucciones
1

Abra un archivo de programa Perl. Escriba el siguiente código:

sub intCheck {

my $ num = cambio ;

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

}

Esto crea una función llamada " intCheck " que obtiene primero un argumento que se le pasa y lo guarda en una variable llamada "$ num, " entonces devuelve " true" si ese número es un número entero . o "false" si no es
2

Escriba el siguiente código:

sub ronda {

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

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

}

Esto crea una función llamada " ronda". Se pone el argumento que se le pasa y lo guarda en la variable "$ var " . A continuación, se llama a la función intCheck y pasa el número variable menos 0,5 . Si la función intCheck devuelve "true ", los $ var tiene 0.1 añade a la misma. La función ronda luego redondea la variable al número entero más próximo y devuelve lo
3

Escriba el siguiente código: .

Ronda de impresión ( 4,49 ) . " \\ n";

ronda de impresión ( 4,51 ) . " \\ n";

ronda de impresión ( 4,5 ) . " \\ n";

Estas líneas pruebe las funciones de todo el año. Las primeras rondas de línea reduce a cuatro y los dos siguientes líneas completan a cinco.
4

Guarde el archivo Perl.