linux - Perl chmod を使用してディレクトリにセット グループ ID を追加する方法は?

Question

Perlchmod関数を使用して許可ビットを設定できます。次に例を示します。

chmod S_IRWXU|S_IRWXG|S_IROTH, $the_dir;

上記のコマンドで Set Group ID をディレクトリに追加するにはどうすればよいですか?

Answer 1

set group id ビットのエイリアスが何かはわかりませんがS_xxx、値は (8 進数) 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を行うために使用することはできません. chownuid を使用して -1 に設定します。つまり、

chown -1, $groupid, $the_dir;