Comment changer tous les dossiers/fichiers cachés visibles dans plusieurs sous-répertoires

Question

J'ai des centaines de sous-répertoires dans un répertoire qui contiennent tous des fichiers cachés dont j'ai besoin de supprimer la période au début pour les rendre visibles . J'ai trouvé une commande pour aller dans chaque répertoire et les changer pour les rendre visibles mais j'ai besoin de savoir comment faire fonctionner cette commande depuis un répertoire.

rename 's/\.//;' .* 

J'ai essayé une heure de modifier cela fonctionne à un niveau supérieur, mais ne comprennent pas la chaîne assez Perl pour le faire. Si quelqu'un peut aider, je suis sûr que c'est simple et que je ne peux pas me poser la bonne réponse.

Answer 1

Cela nécessite une découverte qui prend en charge le + (peut utiliser à la place \;, qui appellera rename plusieurs fois), mais même POSIX find le précise:

find -mindepth 1 -depth -exec rename -n 's{/\.([^\/]*$)}{/$1}' {} + 

• L'option -depth empêche les répertoires d'être renommé avant tous les fichiers qui s'y trouvent sont renommés
• -mindepth 1 empêche find de tenter de renommer le répertoire en cours, ..
• -n est juste d'imprimer ce qui serait renommé au lieu de renommer réellement (doit être retiré pour faire le renommage).
• L'expression régulière supprime la dernière période après laquelle il n'y a pas de barre oblique, si elle est précédée d'une barre oblique.

rename ne remplace pas les fichiers existants, sauf si l'option -f ("force") est utilisé.

Pour une structure de répertoire de test comme celui-ci:

. 
├── .dir1 
│   ├── .dir2 
│   │   ├── .dir3 
│   │   │   └── .file2 
│   │   └── .file1 
│   ├── file3 
│   └── .file6 
├── dir5 
│   └── .file5 
├── .file4 
├── test1.bar 
└── test1.foo 

la sortie est

rename(./dir5/.file5, ./dir5/file5) 
rename(./.file4, ./file4) 
rename(./.dir1/.file6, ./.dir1/file6) 
rename(./.dir1/.dir2/.file1, ./.dir1/.dir2/file1) 
rename(./.dir1/.dir2/.dir3/.file2, ./.dir1/.dir2/.dir3/file2) 
rename(./.dir1/.dir2/.dir3, ./.dir1/.dir2/dir3) 
rename(./.dir1/.dir2, ./.dir1/dir2) 
rename(./.dir1, ./dir1) 

et le résultat après le retrait -n est

. 
├── dir1 
│   ├── dir2 
│   │   ├── dir3 
│   │   │   └── file2 
│   │   └── file1 
│   ├── file3 
│   └── file6 
├── dir5 
│   └── file5 
├── file4 
├── test1.bar 
└── test1.foo 

Answer 2

safely_unhide:

#!/usr/bin/perl 
use strict; 
use warnings; 
use File::Basename qw(fileparse); 
for (@ARGV) { 
    my $o = $_; 

    my ($fn, $dir_qfn) = fileparse($_); 
    $fn =~ s/^\.// 
     or next; 

    my $n = "$dir_qfn/$fn"; 
    if (stat($n)) { 
     warn("Skipping \"$o\": \"$n\" already exists\n"); 
     next; 
    } 
    elsif (!$!{ENOENT}) { 
     warn("Skipping \"$o\": Can't stat \"$n\": $!\n"); 
     next; 
    } 

    rename($n, $o) 
     or warn("Skipping \"$o\": Can't rename to \"$n\": $!\n"); 
} 

Utilisation:

find -type f -exec safely_unhide {} +   # Supports all file names. Requires GNU find 
find -type f | xargs safely_unhide    # Doesn't support newlines in file names. 
find -type f -print0 | xargs -0 safely_unhide # Supports all file names. 

Goutte -type f et ajoutez -depth si vous souhaitez renommer dirs cachés aussi.