#!/usr/bin/perl -w
# Ejercicio 13.
Detección de números
while () {
print "\n Introduzca un numero entero o real: \n";
$numero =
<STDIN>;
chomp ($numero);
if ($numero =~ /^(([\+-]?\d+) # Este agrupamiento busca enteros
|([\+-]? # La parte fraccionaria de un número en punto flotante
# puede llevar signo o
no.
\d*\.?\d* # Puede tener
parte entera o parte decimal o ambas.
[e|E][\+-]?\d*) # Este agrupamiento busca el exponente
)$/x) {
if
($2 eq $numero) {
print "$numero es un numero entero valido";
}
else
{
print "$numero es un numero real valido";
}
}
else {
print
"$numero no es un numero valido\n";
}
exit;