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コ以上に対応してないこと