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.