サーバの Disk 容量が足りなくなってきたので、Amazon Search とかの Web Service として提供しているアプリケーションのコンテンツ・キャッシュファイルを、ある一定期間更新がされていないファイルを一括削除することにしました。 簡単な削除スクリプトを書いてみました。キャッシュをファイルベースで管理している場合に、ひょっとして他の方にも役立つかも?と思ってソースを公開しておこうかなぁーと思って。 #!/usr/local/bin/perl use strict; use File::Find; use 5.6.0; use constant CACHE_DIR => '/temp-path'; ## 削除したいディレクトリのpath use constant EXPIRE => 50; ## 削除対象とする経過日数 find(\&filter, CACHE_DIR);