perlのワンライナーでファイルの一括リネーム

メモしておく
以下の例はファイルの拡張子を残して連番にする例

リネーム前確認
perl -le 'for(@ARGV){$n=$o=$_;$n=~s/.+(\..+)/sprintf("%04d$1",++$i)/e;print "$o => $n"}' *

リネーム
perl -le 'for(@ARGV){$n=$o=$_;$n=~s/.+(\..+)/sprintf("%04d$1",++$i)/e;rename $o,$n}' *