Como posso cair privilégios em Perl?

Question

Eu criei um programa servidor que irá ser iniciado como root. Depois ele é iniciado Eu quero largar privilégios para outro usuário. Como posso fazer isso com segurança?

Answer 1

Consulte Privilégios :: Gota .

Answer 2

Você não realmente precisa de um módulo, embora a um ligado por Benji Iorque parece muito bom.

É uma simples questão de definir o UID via $< e $>. Consulte perlvar para obter mais informações sobre estes. Você também pode definir o GID desta forma usando $( e $); note que você precisa definir $) = "$target_gid $target_gid" se você quer deixar cair grupos suplementares. Não se esqueça de teste para o sucesso mais tarde.