http://www.perlmonks.org?node_id=158523


in reply to Re: (MeowChow) Re: Check IP with support for CIDR
in thread Check IP with support for CIDR

My bad, I forgot to negate the result:
return not unpack ('N', pack ('C4', split /\./, $i) ^ pack ('C4', spli +t /\./, $1)) >> 32 - $2;
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Replies are listed 'Best First'.
Re: (MeowChow) Re3: Check IP with support for CIDR
by xaphod (Monk) on Apr 12, 2002 at 08:56 UTC
    That works. So I guess you win this round of Golf.
    --
    TTFN, FNORD

    xaphod