如何在Perl中删除权限？

Question

我创建了一个将以root身份启动的服务器程序。启动后，我想将权限下放给其他用户。我怎样才能安全地做到这一点？

Answer 1

请参阅Privileges::Drop。

Answer 2

你真的不需要一个模块，虽然由Benji York链接的模块看起来很不错。

通过$<和$>设置UID很简单。有关这些内容的详细信息，请参阅perlvar。您也可以使用$(和$)以这种方式设置GID;请注意，如果要删除补充组，则需要设置$) = "$target_gid $target_gid"。不要忘记事后测试成功。