oops, I read you specif without reading the code. I came with the same solution as you.print +($_+0 eq $_ ? ' ' : 'not '). "numeric: $_\n" for qw( 1 01 + a01 -3 -01 .1 ) numeric: 1 not numeric: 01 not numeric: a01 numeric: -3 not numeric: -01 not numeric: .1
--
stefp
In reply to Re: How to determine if something is numeric?
by stefp
in thread How to determine if something is numeric?
by mifflin
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |