linux - Perl 有 su 或类似的命令吗？

Question

可能重复：
当用作 cgi-bin 时，如何使用 setuid() 成功运行 Perl 脚本？

我以 root 身份运行我的 Perl 脚本，并希望这些命令以 root 身份运行$USER

mkdir bin
cp -r /opt/gitolite .
gitolite/install -ln
gitolite setup -pk ${USER}.pub
rm ${USER}.pub

mkdir -p .gitolite/hooks/common
ln -s /opt/pre-receive .gitolite/hooks/common/

问题

Perl 有一个su -c "mkdir bin" $USER或类似的东西吗？

Answer 1

使用特殊变量$>。请参阅： http: //perldoc.perl.org/perlvar.html