How to shorten the list of IPs and turn it into a list of networks where possible?

Question

Perl

There is a long list of IPs

10.2.186.8
10.2.186.64
10.2.186.65
172.7.143.6
172.7.143.33
172.7.143.34
172.7.143.35
и т.д.

At the output I would like to get:

10.2.186.8
10.2.186.64/31
172.7.143.6
172.7.143.33/30

How to implement it programmatically? To turn adjacent IPs into networks.

Answer 1

perl -MNet::CIDR::Lite -le 'print join"\n",Net::CIDR::Lite->new(@ARGV)->list' 10.2.186.8 10.2.186.64 10.2.186.65 172.7.143.6 172.7.143.33 172.7.143.34 172.7.143.35 
10.2.186.8/32
10.2.186.64/31
172.7.143.6/32
172.7.143.33/32
172.7.143.34/31