Using regular expression in perl

Wed, 13 Apr 2011 00:57:01 -0700

Hello Guys,

Sorry, I am not sure if this thread belongs here.
I am new to perl and writing a regex for identifying if the user input lies in the set [0,100), i.e. the number must lie between 0-100, 0 included. It can be of form 0.000001, .00001, 90, 90.999153263, .12 etc
Following is the regex I wrote: $input =~ /\d\d?\.\d+|(\d\d?|\.\d+)/, but I am not gettinh the result. Can someone help me in this? Thanks in advance.

Re: Using regular expression in perl

Fri, 04 Nov 2011 03:09:04 -0700

A powerful way of doing this is

my $number = 0.4e2;

if ($number =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/) {
#   my $number = eval $&;     # I don't know if you really need this
    if ($number >= 0 and $number <= 100) {
        print "$number is >= 0 but <= 100\n";
    }
    else {
        print "$number is NOT between 0 and 100\n";
    }
}
else {
    print "Invalid number input: $number\n";
}

or a simpler way:

my $number = 52.9923;
if ($number >= 0 and $number <= 100) {
    print "$number is >= 0 but <= 100\n";
}
else {
    print "$number is not between 0 and 100\n";
}

You can remove '=' sign from 'greater/lower' signs if don't want to include 0 and 100.

'Using regular expression in perl' Thread RSS Feed

Using regular expression in perl

Re: Using regular expression in perl