漢數字アクセス・カウンタ

ここでは、《三國演義》に使用した「漢數字アクセス・カウンタ」をご紹介します。

能書き

「○万○千○百○十○」という、本当の「漢数字」です。巷間よく見掛けるような、桁の羅列ではありません。二十一億四千七百四十八万三千六百四十七以下に対応。
ピュアなPerlで書いてある（外部モジュール等は一切不使用）ので、Perl/CGIを許可している所であれば恐らくどこのプロバでも動かせます。
JavaScript経由の出力なので、制御は自由自在。
自端末からのアクセスをカウントから除外可能。
漢字エンコーディングに依存しない「&#」シーケンスを使用。
百アクセス毎にお祝い。

使い方（基本）

そいでもって「使って見よう」という勇気のある御仁は、以下のようにしてね。

事前準備として、あなたが契約しているプロバに以下のポイントを確認:
- Perl/CGIを許可しているかどうか。してなければ、有料または無料でCGIホスティングを提供している所もあるようなんでそれを当たってみるか、それができなければ諦めてください。
- Perl/CGIが使用できるんであれば、CGIプログラムのFTP場所と、それがどういうURLで使えるようになるのかを教えてもらっといてください。ついでに、拡張子などCGIにまつわる色々な約束事があるようなら、それもよく聞いておきます。
- また、多分「/usr/local/bin/perl」か「/usr/bin/perl」のどっちかだと思いますが、一応Perlインタプリタの絶対パスを確認しといてください。また、CGI実行時のカレント･フォルダ位置も確認が要ります。多くのプロバではCGIプログラムのFTP場所と同じになるようですが、もしも違う場合はそのフォルダ位置の絶対パスが必要になってきます。
Perlプログラム・ソースを名前をつけて保存。拡張子は「.txt」になっていますが、気にしないでください。一応、このソースの日本語は「Shift JIS」で改行コードは「LFのみ」です。
保存したPerlプログラム・ソースを編集。編集箇所は全て半角英数字を使います（全角文字は絶対不可）。
- ソースの最初の方にある、参照元リストの配列「@Referer」の要素
```
#
# 参照元リスト
@Referer = (
    'http://',
);
```
  には、アクセス・カウンタを参照する文書（つまりカウント対象の文書）のURLの先頭部分を、カンマ区切りで列挙します。幾つあっても構いませんが、最低1つは必要です。
  この指定は、カウント結果を保存するファイル名を決める他に、見ず知らずの他人にむやみに借用されないようにするためのアクセス制御でもあります。デフォルトでは「http://」になっていますが、これだと世界中のどの文書からでも参照できることになってしまうので、必ずあなたのHPのURLの先頭部分で書き換えるように。例えば、あなたのHPが「http://your.host/~you/」で、ミラーが「http://mirror.host/~you/」にある時は、
```
#
# 参照元リスト
@Referer = (
    'http://your.host/~you/',
    'http://mirror.host/~you/'
);
```
  とかにしときます。こうしとくと、「http://your.host/~you/」あるいは「http://mirror.host/~you/」で始まるURLをサブ・フォルダ単位で別々にカウントすると同時に、それら以外のURLからの参照を全て「不正な参照元です」というエラーにします。
- 1.の事前確認で、Perlインタプリタの絶対パスが「/usr/local/bin/perl」でなかった場合は、ソースの先頭行をそれに合うように書き換えなければいけません。例えば、「/usr/bin/perl」なら
```
#!/usr/bin/perl
```
  としときます。
- 更に、1.の事前確認で、不幸にもCGIの実行時のカレント･フォルダ位置とCGIプログラムのFTP場所が違うとわかった場合は、
```
#
# ホーム・ポジション
#chdir 'home';
```
  の部分のコメント記号「#」を外し、プロバ指定のCGI実行時フォルダ位置の絶対パスで書き換えます。例えば、「/provider/usr/home/you/cgi-bin」なら
```
#
# ホーム・ポジション
chdir '/provider/usr/home/you/cgi-bin';
```
  てな具合です。
Perlプログラム・ソースの編集はこれで全部です。
編集後のPerlプログラム・ソースを、1.で確認したプロバ指定のCGIフォルダにFTPします。この時、FTP後のファイル属性がモード755（またはrwxr-xr-x）になるように設定しときます。それ以外に、拡張子などプロバが指定しているCGIの約束事がある時はそれに従ってください。
FTPするついでに、CGIフォルダにサブ・フォルダ「accesses」を作成しておきます。サブ･フォルダのフォルダ属性がモード777（またはrwxrwxrwx）になるように設定を忘れずに。

なお、このサブ･フォルダが無くても動作するかも知れませんが、その場合カウント結果ファイルなどでCGIフォルダがとり散らかるので、やっぱり作っておいた方が吉です。
今度はカウント対象のHTML文書の編集です。 HTML文書の中で、アクセス･カウンタを貼り付けたい場所に、
```
<SCRIPT TYPE="text/javascript" SRC="1.で確認したCGIのURL"></SCRIPT>
```
を入れます。見栄えが良くなるように、外側を「<DIV>」や「<SPAN>」で囲んでスタイル・シートで飾り付けます。
編集後のHTML文書をアップロードします。これで準備完了です。文書を開いて、結果を確認してみてください。

