Help for this page

Select Code to Download

Select or download this

>perl -wMstrict -le
"my $decimal_octet =
...
(?^msx: (?<! \d) (?^msx: 2 (?: [0-4] \d | 5 [0-5]) | [01]? \d? \d ) (?
+: \. (?^msx: 2 (?: [0-4] \d |
5 [0-5]) | [01]? \d? \d )){3} (?! \d) )
'123.45.6.234' '000.12.34.255'