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

PVとトラフィックの計算で欲しくなった。[calcpv] #!/usr/bin/perl use strict; use warnings; #use bigint; use Data::Table; =pod PV calculator $ calcpv 4500pv/min 100 =cut my @UNIT_LIST = qw/sec min hour day week month year/; my $REGEX = join '…