in reply to Reg Ex exercise

Hello keesturam, Im sure it could be simplified more, but this is what I came up with! hope it helps :) 

if($input =~ /^(-?)((0|\d+).)?\d+$/)
{
   print ("Yes, it is a number\n");
}

[download]

UPDATE: don't need that 0 in there, 

if($input =~ /^(-?)(\d+.)?\d+$/)

[download]

Replies are listed 'Best First'.
Re^2: Reg Ex exercise
by thundergnat (Deacon) on Dec 05, 2012 at 16:49 UTC

    Um... You need to escape that full stop.

    >perl -e "print 'match' if '1234X789' =~ /^(-?)(\d+.)?\d+$/"
match
[reply]
Re^2: Reg Ex exercise
by keesturam (Initiate) on Dec 05, 2012 at 16:27 UTC

    Thanks Rudolf, that was really helpful.

    I am simply not able to come up with such regexs. I should practice more and more and more..! :-)

[reply]
[reply]

In Section Seekers of Perl Wisdom