AW: how to make a regex for a ip address

[Angerstein]

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]
>
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]