如何使用Perl chmod在目錄上添加設置組ID？

Question

我可以使用Perl chmod函數來設置權限位，例如：

chmod S_IRWXU|S_IRWXG|S_IROTH, $the_dir; 

如何在上面的命令添加設置組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;