findperl.sh 562 B

1234567891011121314151617181920212223242526
  1. #!/bin/sh
  2. arg=${1}
  3. if [ -n "${arg}" -a -x "${arg}" ]; then
  4. whereperl="${1}"
  5. elif [ -x /usr/local/bin/perl ]; then
  6. whereperl="/usr/local/bin/perl"
  7. elif [ -x /usr/pkg/bin/perl ]; then
  8. whereperl="/usr/pkg/bin/perl"
  9. elif [ -x /usr/bin/perl ]; then
  10. whereperl="/usr/bin/perl"
  11. elif which -s perl; then
  12. whereperl=`which perl`
  13. else
  14. echo "Cannot find perl." 1>&2
  15. echo -n "Input path to perl as full path (Ex. /usr/bin/perl): " 1>&2
  16. read whereperl
  17. if [ ! -x $whereperl ]; then
  18. echo "Error: cannot find perl." 1>&2
  19. exit 1
  20. fi
  21. fi
  22. echo "#!$whereperl"
  23. exit 0