How to calculate TCP connection infomation without ss and netstat

array=($(tail -n +2 /proc/net/tcp | cut -d":" -f"4"|cut -d" " -f"1"))
for port in ${array[@]}; do echo $((0x$port)); done | sort | uniq -c

array=($(tail -n +2 /proc/net/tcp | cut -d":" -f"3"|cut -d" " -f"1"))
for port in ${array[@]}; do echo $((0x$port)); done | sort | uniq -c