#!/usr/local/bin/perl

# Usage : rename perlexpr [fichiers]

($op=shift) || Usage();

$test = 'undefined';
if ($op eq "-x"){
  print "-x detected...\n";
  $op=shift  || Usage();
  $test=0;
}
elsif ($op eq "-t"){
  print "-t detected...\n";
  $op=shift  || Usage();
  $test = 1;
}

print "Testmode!\n" unless !$test;
if (!@ARGV){
  @ARGV = <STDIN>;
  chop(@ARGV);
}

for (@ARGV) {
  $was=$_;
  eval $op;
  die $@ if $@;

if (!$test){
#  rename($was,$_) à moins que $was soit équivalent à $_;  ancienne version, cookbook
  rename $was,$_ unless -f ;     #     nouvelle version Ben      
}
  print "$was \t ==> \t $_\n";
}


sub Usage{
print <<EOF;
Usage : rename.pl [-t|-x] perlexpr [fichiers]

       renomme chaque fichier selon l'expression perl.
       L'expression peut accéder au nom du fichier dans $_ et elle sera
       renommée en le $_ quel qu'il soit se trouvant après l'évaluation de l'expression.

       e.g.rename "s/avant/apres/" fichier_avant_* 
       change avant en après dans chaque nom de fichier. 
	. 
  commutateurs : 
    -t (par défaut) teste le motif (n'affiche que ce qui sera fait)
    -x           exécute le motif sur les fichiers (les renomme)
EOF

exit(1);
}