perl中的setgroups
时间：2007-02-11 来源：hellwolf
在用root运行程序时进行权限降级的时候光setuid(2)和setgid(2)是不够的，因为还有一个系统supplementary group IDs。修改这个列表的接口就是setgroups(2)。
在perl中调用setgroups的方法是通过操作$)变量：
# perl -e 'print $),"\n"; $)="1000 1000";print $),"\n"'
0 10 6 4 3 2 1 0
1000 1000
这里包含一个技巧，那就是重复1000两次，否则你会得到：
# perl -e 'print $),"\n"; $)="1000";print $),"\n"'
0 10 6 4 3 2 1 0
1000 10 6 4 3 2 1 0
在perl中调用setgroups的方法是通过操作$)变量：
# perl -e 'print $),"\n"; $)="1000 1000";print $),"\n"'
0 10 6 4 3 2 1 0
1000 1000
这里包含一个技巧，那就是重复1000两次，否则你会得到：
# perl -e 'print $),"\n"; $)="1000";print $),"\n"'
0 10 6 4 3 2 1 0
1000 10 6 4 3 2 1 0
相关阅读 更多 +
