Listar SWAP por processo

ls -1 /proc | \
grep ^[0-9]  | \
while read pid
do
echo $pid $(grep ^Name /proc/$pid/status 2> /dev/null|awk '{print $2}') $(cat /proc/$pid/smaps 2> /dev/null | grep Swap | awk '{s = s + $2} END {print s}')
done | \
sort -n -k3 | \
awk '{ if ($3 < 1024) print $1 " " $2 " \033[1;32m"$3"K\033[0m" ; \
else if ( $3 >= 1024 && $3 <= 1048576 ) print $1 " " $2 " \033[1;34m"$3/1024"M \033[0m"; \
else if ($3 > 1048576 ) print $1 " " $2 " \033[1;31m"$1/1048576"G \033[0m"}' | \
column -t