测试用户是否为root

2013年4月10日 by David Farrell

当Perl执行程序时，它会将进程所有者的用户ID保存在一个全局变量中（$<）。当Perl程序由root用户或具有root权限的用户执行时（例如，使用sudo命令），用户ID变量始终设置为0。这可以在命令行中进行检查

$ perl -e 'print $< . \n;'
1000
$ sudo perl -e 'print $< . \n;'
0

由于root用户ID始终为0，而在Perl中0被视为假值，因此检测用户是否为root在运行时是一个简单的任务。这可以用于流程控制，例如提前退出程序

use Carp qw/croak/;

if ($<) {
    croak "Error: exiting program as not executed by root\n";
}

在Windows中，用户ID变量始终设置为0，且用途有限。然而，Perl的Win32模块提供了一个Win32::IsAdminUser()方法，可以用来代替$<，如下所示

use Win32;
use Carp qw/croak/;

if (not Win32::IsAdminUser()) {
    croak "Error: exiting program as not executed by root\n";
}

这篇文章最初发布在PerlTricks.com。