Comment configurer récursivement l'autorisation en lecture seule à l'aide de Perl?

Question

Je voudrais $dir et tout en dessous pour être en lecture seule. Comment puis-je définir cela en utilisant Perl?

Answer 1

Vous pouvez le faire avec une combinaison de File::Find et chmod (voir perldoc -f chmod):

use File::Find; 

sub wanted 
{ 
    my $perm = -d $File::Find::name ? 0555 : 0444; 
    chmod $perm, $File::Find::name; 
} 
find(\&wanted, $dir); 

Answer 2

Untested mais il devrait fonctionner. Notez vos répertoires eux-mêmes doivent rester exécutable

set_perms($dir); 

sub set_perms { 
    my $dir = shift; 
    opendir(my $dh, $dir) or die $!; 
    while((my $entry = readdir($dh)) != undef) { 
      next if $entry =~ /^\.\.?$/; 
      if(-d "$dir/$entry") { 
       set_perms("$dir/$entry"); 
       chmod(0555, "$dir/$entry"); 
      } 
      else { 

       chmod(0444, "$dir/$entry"); 
      } 
    } 
    closedir($dh); 
} 

Bien sûr, vous pouvez exécuter une commande shell de Perl ainsi:

system("find $dir -type f | xargs chmod 444"); 
system("find $dir -type d | xargs chmod 555"); 

-je utiliser xargs au cas où vous avez un grand nombre d'entrées.

Answer 3

system("chmod", "--recursive", "a-w", $dir) == 0 
    or warn "$0: chmod exited " . ($? >> 8);