OSRS world ping checker

osrs-ping.pl

@worlds = 1..94;
for (@worlds) {
    # This would probably work on Windows with "-c1" changed to "-n 1"
    open $pings[$_], '-|', qw/ping -c1/, "oldschool$_.runescape.com";
}

undef $/;
for (@pings[@worlds]) {
    if (<$_> =~ /time=([\d.]+ ?ms)/) {
        $_ = $1;
    } else {
        $_ = '';
    }
}

for (sort {$pings[$b] <=> $pings[$a]} grep {$pings[$_] ne ''} @worlds) {
    printf "World %2d: %5.1f\n", $_, $pings[$_];
}