Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2017-04-24 07:57 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (437 votes). Check out past polls.