如何在Perl脚本中切换包括root在内的用户身份

需求说明 #

以root身份启动的Perl脚本，需要完成root→普通用户→root的身份切换流程，对应输出如下：

root
your_username
root

实现代码 #

#!/usr/bin/perl
use strict;
use warnings;
use POSIX qw(setuid setgid getpwnam getgrnam);

# 确认初始为root身份
system("whoami");

# 切换到指定普通用户
my $target_user = "your_username"; # 替换为实际的普通用户名
my ($uid, $gid) = (getpwnam($target_user))[2, 3];
die "无法获取用户 $target_user 的UID/GID信息" unless defined $uid;

# 先切换用户组，再切换用户ID
setgid($gid) or die "切换用户组失败: $!";
setuid($uid) or die "切换用户身份失败: $!";

system("whoami");

# 切回root身份执行操作
# 普通用户身份无法直接通过setuid恢复root，需用sudo调用命令
system("sudo whoami");

关键细节说明 #

• 初始root身份：脚本本身以root启动，直接执行whoami即可验证身份
• 切换普通用户：借助POSIX模块的getpwnam获取目标用户的UID和GID，必须先切换用户组（setgid）再切换用户ID（setuid），否则可能出现权限异常
• 切回root：普通用户没有权限修改自身UID为0，因此需要通过sudo执行需要root权限的操作。如果需要无交互执行，需确保目标普通用户在sudoers配置中拥有无需密码执行对应命令的权限

内容的提问来源于stack exchange，提问作者Garo