> perl
> opendir(DIR,'.');
> @files = map{
> 	chomp($_);
> 	-f($_) && $_;
> }readdir(DIR);
> foreach $fname (@files) {
> 	my($body,$sfx) = ($fname =~ m/([^.]*)\.([^.]*)/);
> 	my $newbody = sprintf("%03d",$body);
> 	rename($fname,"$newbody.$sfx");
> }
> 問題点は、giko1.jpg といった名前には対応してないことと
> 999番までしか対応してないことと、拡張子2コ以上に対応してないこと

 . の前に数字以外が入っていたときに問題あるかなとか思ったけど、
Perlだと余計な文字が入っていてもちゃんと数字だけ扱ってくれるもんね。
間違えるところだった。(;´Д`)

参考：2000/11/19(日)02時32分22秒