Perlでファイルの名前を変更するには？

質問

Perlであるフォルダの中にある、いくつかのファイルの名前を
自動的に変更するにはどのようなプログラムにしたらよろしいのでしょうか？
具体的には、ファイルの名前が二桁の数字（例えば13）で表されているとします。
その二桁の数字を四桁（例えば0013）にしたりなどです。

プログラミング初心者でわからないことが多く困っています。
なるべく詳しくお願いします。
できれば、近いプログラムを作って頂ければ・・・
急ぎでお願い致します。

回答No.1

yuizuian

opendir(DIR, "ディレクトリ名");
@DIR = readdir(DIR);
でディレクトリの中のファイル名・ディレクトリ名を取得します。
それを、ファイルであるかどうかを判断して拡張子を取り出し、
sprintfなりで４桁の数値に変えて、また後ろに拡張子をつける。
最後に
rename("古いファイル名", "新しいファイル名");
でファイル名を変えれば実現できますよ。
renameするときはファイル名だけではなくて、実行しているPerlスクリプトからのパス（もしくはフルパス）を記述してください。

参考URL：

http://tohoho.wakusei.ne.jp/www.htm