perl文件测试

转自http://www.2cto.com/os/201402/280919.html

perl中文件测试的操作符及意义

测试文件的权限：

-r 文件或者目录对目前（有效的）用户是可读的

-w 文件或者目录对目前（有效的）用户是可写的

-x 文件或者目录对目前（有效的）用户是可执行的

-o 文件或者目录有对目前（有效的）用户拥有

-R 文件或者目录，对实际的用户或组来说是可读的

-W 文件或者目录，对实际的用户或者组来说是可写的

-X 文件或者目录，对实际的用户或者组来说是可执行的

-O 文件或者目录，有实际的用户拥有

测试文件的存在：

-e 文件或者目录是存在的

-z 文件存在但没有内容

-s 文件或者目录存在

测试文件的类型：

-f 是普通文件

-d 是目录

-l 是符号链接

-S 是socket类型文件

-p 是命名管道

-b 是块设备文件

-c 是字符设备文件

-u 文件或目录设置了setuid位

-g 文件或目录设置了setguid位

-k 文件或者目录设置了sticky位

-t 文件句柄是TTY设备

-T 文本文件

-B 二进制文件

测试文件的时间：

-M 最后一次被修改至今的天数

-A 最后一次被访问至今的天数

-C 最后一次文件节点编号被变更后至今的天数

下面的perl程序可以查看一个目录下的文件是否是可读可写可执行的，目录名由命令行传入。

#!/usr/bin/perl -w
opendir(FH,"@ARGV[0]");
my @list=readdir FH;
closedir(FH)
foreach my $file (@list){
if (-r -w -x $file){
print "$file is readable,writeable and excuteable\n"
}
}