免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1161 | 回复: 0

用perl获取文件的权限更容易 [复制链接]

论坛徽章:
0
发表于 2008-04-12 23:38 |显示全部楼层

另外:如果其他用户没有根目录的读权限的话,即使在root用户下,用su - 也是无法切换普通用户的。今天尝试用perl获取权限,在安全加固前备份所有的修改权限的文件的原始权限;
sxb102:/export/home # cat bak.pl
#!/usr/bin/perl
$mode = (stat("./test"))[2];
printf "%04o\n", ($mode & 007777);
sxb102:/export/home # ls -l ./test
-rwsr-xr-x 1 root root 0 Apr 12 23:32 ./test
sxb102:/export/home # stat ./test
File: `./test'
Size: 0              Blocks: 0          IO Block: 4096   regular empty file
Device: 802h/2050d      Inode: 116506      Links: 1
Access: (4755/-rwsr-xr-x)  Uid: (    0/    root)   Gid: (    0/    root)
Access: 2008-04-12 23:32:00.000000000 +0800
Modify: 2008-04-12 23:32:00.000000000 +0800
Change: 2008-04-12 23:32:54.000000000 +0800
sxb102:/export/home # chmod 3666 ./test
sxb102:/export/home # ls -l
total 20
-rwxr-xr-x 1 root root 6495 Apr  6 23:20 a
-rw-r--r-- 1 root root  123 Apr  6 23:20 a.c
-rwxr-xr-x 1 root root   20 Apr 12 22:13 a.pl
-rwxr-xr-x 1 root root   80 Apr 12 23:35 bak.pl
-rw-rwSrwT 1 root root    0 Apr 12 23:32 test
sxb102:/export/home # stat ./test
File: `./test'
Size: 0               Blocks: 0          IO Block: 4096   regular empty file
Device: 802h/2050d      Inode: 116506      Links: 1
Access: (3666/-rw-rwSrwT)  Uid: (    0/    root)   Gid: (    0/    root)
Access: 2008-04-12 23:32:00.000000000 +0800
Modify: 2008-04-12 23:32:00.000000000 +0800
Change: 2008-04-12 23:35:55.000000000 +0800
sxb102:/export/home # ./bak.pl
3666


本文来自ChinaUnix博客,如果查看原文请点:http://blog.chinaunix.net/u/427/showart_528983.html
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

DTCC2020中国数据库技术大会 限时8.5折

【架构革新 高效可控】2020年8月17日~19日第十一届中国数据库技术大会将在北京隆重召开。

大会设置2大主会场,20+技术专场,将邀请超百位行业专家,重点围绕数据架构、AI与大数据、传统企业数据库实践和国产开源数据库等内容展开分享和探讨,为广大数据领域从业人士提供一场年度盛会和交流平台。

http://dtcc.it168.com


大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP