-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