No subject

should have used "orig" instead of "old" as a variable name),
transmogrifies this name to have underscores instead of spaces
(doesn't the y/// thingie remind you of sed and tr?), and then renames
the <thing> accordingly (without doing any error checking).


I hope that you find the File::Find module to be as useful as I do.

Regards,

--kevin

PS:

For your .bashrc/.kshrc

txtfind () {
  if [ $# -eq 0 ] ; then
    echo txtfind: please enter a directory list
  else
    perl -MFile::Find -e 'find(sub{print "$File::Find::name\n" if (-f && -T);}, @ARGV);' "${@}"
  fi
}

binfind () {
  if [ $# -eq 0 ] ; then
    echo binfind: please enter a directory list
  else
    perl -MFile::Find -e 'find(sub{print "$File::Find::name\n" if (-f && -B);}, @ARGV);' "${@}"
  fi
}



-- 
Kevin D. Clark / Cetacean Networks / Portsmouth, N.H. (USA)
cetaceannetworks.com!kclark (GnuPG ID: B280F24E)
alumni.unh.edu!kdc