Help for this page

Select Code to Download

Select or download this

#...
split_pack => sub {
            my @sorted = map { join '.', unpack("CCCC", $_) }
...
                map { pack("CCCC",split /\./) } @ips;
        },
#...