-M脚本开始时间减去文件修改时间，以天为单位

Question

我希望-M $_为负数，但它为零：

perl -E 'qx(touch $_), sleep(5), say -M for "/tmp/file"'

perldoc会提到这种行为吗？

Answer 1

我认为这解释了你所看到的内容

perl -E 'say "START TIME",$^T; qx(touch $_), sleep(5), say -M for "/tmp/file"; say "STAT ON FILE", (stat(_))[9]'

运行时输出

START TIME1434460114
0
STAT ON FILE1434460114

1）脚本启动$ ^ T设置为1434460114

2）几乎立即创建文件“/ tmp / file”，修改时间为1434460114

3）睡5秒

4）-M报告文件的修改时间与脚本开始时间的差异为零

试试这个

perl -E 'say "START TIME",$^T;  sleep(5),qx(touch $_), say -M for "/tmp/file"; say "STAT ON FILE", (stat(_))[9]'

我系统上的输出

START TIME1434460296
-5.78703703703704e-05
STAT ON FILE1434460301