N88perl Chapter99-2

99章.お役立ちperlプログラム

99.2.htm*ファイルの参照日時の集計(reftime)

自分のページ(htm,htmlファイル)が最後に参照された日時の集計表を作成します。
自分のページの人気が伺えます。ただ，バックアップや検索ロボットが来ると参照日時が一様になってしまいます。

これは，シェル上から実行するものとします。ディレクトリなどのパーミッションの問題があるためです。
このプログラムを設置したディレクトリと，その下位の階層も含む全ての(.htm*)ファイルが対象になります。

reftime.plをダウンロード後に，自分の環境に合わせて修正して下さい。

主な修正箇所は(perl,find)コマンドのディレクトリです。

#!/usr/bin/perl
# ~~~~~~~~~ update to your environment(1/2)
$find = "/usr/bin/find";
#        ~~~~~~~~~ update to your environment(2/2)
$dir = ".";
#       ~*

修正したスクリプトをftpで/home/foo(任意)ディレクトリへ転送後に

kibita(*)cd /home/foo
kibita(*)mv reftime.txt reftime.pl
kibita(*)chmod 700 reftime.pl

とします。

実行は

kibita(*)reftime.pl > log.txt
kibita(*)cat log.txt


1996/10/06 Sun 04:09:07 ./foo/bbs/a/a0001.html
1996/10/06 Sun 04:09:07 ./foo/bbs/a/a0010.html
1996/10/06 Sun 04:09:07 ./foo/bbs/b/b0001.html
1996/10/06 Sun 19:04:57 ./foo/bbs/bbsfaq.html
1996/10/06 Sun 19:03:20 ./foo/bbs/bbsnote.html
1996/10/06 Sun 18:16:47 ./foo/dwd/dwddic.html
1996/10/06 Sun 04:09:06 ./foo/dwd/index.html
1996/10/06 Sun 19:01:38 ./foo/index.html
1996/10/06 Sun 19:17:57 ./foo/jp7/guest.html
1996/10/06 Sun 19:15:52 ./foo/jp7/index.html
1996/10/06 Sun 04:09:06 ./foo/jsearch.html
1996/10/06 Sun 15:45:26 ./foo/n88/index.html
1996/10/06 Sun 04:09:07 ./foo/ouc/index.html
1996/10/06 Sun 04:09:00 ./foo/pnp/dat/a1.html
1996/10/06 Sun 04:09:03 ./foo/pnp/index.html
1996/10/06 Sun 04:09:08 ./foo/pub/index.html

[HOME][戻る]