[Alberto Serrano]

Buenas!!

¿De qué manera puedo determinar en Perl si alguna variable tiene un valor númerico?

Gracias.

[Noemi Lopez]

Para ello podemos utilizar Scalar::Util::looks_like_number() que usa el API interno de Perl y contiene la función looks_like_number() y es uno de los métodos más eficientes para determinar esto:

use Scalar::Util qw(looks_like_number);
my @exprs = qw(1 5.25 0.001 1.3e8 foo bar 1dd);
foreach my $expr (@exprs) {
	print "$expr es", looks_like_number($expr) ? '' : ' no, " un numero\n";
}

[Alberto Serrano]

Genial, ya sé como hacerlo más o menos.

gracias.