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;
}