Zentara wrote:
> 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.
the following should be more readable:
$_ = "1.2.3.4";
(/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/ &&
$1 > 0 && $1 < 256 &&
$2 > 0 && $2 < 256 &&
$3 > 0 && $3 < 256 &&
$4 > 0 && $4 < 256) || warn("Invalid ip: $_\n");
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
