Renomear arquivos em lote

Renomear este tipo arquivo disto ./memo2014-132CF-sol62.aux para este ./memo2014CF132-sol62.aux.
find . -maxdepth 1 -mindepth 1 -type f |while read a; do echo "mv $a `sed 's/\([A-Za-z]\+\)\([0-9]\+\)-\([0-9]\+\)\([A-Za-z]\+\)-\(.*\)$/\1\2\4\3-\5/' <<< $a`"; done
mv ./memo2014-132CF-sol62.aux ./memo2014CF132-sol62.aux
mv ./memo2014-132CF-sol62.bbl ./memo2014CF132-sol62.bbl
mv ./memo2014-132CF-sol62.pdf ./memo2014CF132-sol62.pdf
mv ./memo2014-132CF-sol62.blg ./memo2014CF132-sol62.blg
mv ./memo2014-132CF-sol62.log ./memo2014CF132-sol62.log

Comentários