sort p2p-peer-addresses by ping time

listping.pl

#!/usr/bin/env perl

# quick script to sort p2p nodes by RTT (via ping) and output in a format that
# can be copy pasta to config.ini
#
# Usage example:
# curl -s 'https://eosnodes.privex.io/?config=1' | listping.pl

use Net::Ping;

$p = Net::Ping->new("tcp");
$p->port_number(9876);
$p->hires();

%found;

while(<>) {
	if(/p2p-peer-address\s*=\s*(([^:]+):(\d+))/) {
		$p->port_number($3);
		($ret, $duration, $ip) = $p->ping($2, 1.0);
		if($ret) {
			$found{$1} = $duration;
		}
	}
}
foreach my $key (sort { $found{$a} <=> $found{$b} } keys %found) {
	printf "p2p-peer-address = %-40s # %ims\n", $key, $found{$key}*1000;
}