如何在用户运行perl脚本时检查root用户身份

Question

我正在编写一个脚本来生成我想要存储在/ etc/solignis中的配置文件.当我以受限用户身份运行脚本时,它不允许我创建目录或写入文件.因此脚本必须以sudo或root用户身份运行,如何使用sudo检查用户是root还是至少？

Answer 1

如果$>(也就是$EFFECTIVE_USER_ID你use English)不为零,则用户不是root用户.

Answer 2

XAppSoftware：如何检查root用户有解决方案：

my $login = (getpwuid $>);
die "must run as root" if $login ne 'root';