/usr/local/bin/podlist.sh #!/bin/sh PODLIST=/tmp/podlist.txt PERLPATHS="/usr/perl5 /usr/lib/perl5 /usr/local/perl5 /usr/local/lib/perl5" [ -f ${PODLIST} ] && [ ! -w ${PODLIST} ] && echo "Permission problem on ${PODLIST}" && exit 1 [ -f ${PODLIST} ] && rm ${PODLIST} for DIR in ${PERLPATHS} ; do if [ -d "${DIR}" ] ; then FINDPATH=${DIR} break fi done find ${FINDPATH} -type f -name '*.pod' -o -name '*.pm' | xargs egrep -h -A3 '^=head.*NAME' | egrep -v '^X<' | egrep -v '=head' | egrep -v -- '--' | sort -u | dos2unix | egrep -v '^$' | egrep ' - ' | awk -F' - ' '{print $1}' | tr -d '^ ' | sed 's/^README[.]/perl/' \ > ${PODLIST} echo "${PODLIST} generation complete..."