Net::Subnet

Door Juerd Waalboer van Amsterdam.pm
Datum: zaterdag 15 oktober 2011 17:10
Duur: 20 minuten
Doelgroep: Gemiddeld
Taal: English
Tags: address bitwise closures ip operators

Writing "(inet_aton($ip) & inet_aton($mask)) eq (inet_aton($subnet) & inet_aton($mask))" is easy enough and doesn't really need a module. But with the introduction of IPv6, it became a little more complex. There are several modules that can do this, but I wanted a pure Perl solution that is also pretty fast. So I wrote Net::Subnet one afternoon, and used it in production the next day.