2012-04-21 Perlのone liner メモ Perlはめったに使わないが、 perl -n -e 'if (/\.([^.\/]+)\/?$/) {print $1}''print $1 if (/\.([^.\/]+)\/?$/)' と書いたほうがソレらしいのか?使う場面: find . | perl -n -e 'if (/\.([^.\/]+)\/?$/) {print $1}' | sort | uniq -c