Needed to get a grip on the file extensions in a large inherited project. Need to review my Perl, but you could do the same thing in another language. Regardless, nice one line pipe.

via Stack Overflow

<br /> find . -type f | perl -ne 'print $1 if m/\.([^.\/]+)$/' | sort -u<br />