Perl 有很多实用的的档案运算子， 要检查档案的最后存取及修改时间， 可以用 -M 及 -A 实现，在程式内可以便可以找出指定时间没有被取存或修改的档案, 以下是简单的例子检查档案是否在 30 日内没有修改过:
|
1 2 3 4 5 |
$file = "testing.txt"; # 测试的档案 if ( -M $file > 30) { print "This file has not modified 30 days\n"; } |
而除了以上两个外, Perl 还有很多实用的档案运算子:
-e 档案存在
-z 档案是空档案 （大小为 0)
-s 档案不是空档案 （回值档案大小）
-f 档案是普通文件
-d 档案是目录
-l 档案是连结 (档案系统不支援连结会回传 false).
-p 档案是 FIFO
-S 档案是 socket
-b 档案是一个特殊档案.
-c 档案是字符特殊档案
-t 在 tty 开启档案
-u 档案设定为 setuid
-g 档案设定为 setgid
-k 档案设定为 sticky
-T 档案是 ASCII 或 UTF-8 文字档
-B 档案是 binary 档案
-M 档案最后修改日数
-A 档案最后存取日数
-C 档案自索引以来日数