perl - 如何以 root 身份运行 Perl 脚本但仍然影响用户 gconf 设置

Question

新查询:我正在尝试制作一个统一脚本，根据我的喜好初始化新的 Ubuntu 安装，它必须在 sudo 下运行才能安装软件包，但是使用 gconftool-2 来影响 gconf 设置依赖于未处理的 dbus session 通过仅在脚本中简单地更改 UID 的方法来正确地进行。有人知道如何做到这一点吗？

旧问题:我正在编写要在新 Ubuntu 安装的第一次启动时执行的 Perl 脚本。这是为了简化添加存储库、安装软件包和设置 gconf 设置。我的问题是权限。要安装软件包，我需要将脚本作为 sudo 执行，但是 gconftool-2 调用会作用于 root 用户而不是我的个人用户。

Answer 1

您可以通过使用 POSIX::setuid() 更改 uid 来更改脚本中间的 uid。 (见 perldoc POSIX):

use POSIX 'setuid';

# call cpan to install modules...

POSIX::setuid($newuid);

# ... continue with script