 # minu.prl : met le nom du ou des  fichier(s) en minuscule

 $nbf = @ARGV ; # nombre d'arguments, soit : le nombre de fichiers à traiter
 if ($nbf==0) {
     print " minu.prl : met le nom du ou des fichier(s) en minuscule \n"  ;
     print "            syntaxe  : minu nom(s)_de_fichier(s) \n"  ;
     print "            exemples : minu ESSAI   \n"  ;
     print "                       minu A*      \n"  ;
 } else {
     foreach $oldfid (@ARGV) {
        $newfid = $oldfid  ;
        $newfid =~ tr/A-Z/a-z/ ;
        if ($newfid ne $oldfid) { rename($oldfid,$newfid) } ;
     } ; # fin de pourchaque
     print " $nbf fichier(s) convertis." ;
 } ; # fin de si nbf n'est pas nul
