如何在Perl中删除权限？

Question

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

Answer 1

请参阅Privileges::Drop。

Answer 2

你并不需要一个模块，尽管由Benji York连接的模块看起来相当不错。

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