perl - 如何在 Perl 中修改 Windows NTFS 权限？

Question

我在 Windows Server 2003 上使用 ActiveState Perl。

我想在 Windows NTFS 分区上创建一个目录，然后授予 Windows NT 安全组对该文件夹的读取权限。这在 Perl 中可能吗？我是否必须使用 Windows NT 命令或是否有 Perl 模块来执行此操作？

一个小例子将不胜感激!

Answer 1

标准方法是使用 Win32::FileSecurity模块:

use Win32::FileSecurity qw(Set MakeMask);

my $dir = 'c:/newdir';
mkdir $dir or die $!;
Set($dir, { 'Power Users' 
            => MakeMask( qw( READ GENERIC_READ GENERIC_EXECUTE ) ) });

请注意 Set将覆盖该目录的权限。如果要编辑现有权限，则需要 Get他们首先:

my %permissions;
Win32::FileSecurity::Get($dir, \%permissions);
$permissions{'Power Users'}
  = MakeMask( qw( READ GENERIC_READ GENERIC_EXECUTE ) ) });
Win32::FileSecurity::Set($dir, \%permissions);