Renommer une serie de fichier

import java.io.File;

public class Rename
{
    public static void main(String[] args)
    {
        for (int i=1; i<args.length; i++)
        {
            File rep = new File(args[i]);        
            int n=1;
            String name;
            File[] list = rep.listFiles();
            if (list!=null)
                for (File fic : list)
                    if (fic.getName().endsWith(args[0]))
                        do name= String.format("%s %03d%s", rep.getName(), n++, args[0]);
                        while (!fic.renameTo(new File(rep,name)));
        }
    }
}

java Rename ".jpg" "photos\anniversaire\" "photos\vacances"

my $ext = shift @ARGV; 

sub renommer { 
 my ($compt, $path) = (0, @_); 
 my $pref = $path; 
 $pref =~ s=.*/(.*?)$=$1=o; 
  
 foreach (glob (quotemeta($path).'/*') ) { 
  if (-d $_) 
   { &renommer ($_); } 
  elsif ($_ =~ m=\.$ext$=) { 
   $_ =~ s=.*/(.*?)$=$1=o; 
   rename "$path/$_", "$path/$pref $compt.$ext"; 
   $compt++; 
  } 
 } 
} 

renommer $_ foreach (@ARGV);