什么是<;在这个实例中,您使用Perl吗?

什么是<;在这个实例中,您使用Perl吗?,perl,syntax,cgi,Perl,Syntax,Cgi,我对这段代码中第二行的作用感到困惑$我认为runas应该根据用户的uid进行计算。美元做什么?这包含在CGI脚本中 my $runAS = (getpwnam("username"))[2]; $runAS = $< if ($runAS == 0); my$runAS=(getpwnam(“用户名”))[2]; $runAS=$

我对这段代码中第二行的作用感到困惑$我认为runas应该根据用户的uid进行计算。美元做什么?这包含在CGI脚本中

my $runAS = (getpwnam("username"))[2];
$runAS = $< if ($runAS == 0);
my$runAS=(getpwnam(“用户名”))[2];
$runAS=$
$来自
perlvar
手册页:

$<此进程的实际uid

因此,来自

$<
这一过程的真正意义。您可以使用POSIX::setuid()同时更改实际uid和有效uid。由于对$<的更改需要系统调用,请选中$!更改后,尝试检测任何可能的错误


助记符:如果您运行的是setuid,那么它就是您来自的uid。

谢谢,我知道它很简单。我看到您也引用了引用,它只是隐藏在一个超链接中。我喜欢您引用引用引用。
$<