如何使用perl chmod在目录中添加set group id?

不知道什么 S_xxx 别名用于设置组ID位,但其值为(八进制)02000。所以其中一个

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

chmod 02774, $the_dir;

可能有用。

编辑: 现在我知道什么合适了 SXXXX 常数被命名为: S_ISGID 。

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

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

chown -1, $groupid, $the_dir;