2010-04-18から1日間の記事一覧
キャッシュの purge 用にさらっと書いた。 あるディレクトリ以下のファイルで最近アクセスされていないものをまとめて消す。[purge.pl] #!/usr/bin/perl use strict; use warnings; use File::Find; use File::stat; # 探索ディレクトリ my @search_director…
キャッシュの purge 用にさらっと書いた。 あるディレクトリ以下のファイルで最近アクセスされていないものをまとめて消す。[purge.pl] #!/usr/bin/perl use strict; use warnings; use File::Find; use File::stat; # 探索ディレクトリ my @search_director…