6

在“Programming Perl”-w文件测试运算符中描述为:

-w 文件可由有效的 UID/GID 写入。

我有两个文件:

-rwsrwxrwx 1 testuser testuser 226 Jul 20 20:31 script.pl
-rw-rw-r-- 1 testuser testuser  34 Jul 14 17:24 file.txt

suid设置为 on script.pl,所以当我以用户 caligula 运行它时,有效的 UID/GID 应该是 testuser 的。script.pl是:

#!/usr/bin/perl
use v5.14;
if (-w 'file.txt') {
    say "true";
}
else {
    say "false";
}

但是当我运行它时caligula@ubuntu-host:~$ ./script.pl,输出总是false. 为什么会发生这种情况,可能是我不了解该运算符的正确用法?

我的赞赏。

4

1 回答 1

11

Perl 可以配置为忽略 SUID 脚本;这是默认设置,可能是您的设置。您应该在脚本中打印真实有效的 UID 和 GID。

你可以用一个不起眼的 Perl 单行代码来具体验证这一点:

$ perl -MConfig -e 'foreach $key (keys %Config) { print "$key = $Config{$key}\n"; }' |
> grep -i -e 'se*t*[ug]id'
d_dosuid = 
d_setresgid = define
d_setresuid = define
d_suidsafe = 
$

或者,现在我找到了正确的名称,稍微不那么晦涩:

$ perl -MConfig -e 'print "d_suidsafe = $Config{d_suidsafe}\n"'
d_suidsafe = 
$

这表明这个 Perl(我构建的 5.12.1)并不认为 SUID 脚本是安全的。

真实有效的用户和组 ID 值可通过以下方式报告: RUID $<、 EUID $>、 RGID$(和 EGID $),或者(更明智地)使用英语:

#!/usr/bin/env perl
use English '-no_match_vars';
print "EUID = $EUID; RUID = $UID; EGID = $EGID; RGID = $RGID\n";
于 2012-07-20T19:24:19.790 回答