[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: pregunta pelín off-topic



Pues como tu pregunta ha tenido tanto éxito, te mando una tercera solución en 
perl, la cual puedes modificar facilmente para decidir si quieres modificar 
tambien los ficheros ocultos o no (en este caso te modifique los ficheros 
ocultos y cualquier nombre de subdirectorio). guarda el programa con qualquier 
nombre (ejecutable) y despues lo usas asi:  nombre  directorio

#!/usr/bin/perl
scalar(@ARGV) == 1 or die "Dame el nombre de un directorio.\n";
$dir = $ARGV[0];
if (-d $dir){
    opendir(DIR,"$dir") or die "No puedo abrir el directorio:$!\n";
    @files = grep(!/^\.\.?$/,readdir(DIR));
    closedir(DIR);
    foreach (@files) {
        $FILE = "$dir/\U$_";
        $file = "$dir/$_";
        rename($file,$FILE);
    }
} else {
    die "$dir no parece ser un directorio: $!\n";
}
exit;

Jaime Villate
http://quark.fe.up.pt



Reply to: