A shellscript to check who's hogging swap.

swap_stats.sh

#!/bin/sh

## e.g.) sudo ./swap_stats.sh | column -t | sort -nrk3 | head -n25"

if [ $UID -ne 0 ] ; then
    echo "You must be root to run this script." 1>&2
    exit 1
fi

TOTAL_SWAP=0

for PID in $(ls -1 /proc | grep ^[0-9]) ; do

    PROG=$(ps -p $PID -o comm --no-heading)
    SWAP=$(grep ^Swap /proc/$PID/smaps 2>/dev/null | awk 'BEGIN{SUM=0}{SUM+=$2}END{print SUM}')

    if [ $SWAP -gt 0 ] ; then
        echo "PID=$PID ($PROG) $SWAP KB"
        TOTAL_SWAP=(expr $TOTAL_SWAP + $SWAP)
    fi
done

echo "TOTAL --- $TOTAL_SWAP KB"