Perl：子网示例代码段？

Question

我正在寻找用于获取网络子网的示例perl代码 例如

10.0.0.0/8可以分解为2/9 == 10.0.0.0/9,10.128.0.0/9

或从/ 17 = 10.1.1.1 / 17到/ 20的8 / 20s  10.1.0.0 / 20,10.1.16.0 / 20,10.1.32.0 / 20,10.1.48.0/20,10.1.64.0/20,10.1.80.0/20,10.1.96.0/20,10.1.112.0/20.

有关如何在perl中执行此操作的任何想法吗？

谢谢

Answer 1

查看Net::CIDR::Lite和/或Net::CIDR。