トラブル・シュート

ウンともスンとも言わないときは、アクセス・カウンタのURL（1.で確認したCGIのURL）をブラウザから手打ちし、次のようなエラーにならないか確かめてください:

HTTP 404 「ページが見つかりません」: プロバ指定のCGIフォルダに正しくFTPできていますか？また、そのファイル属性がモード755になっていますか？その他CGIの約束事にちゃんと合っていますか？
HTTP 500 「Internal Server Error」または「内部エラー」: Perlプログラム･ソースの編集はちゃんと出来ていますか？間違って全角文字を使っていませんか？ソースの内容が完璧でも、改行コードが「CR+LF」になっているとこのエラーが起こることがあります。お使いのFTPツールに改行コード変換機能がある場合は、「LFのみ」変換をしてからもう一度試してみてください。

また、カウント結果ではなくエラー・メッセージが出ている時は、それぞれ次のような点を再確認してみてください:

「不正な参照元です」: Perlプログラム･ソースの参照元リストの配列「@Referer」と、カウント対象文書のURLが正しく対応していますか？
「ファイルに書けません」: CGIフォルダにサブ・フォルダ「accesses」を作りましたか？また、そのフォルダ属性がモード777になっていますか？

高度な使い方

自端末からのアクセスをカウントから除外する

最初に、カウント対象のHTML文書中のアクセス･カウンタ参照部分のURLに「?x」を加えてアップロード。
```
<SCRIPT TYPE="text/javascript" SRC="1.で確認したCGIのURL?x"> …
```
次に、使用中のブラウザがクッキーを受け付ける設定になっていることを確認してから、アクセス･カウンタのURL（1.で確認したCGIのURL）に「?x-cookie」を付けたものをブラウザから手打ちします。アクセス･カウンタから「クッキーを発行しました」というメッセージが返ってきたら、ブラウザへのクッキーの植え付けは完了。
これ以降、何度リロードしてもカウンタがアップしないことを確認。

「祝」文字のスタイルを変える

そのままだと百アクセス毎の「祝」文字も漢数字と同じスタイルになってしまいます。「祝」文字だけスタイルを変えて目立たせたくなった時のために、「<SPAN>」で囲んで出力されています。つまり、

<SPAN CLASS="kaccessCongrat">祝</SPAN>カウント結果

という風になっているので、この「SPAN.kaccessCongrat」に対してスタイルを定義してやればOKです。

漢数字をイメージで出力する

通常は、カウント結果の漢数字は「&#」シーケンスを使用した文字出力となります。出力される漢字は全部で「零一二三四五六七八九十百千萬億祝」の16種です。これを「<IMG>」要素や別の漢字（例えば「〇壱弐参四五六七八九拾…」）に置き換えて表示させることができます。そのやり方は、

最初に、カウント対象のHTML文書中のアクセス･カウンタ参照部分より前で、JavaScript配列変数（要素数16）を定義しておきます。

<SCRIPT TYPE="text/javascript">
var kdigit = new Array(16)
kdigit[0]  = '<IMG SRC="0.gif">'	// 零
kdigit[1]  = '<IMG SRC="1.gif">'	// 一
kdigit[2]  = '<IMG SRC="2.gif">'	// 二
kdigit[3]  = '<IMG SRC="3.gif">'	// 三
kdigit[4]  = '<IMG SRC="4.gif">'	// 四
kdigit[5]  = '<IMG SRC="5.gif">'	// 五
kdigit[6]  = '<IMG SRC="6.gif">'	// 六
kdigit[7]  = '<IMG SRC="7.gif">'	// 七
kdigit[8]  = '<IMG SRC="8.gif">'	// 八
kdigit[9]  = '<IMG SRC="9.gif">'	// 九
kdigit[10] = '<IMG SRC="j.gif">'	// 十
kdigit[11] = '<IMG SRC="h.gif">'	// 百
kdigit[12] = '<IMG SRC="s.gif">'	// 千
kdigit[13] = '<IMG SRC="m.gif">'	// 萬
kdigit[14] = '<IMG SRC="o.gif">'	// 億
kdigit[15] = '<IMG SRC="i.gif">'	// 祝
</SCRIPT>

配列変数名（ここでは「kdigit」）は、他のJavaScript変数と重複さえしなければ何でも構いません。但し、16個の要素全てに値を設定しなければなりません。面倒ですが、「祝」文字だけ変えるとかはできません…

次に、アクセス･カウンタ参照部分のURLに「?a=配列変数名」を加えます。
```
<SCRIPT TYPE="text/javascript" SRC="1.で確認したCGIのURL?a=kdigit"> …
```
これでアップロードし、結果を確認します。
配列変数の値をそのまま出力するだけなので、「<IMG>」の他、何でも出力できます。

その他

その他にもいくつか機能がありますが、Perlの分かる方はソースを色々調べて、何となれば自由に書き換えてみてください。サブルーチンkNumeric自体を書き換えてローマ数字を出す、なんてのも面白いかもしれません。

最後に

これはPDSです。一切の権利も責任も放棄します。であるからして、動かなかったり、何か変な動きをしても、作成者は一切知りません。悪しからず。

更新日時:
安樂侯・軟體大都督坂口丈幸