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

Question

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

Answer 1

См. Привилегии :: Отбрасывание .

Answer 2

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

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