Re: [Exim] Wish list: isIPaddress predicate

> sub isipaddr
> {
>     return ((/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\z/)
>             && ($1 <= 255) && ($2 <= 255)
>             && ($3 <= 255) && ($4 <= 255)) ? "yes" : "no";
> }

  sub isipaddr
  {
      return ($_[0] =~ (/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\z/)
              && ($1 <= 255) && ($2 <= 255)
              && ($3 <= 255) && ($4 <= 255)) ? "yes" : "no";
  }