fork(3) download
copy 
  1. #!perl -lp0a
  2. s/(^|\.)(\d+)/sprintf"%08b",$2/ge,/\D/&&($_=$`|2x$',y/0-3/##01/)for@F;$_=join$\,sort@F;1while s/^((\d*)#*)
  3. \2.*/$1/mg||s/^(\d*)0(#*)
  4. \1[1]\b#*/$1#$2/mg;s!.+!$&.'/'.$&=~y/01//!ge;y/#/0/;s!\d{8}\B!$&.!g;s!\d{8}!"0b$&"!gee
Success #stdin #stdout 0s 6044KB
comments (?)
stdin
copy 
63.168.3.85/2
64.168.3.85/2
192.168.3.85/2
191.168.3.85/2
stdout
copy 
0.0.0.0/0
https://ideone.com/xHIIab
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!