Which process listens to this port (in Solaris)

If you have 'lsof' installed, it is very easy to find out which process is listening at certain port. However, in Solaris, it may not be so obvious. This is the question my friend asked me and I wrote a short script (listen.sh) for him. Basically it runs 'pfile' over all the processes listed in /proc (except process 0, which is the sched)

#! /bin/sh

if [ $# -ne 1 ]; then
  echo "Usage: $0 "
  exit 1
fi
listen=$1


PATH=/usr/bin:/bin
export PATH


#
# skip process 0
#
cd /proc
for i in [1-9][0-9]*
do
  pfiles $i | nawk -v listen=$listen '
    BEGIN {
      found=0
    }
    NR==1 {
      process=$0
    }
    /sockname/ && $NF == listen {
      getline
      if ( ! /peername/ ) {
        found=1
        exit
      }
    }
    END {
      if ( found == 1 ) {
        printf("%s\n",process)
      }
    }'
done

# ./listen.sh 22
29626: /usr/lib/ssh/sshd
#