Topic: bitcoind-ncurses: Terminal front-end for bitcoind - page 3. (Read 11314 times)

$ perl
use warnings;
use strict;
use JSON;

my $json = qx{bitcoin-cli getpeerinfo};
my $peers = from_json $json;
my %countries;
foreach my $peer (@$peers) {
    my $ip = $peer->{'addr'};
    next if -1 != index $ip, 'onion';
    next if -1 != index $ip, '127.0.0.1';
    $ip =~ s/:\d+$//;
    my $country = qx{geoiplookup $ip};
    chomp $country;
    $countries{$country}++;
}
foreach my $c (reverse sort { $countries{$a} <=> $countries{$b} } keys %countries) {
    printf "%2d %s\n", $countries{$c}, $c;
}

46 GeoIP Country Edition: US, United States
 7 GeoIP Country Edition: CN, China
 7 GeoIP Country Edition: DE, Germany
 4 GeoIP Country Edition: NL, Netherlands
 4 GeoIP Country Edition: CH, Switzerland
 3 GeoIP Country Edition: JP, Japan
 3 GeoIP Country Edition: RU, Russian Federation
 2 GeoIP Country Edition: AT, Austria
 2 GeoIP Country Edition: FR, France
 2 GeoIP Country Edition: IP Address not found
 2 GeoIP Country Edition: PL, Poland
 2 GeoIP Country Edition: RO, Romania
 1 GeoIP Country Edition: UA, Ukraine
 1 GeoIP Country Edition: CZ, Czech Republic
 1 GeoIP Country Edition: SE, Sweden
 1 GeoIP Country Edition: HU, Hungary
 1 GeoIP Country Edition: DK, Denmark
 1 GeoIP Country Edition: FI, Finland
 1 GeoIP Country Edition: GB, United Kingdom
 1 GeoIP Country Edition: CA, Canada
 1 GeoIP Country Edition: A1, Anonymous Proxy
 1 GeoIP Country Edition: ES, Spain
 1 GeoIP Country Edition: NZ, New Zealand
 1 GeoIP Country Edition: IT, Italy
 1 GeoIP Country Edition: HR, Croatia
 1 GeoIP Country Edition: IL, Israel
 1 GeoIP Country Edition: MX, Mexico
 1 GeoIP Country Edition: CO, Colombia

for IP in $(bitcoin-cli getpeerinfo |grep -w addr |grep -vE "onion|127.0.0.1" |sed -e 's/.*"\([0-9].*\):.*/\1/'); do geoiplookup $IP; done |sort |uniq -c |sort -rn