/^(?:0*(?:2(?:[0-4]\d|5[0-5])|1?\d{1,2})(?:\.|$)){4}/
-Samy
Angerstein wrote:
> What about:
> /\d?\d?\d\.\d?\d?\d\.\d?\d?\d\.\d?\d?\d\/
>
> or
>
> @ip = split (/\./);
> foreach $part (@ip) {
> if ( $part > 255 && $part =~ /\d?\d?\d\/ ) {
> die "That´s not an IP";
> }
> }
>
>
>>-----Ursprüngliche Nachricht-----
>>Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Im Auftrag von
>>zentara
>>Gesendet am: Dienstag, 20. August 2002 14:50
>>An: [EMAIL PROTECTED]
>>Betreff: Re: how to make a regex for a ip address
>>
>>On Mon, 19 Aug 2002 12:07:21 -0700, [EMAIL PROTECTED] (Root) wrote:
>>
>>>for a one liner:
>>>
>>>$_ = '12.34.56.78';
>>>map {$_ < 256} /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/g || warn("not
>>>
>>valid ip: $_\n");
>>
>>I tried this with $_ = '1234.2345.56.78'; and received no warning.
>>That's not good.
>>
>>
>>
>>--
>>To unsubscribe, e-mail: [EMAIL PROTECTED]
>>For additional commands, e-mail: [EMAIL PROTECTED]
>>
>>
>>
>
>
--
Samy Kamkar -- cp5 -- [EMAIL PROTECTED]
LucidX.com / LA.pm.org / code.LucidX.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
