Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Reg Ex exercise

by thundergnat (Deacon)
on Dec 05, 2012 at 16:26 UTC ( #1007321=note: print w/replies, xml ) Need Help??

in reply to Reg Ex exercise

Seems like fairly arbitrary specs for what is or isn't a number. Ah well. Don't expect this to work for scientific notation, complex numbers, or anything else that isn't explicitly tested here.

printf "%s is %sa number.\n", $_, /^-?\d+(?:\.\d+)?$/ ? '' : 'NOT ' for qw/4 -7 0.656 -67.35555 5. 56F .32 -.04/;
4 is a number.
-7 is a number.
0.656 is a number.
-67.35555 is a number.
5. is NOT a number.
56F is NOT a number.
.32 is NOT a number.
-.04 is NOT a number.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1007321]
[Corion]: Most likely Regexp::Debugger uses something in main:: ;)
[Corion]: Hmm - no, nothing jumps out immediately
Corion jumps into bed
[choroba]: On the indicated line, it uses (caller 1)10
[choroba]: (caller 1)[10] that is

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2017-09-25 21:38 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (291 votes). Check out past polls.