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