Perl文件测试符 C的用法

在Perl的各种文件测试运算符中，最有用的运算符之一就是 -C 了。
它返回的是文件的ctime到程序启动的那一时刻经过的天数。
如果不是整数天，返回值就带有小数。
这个运算符经常用来检测文件是否过期，比如判断文件距离上次修改是否超过了3天，
如果超过就将其删除。但是，你是否真正理解 -C 的工作原理呢？
何谓ctime
要想理解-C，就必须理解什么是ctime。我们知道文件测试运算符的返回值都是stat系统调用的结果，
因此从stat的文档中就可以找到答案：
$ man 2 stat
...
The field st_ctime is changed by writing or by setting inode information
(i.e., owner, group, link count, mode, etc.).
可见，ctime是inode的更新时间，因此不仅是改变文件内容，移动文件、修改所有者等操作都会改变ctime。
这篇文章
说得更详细：
文件的 Change time，ctime 是在写入文件、更改所有者、权限或链接设置时
随 Inode 的内容更改而更改的。只要stat出来的内容发生改变就会发生改变。
mtime的改变必然导致ctime的改变。
-C的值如何计算？
perl的文档中对-C是这样说明的：
$ perldoc -f -X
...
-M Script start time minus file modification time, in days.
-A Same for access time.
-C Same for inode change time (Unix, may differ for other platforms)
也就是说，-C 是脚本执行开始那一刻距离文件的ctime之间的天数。
用计算式来表述，可以这样写：
(($^T - ((stat($filename))[10])) / 86400)
$^T是Perl开始执行时的时间戳。
因此，在同一个程序中两次执行 -C 的结果是一样的。
所以，下面这个程序得到的是相同的结果：
print -C "foo.bar";
sleep 10;
print -C "foo.bar";
同样，在mod_perl环境下，只要服务器没有重启，那么任何时候执行-C得到的结果都相同。
（实际上上面这句话并不严密，因为httpd会同时启动数个进程，而多个进程的$^T并不一定相同，从而-C的结果也有可能不同。
另外，一般情况下httpd进程在处理完一定的请求之后，进程会结束并启动一个新进程，也会使得$^T重置，影响-C的结果。）
那么，如何获得执行
那一刻距离ctime的天数呢？
有了上面的公式，不难得出，应该这样计算：
(-C $filename) + (time() - $^T) / 86400