Как я могу отказаться от привилегий в Perl?

Question

Я создал серверную программу, которая будет запускаться от имени пользователя root.После его запуска я хочу передать права другому пользователю.Как я могу сделать это безопасно?

Answer 1

Видеть Привилегии::Drop.

Answer 2

На самом деле вам не нужен модуль, хотя тот, на который ссылается Бенджи Йорк, выглядит довольно хорошо.

Это простой вопрос установки UID через $< и $>.Видеть перлвар для получения дополнительной информации об этом.Вы также можете установить GID таким образом, используя $( и $);обратите внимание, что вам нужно установить $) = "$target_gid $target_gid" если вы хотите отказаться от дополнительных групп.Не забудьте после этого проверить успешность.