tnsnames.ora entries checker

cktns.sh

#!/bin/bash
# ported from korn shell version
# original: http://orafaq.com/scripts/unix/cktnsnms.txt
grep -v -e '^ ' -e'^\t' -e'^$' -e '^#' -e'^)' tnsnames.ora | sed 's/=//g' |
while read NAME
do 
   OUT=$(tnsping $NAME | grep '^OK')
   if [ "${?}" = "1" ]; then 
      echo "${NAME}: Unable to ping"
   else 
      echo "${NAME} is alive"
   fi
done