all=
if [ "$1" = "-a" ]; then
	all=1 # include post-connected sockets
fi
for proto in tcp tcp6 udp; do
	< /proc/net/$proto txt2tsv.simple |
	if [ -n "$all" ]; then
		echo "`</dev/stdin`"
	else
		awk '$4 <= 3 { print }' # only want pre- or connected sockets
	fi |
	tail +2 |
	kut 2 3 |
	tr : $'\t' |
	kut 3 2 |
	ip_hex_to_dec |
	sed 's/\t/\t'$proto'-/'
done |
order 1 2 |
fjoin 1 |
cols -1 |
order 1rn |
fgrep -v -e '0.0.0.0' -e '127.0.0.1' -e `hostname -i`

exit

# old code:

ip_stat |
kutleft 5 4 |
perl -pe 's/:(\d+|\*)\t/\t$1\t/g;' |
kutleft 1 4 |
order 1n 2n |
kut 1 2 |
fjoin 1 |
cols |
order 1rn