Decoding Sig* fields from /proc/<PID>/status

signals.pl

#!/usr/bin/perl

@sigs = qw(
   SIGHUP       SIGINT       SIGQUIT      SIGILL       SIGTRAP
   SIGABRT      SIGBUS       SIGFPE       SIGKILL      SIGUSR1
   SIGSEGV      SIGUSR2      SIGPIPE      SIGALRM      SIGTERM
   SIGSTKFLT    SIGCHLD      SIGCONT      SIGSTOP      SIGTSTP
   SIGTTIN      SIGTTOU      SIGURG       SIGXCPU      SIGXFSZ
   SIGVTALRM    SIGPROF      SIGWINCH     SIGIO        SIGPWR
   SIGSYS
);

for (map hex, @ARGV) {
  printf "%x:\n", $_;
  for (my $i = 0; $i < @sigs; $i++) {
    next if $_ & (1 << $i);
    printf "  - %s (%i)\n", $sigs[$i], $i+1;
  }
}