【perl】文件测试符

 

PERL文件测试符操作

 

-r	文件可以被有效的UID/GID读取
-w	文件可以被有效的UID/GID写入
-x	文件可以被有效的UID/GID执行
-o	文件被有效的UID所有
-R	文件可以被真实的UID/GID读取
-W	文件可以被真实的UID/GID写入
-X	文件可以被真实的UID/GID执行
-e	文件存在
-z	文件大小为零
-s	文件大小不为零(返回大小)
-f	文件是简单文件
-d	文件是目录
-l	文件是符号链接
-p	文件是命名管道(FIFO)
-s	文件是套接字
-b	文件是特殊块文件
-c	文件是特许字符文件
-t	文件句柄打开为tty
-u	文件设置了setuid位
-g	文件设置了setgid位
-k	文件设置了sticky位
-T	文件是文本文件
-B	文件是一个二进制文件(与-T对应)
-M	自修改以来的文件以天计的年龄(从开始起)
-A	自从上次访问以来的文件以天计的年龄(从开始起)
-C	自从索引节点修改以来的文件以天计的年龄(从开始起)

if(-f "$ENV{R_CWD}/a.log"){
  $exit_enable = 1;
}