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

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