キャッシュ更新のためとかでファイルの更新日時をチェックする時はstatよりファイルテストの方がかなり高速 use strict; package Bench; my $file = '/tmp/hoge'; sub bench_stat { my $last_update = (stat $file)[9]; } sub bench_file_test { my $day = -…