Tfe

Old stuff/Perl/subdir_renomme.pl

#!/usr/bin/perl -w
#use Getopt::Simple;
	      

$dir[0] = $ARGV[0];



sub suppr(@)
{
    $repertoire  = $dir[0];
    shift @dir;
    
    opendir(DIR,$repertoire);
    while($element = readdir(DIR))
    { 	if ($element !~/^\.\.?$/) {

	
	if ($element =~ /[^a-zA-Z0-9\-\.\_]/ or $element =~ /[^a-zA-Z0-9\.]{2}/) 
	    { 
		$new_file = $element;
		$new_file =~ s/([^\.a-zA-Z0-9])[^a-zA-Z0-9\.]+/$1/g;		
		$new_file =~ s/\ /-/g;
		$new_file =~ s/[^\w\-\.\ \_]//g;
		$new_file = $repertoire."/".$new_file;
		$old_file = $repertoire."/".$element;
		print "rename $old_file $new_file;\n";
#		rename $old_file, "$new_file" or warn("IMPOSSIBLE DE RENOMMER $element :: $!\n");

	 }
	 if(-d $repertoire."/".$element)
	    {
		push(@dir,"$repertoire/$element");
	    }
	    
	    
	    
	    
    } }
}

while($dir[0]) {  suppr(@dir); }


print "\n\n";