perl - 为我的 perl 脚本输出的文件和目录设置 unix 组权限？

Question

我的脚本按我想要的方式工作，但有一个例外。我希望能够自动将 unix 组权限设置为我在 perl 脚本中创建的目录和文件。

这可能吗，还是我只需要求助于

chgrp <group> <directory>

运行我的脚本后？

Answer 1

您可以像这样使用 Perl 的chown函数：

# Get the GID as a number 
my $gid = getgrnam("group");

# Change the ownership 
chown -1, $gid, $dir; # Or $file or @list_of_files depending on your need

但是，如文档中所述，您可能需要权限才能执行此操作。 http://perldoc.perl.org/functions/chown.html