ip_bench.p6

sub ip-to-number ($ip) {
    do given $ip.split('.') {
        .[0] +< 24 +
        .[1] +< 16 +
        .[2] +<  8 +
        .[3]
    }
}

# ips10k.txt = https://github.com/fsufitch/dailyprogrammer/raw/master/ideas/whois/ips10k.txt

for "ips10k.txt".IO.lines {
    my ($start, $end, $name) = .split(' ', 3);
    say ip-to-number($start), ip-to-number($end);
}

note now - BEGIN now;