#!/bin/bash
sudo netstat -lnp | grep 'tcp.*dht' | \
  awk '{ split($4,a,":"); port=a[length(a)]; pid=int($7) ; system ("readlink /proc/"  pid  "/cwd | sed s,$,\\ {tcp:" port "},")  }' | \
  sort | \
  while read path port; do
	  ( cd $path ; ../dht ls | grep node-id |sed 's/ *node-id//; s/$/'$port/ )
  done > ports.txt