> > 30分までのところが30分かかったか。
> > ま、同じ30分だ、許せ。
> > foreach $oldname ( glob('ワイルドカードを含むファイル名') ){
> > 	($spec,$ext) = split(/\./,$oldname,2);
> > 	$newname = $spec.'.'.sprintf("%03d",$ext);
> > 	rename $oldname,$newname;
> > }
> > exit;
> > 最初の . 以降が数字になってるファイルだけに使える。
> > 必ず3桁の数字にするよ。
> > つか、これってさっき誰かが書いていた気がするが、ま、こんなもんで。
> glob()っていうメソッドがあるのか！
> こりゃベンリじゃなッ
> クスコ。

perlを使う環境次第で機能の豊富さが変わるらしい。globは。
つか、ファイル名の規則がそのまま使えるってことなんだけど。

参考：2000/11/19(日)03時05分47秒