如何使用 Perl 递归设置只读权限？

Question

我希望 $dir 及其下面的所有内容都是只读的。我如何使用 Perl 进行设置？

Answer 1

您可以使用 File::Find 和 chmod 的组合来执行此操作（请参阅 < a href="http://perldoc.perl.org/functions/chmod.html" rel="nofollow noreferrer">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

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

Answer 3

未经测试但应该可以。请注意，您的目录本身必须保持可执行状态。

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);
}

当然，您也可以从 Perl 执行 shell 命令：

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

如果您有很多条目，我会使用 xargs。