D:\>perl -e "opendir (DIR,'.'); @fname=readdir DIR; foreach(@fname){if(m/t_0.*\.wav/){ rename ($_,asd)}}"
D:\>
この場合同じファイル名になっても無条件に(エラーメッセージを出さずに)変更してしまうんだな。だからかなり危険なんだな。
D:\>perl -le "for(<*.wav>){ m/(t_)([0-9]*)(\.wav)/; $n=sprintf(\"%04d\",$2); $n= \"$1$n$3\"; print $n;rename $_,$n;}"
t_0010.wav
t_0011.wav
t_0012.wav
t_0013.wav
t_0014.wav
t_0015.wav
t_0016.wav
t_0017.wav
D:\>
rename s/\.eps\.png/\.png/ *eps.png