http://www.perlmonks.org?node_id=179929


in reply to how to rename all files in a dir

These things i tend to do with quick one-liners. Say you want to prepend the number to all .txt files:
perl -e 'while(<*.txt>){$n=sprintf("%02d%s",++$i,$_);rename$_,$n}'

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)