http://qs321.pair.com?node_id=479419


in reply to Match number >= 0 and <1

It could be more concise, and you don't need the alternation: 

my ($num) = $_num =~ /^0?\.\d+$/;

[download]
Interpreted as: zero or one zeroes, a period, followed by digits.



pbeckingham - typist, perishable vertebrate.

Replies are listed 'Best First'.
Re^2: Match number >= 0 and <1
by ikegami (Patriarch) on Jul 29, 2005 at 14:58 UTC
    "0" is not legal according your regexp. I did the same mistake up above. Also, you removed the necessary capture.
[reply]
[d/l]

In Section Seekers of Perl Wisdom