linux - 如何使用 Perl chmod 在目录上添加设置组 ID？

Question

我可以使用 Perlchmod函数来设置权限位，例如：

chmod S_IRWXU|S_IRWXG|S_IROTH, $the_dir;

如何将 Set Group ID 添加到上述命令中的目录？

Answer 1

不知道S_xxx设置组 ID 位的别名是什么，但它的值是（八进制）02000。所以其中之一

chmod 02000|S_IRWXU|S_IRWXG|S_IROTH, $the_dir;

chmod 02774, $the_dir;

可能会工作。

编辑：现在我知道适当的S_xxx常量被命名为：它是S_ISGID.

$ perl -MFcntl -e 'printf "0%o", Fcntl::S_ISGID()'
02000

Answer 2

你不能chmod这样做。使用chown并将uid设置为-1，即

chown -1, $groupid, $the_dir;