24/02/2005, 11:16
|
 | $moderador{'Esteban'} | | Fecha de Ingreso: febrero-2002 Ubicación: Buenos Aires - Argentina
Mensajes: 8.762
Antigüedad: 23 años Puntos: 90 | |
| Yo primero haría un split para separar el número entero del decimal y luego con un if me fijo si el decimal empieza con un número mayor a 5 que le sume uno al entero
my ($entero,$decimales) = split(/\./,$numero);
#tomamos el primer decimal
my $decimal = chop($decimales);
if ($decimal > 5){
$entero++;
}
Espero que te sirva
PD: Fíjate que chop devuelve la última letra, hay otra función que devuelve la primera
__________________
Esteban Quintana |