List affinities of process threads

proc-affinity.sh

#!/usr/bin/env bash

set -euo pipefail

[[ $# == 0 || $1 == '-h' ]] && {
    bn=$(basename $0)
    echo "$bn: list affinities of process threads"
    echo "usage: $bn [pid|-p name]"
    exit
}

pid=$1; shift

[[ $pid == '-p' ]] && {
    pid=$(pgrep $1 | head -n1)
}

ps --no-headers -Tp $pid | \
    perl -alne '$ts=`taskset -cp $F[1]`; $ts=~s/.*list: (.*)/$1/; chomp $ts; print "$_ $ts"' | \
    column -t