Re: Is this a bug in perl regex engine or in my brain?

I'd be inclined to do it like this:

while (<>) {
    chomp;
    my $result = ( /^([1-9]\d*)$/ and $1 < 256 ) ? "matched" : "did no
+t match";
    $_ .= " $result\n";
    print;
}
[download]

That rejects anything with a leading zero (hence "0"), and anything greater that 255.

Comment on Re: Is this a bug in perl regex engine or in my brain? Download Code

Replies are listed 'Best First'.

Re^2: Is this a bug in perl regex engine or in my brain? (matching from 0 to 255)
by Discipulus (Canon) on Oct 07, 2015 at 07:28 UTC


      [01]?\d\d?|2[0-4]\d|25[0-5]
[download]

Don't Use Regular Expressions To Parse IP Addresses!

another site

Regex::Common::net

source code

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

[reply]
[d/l]


more useful options
	PerlMonks