カウンター作成の村

カウンター作成の村

はじめに

ある事情でホームページのカウンターを作る事になった。
いろんなカウンターの作り方や、ＣＧＩ入門のホームページを参照して、作ってみました。
最近物忘れが激しいので、自分のメモ代わりに作り方を書いてみます。

特徴ってあるかのう？

２種類のカウンターがあります。
gif画像カウンターと、テキストカウンターです。

共通の特徴

・同一アドレスの訪問者は、一日一回のカウントにしてあります。

・訪問者のアドレスを日付と共に５００人までとって、５００人超えたら初期化してます。

・2種類の排他チェックをして、カウンターファイルをなるべく壊さないようにしています。

・ほぼ同時訪問者があった場合、1秒間まって、カウンターファイルを更新します。10秒チャレンジします。

・CGIのプログラムなのでＳＳＩは必要ありません。

テキストカウンターの特徴

GIF画像カウンターの特徴

・スタイルシートを使って、見栄えよくなってます。

・テキストなので早いです。

・排他で１０秒待ってだめなら？？？？が表示されます。
　（カウンターは壊れてません）

・IEでもNetscapeでも表示できますが、Netscapeだとスタイルシートの効果がない。

・色や形（IEのみ）の変更がHTMLの知識で出来ます。

・ＧIF画像の結合をしていないので、表示が遅いです。

動作環境みたいなの

CGIの使えるサーバ。

Ｐｅｒｌ言語を使っています。（ＣＧＩの言語の一つらしいです。）

その言語のflock関数が使える事。(使えないプロバイダーもあるらしい）
(使えならflockの所を消してください。)

こんな感じ。

テキストカウンターの例です。

000019

(上記は、実際にカウントはしてません。このＨＰのプロバイダーはＣＧＩ使えないのでW）
スタイルシートを使ってるので、文字の大きさ・色を変更したり、影をつけたり、ぼかしたり、波型にしたりできます。
作るのめんどいけど、print文にJavaScriptとか組み込んだら、日付や時間やカウンター数等によって、色の変更等が画像を追加せずに出来たりする。
ネスケだと、
00131 こんな感じになってしまいますが、文字フォントや、大きさは変更可能です。

作るもの

count.cgi（ＣＧＩプログラム本体。".cgi"のファイル。）

count.txt（カウンターの値と訪問者ログを編集するファイル。初期値０で作ってね。）

lockfile.loc（出力時の排他処理用ファイル）

lock2(排他用ディレクトリ(フォルダの事・後述）人によってはいらないかも)

????.html（カウンターを配置するＨＴＭＬ文書って当たり前か。）

上記のファイル名は、自由に変更してください。（上記ファイルの.txtと.locも変更してもＯＫ）
変更した場合は、プログラム内や、ＨＴＭＬ内のファイル名も変更してください。

用意するもの

テキスト使用カウンター	ｇｉｆ画像カウンター
編集用アプリ。まあ、メモ帳やワードパットでＯＫ。
-----------------	"0.gif","1.gif","2.gif"～"9.gif" (gif画像ファイル。どこかのフリー素材から取ってきて下さい。）

準備段階

1.メモ帳等でcount.txtを初期値"0"+改行で作成してください。

2.メモ帳等でlockfile.locを空ファイルで作成してください。

3.排他ディレクトリ用のディレクトリ"lock2"を作成してください。
（後述の「サーバー登録時に行う事」を参照）

サーバー登録時に行う事

ホームページと同様に上記の「作るもの」のファイルと、画像カウンターの場合は「用意するもの」のＧＩＦ画像（0.gif～9.gif)をアップロードします。
（プロバイダーによっては登録場所とか決まってるはずなので注意）

違うのは、その後、更新権やら、実行権やらを変更しなければいけません。

FFFTPを使用している人は、ファイルを選択して、右クリック等で変更メニューが出せます。

FTPでアップロードしているなら、以下のコマンドを打って変更してください。

quote site chmod 755 count.cgi
quote site chmod 666 count.txt
quote site chmod 666 lockfile.loc

プログラム内で排他用ディレクトリを作成していて、訪問者をカウントしている間だけ存在します。

そのディレクトリを格納するディレクトリを別に作って更新権等を与える必要があります。

(もし、アップロードするディレクトリにすでに777が設定してあるのならディレクトリは必要ないので、プログラム内の$lockdirの値設定（最初にしている）の処の"./lock2/"を消してもＯＫと思う（未確認）。)

ディレクトリの作り方（FFFTPならフォルダ作成メニューがあったはず）は、ftpでログインし,cgiを作成するディレクトリに移動し、
mkdir lock2
quote site chmod 777 lock2
でいいはずです。
（たぶん766でもいいかと思ったけど、私のサーバーではダメでしたオーナーは実行権がないと,lock2のディレクトリに移れ(cdコマンド）なくなったりします。）

更新権等の確認は、dirコマンドで一覧が出た時に、一番左に -rwxrwxrwx のようなのが、出ていると思います。

rはリード権、wは更新権,xは実行権をあらわしていて、-は無しと言う意味です。

一番左は、ディレクトリだと、drwxrwxrwx って感じで、dがつきます。

で三つrwxがあるのは、一番左から、オーナー、グループ、その他です。

666とかの数字は、足し算で、rは４、wは２、xは１を足し算して計算します。
(例)rとwなら、4+2=6になります。

つまり、count.txt等は、全員に更新権とリード権を与えているって感じです。

ＨＴＭＬに書く事

カウンターを付けるＨＴＭＬ文書内の記述内容については、以下の通り。

テキスト使用カウンター

ｇｉｆ画像カウンター

方法は二つあります。
もっと良い方法があるかもしれませんが。

（１）フレームを使って行う方法です。
　フレームの大きさはカウンター文字の大きさ指定（後述）し、好きなように変更してください。

　フレーム未対応のブラウザーは無理。

<HTML>
<HEAD>
<TITLE>フレームでカウンター表示</TITLE>
</HEAD>

<FRAMESET rows="20%,*"  FRAMEBORDER=0>
  <FRAME SRC="count.cgi" NAME="FRAME1">
  <FRAMESET ROWS="80%,*">
  <FRAME SRC="????.html" NAME="FRAME2">
  </FRAMESET>
  <NOFRAMES>
  このページはフレーム対応のブラウザでご覧ください。
  </NOFRAMES>
</FRAMESET>
</HTML>

（２）IFRAMを使って行う方法です。
　カウンターの文字の大きさから、width,heightを変更してください。

　IFRAMだと、現状のＨＴＭＬに直接書けるから便利。

　IFRAMはネスケで使えないので、ILAYERを使ってます。

<IFRAME SRC="count.cgi" HEIGHT=50 WIDTH=300 FRAMEBORDER=0 scrolling=no>
 <ILAYER SRC="count.cgi" HEIGHT=300 WIDTH=300></ILAYER>
</IFRAME>

（３）その他。
プログラム修正して、JavaScriptの外部ファイルを作成出力するようにして、カウンター出力したりするのも面白いかも。
その場合、IMG SRC="count.cgi" width=1 height=1とかをHTMLの上部において、下のほうで、の外部ファイルを実行するようにしたりすればいいかも。

ＩＭＧのＳＲＣにカウンターＣＧＩを指定するだけです。

下記の例は５桁の場合です。

<IMG SRC="count.cgi?5+"><IMG 
SRC="count.cgi?4"><IMG 
SRC="count.cgi?3"><IMG 
SRC="count.cgi?2"><IMG 
SRC="count.cgi?1">

CGIの後の"？"は、パラメータをＣＧＩに渡しています。

一つ目のパラメータ"1"～"5"は、カウンターの何桁目を表示するかを指定します。

二つ目のパラメータ"+"は、ＣＧＩ実行時にカウンターを増やすぞって、指示するパラです。

つまり、二つ目のパラメータをすべて+にすると、一人の訪問者でカウンターが５上がる事になりますＷ

"IMG "と"SRC"で改行しているのは、表示の時にＧＩＦ間に間が開かないようにするためです。

すぐに使わせろ！！プログラムなんかみたくなーーい。

直ぐに動かしてみたい人は,以下の要領でこの下にあるプログラミングの所から、メモ帳等にコピー＆ペーストして、チョビット修正してcount.cgiを作成して使ってください。

なお、メモ帳等でcount.cgiを新規作成して保存すると、count.cgi.txtになってしまったら、エクスプローラとかで、名前の変更してください。
(保存時に名前をダブルコーテーションでくくると、.txtが付かないって話しもある。）

テキストカウンター

ＧＩＦ画像カウンター

プログラム共通部その１
　　　　　↓
プログラム共通部その２
　　　　　↓
プログラム共通部その３
　　　　　↓
テキストカウンター専用プログラム部
の順で貼り付け。

一行目の#! /usr/bin/perlを修正

これでＯＫですが、
カウンターをつけるホームページにあうように、
HTMLOUTサブルーチン内のプリント文のHTML文書を
変更してください。

プログラム共通部その１
　　　　　↓
ＧＩＦカウンター専用プログラム部その１
　　　　　↓
プログラム共通部その２
　　　　　↓
ＧＩＦカウンター専用プログラム部その２
　　　　　↓
プログラム共通部その３
　　　　　↓
ＧＩＦカウンター専用プログラム部その３
の順で貼り付け。

一行目の#! /usr/bin/perlを修正

これでＯＫ。

ＣＧＩプログラミング

右側がプログラムソース、左側が説明です。
説明は、自分のメモのために、非常に見にくくｗ、細かく、脱線したりして書いてありますが、
たぶん初心者の人（私もですが）でもPerlが少しは理解できるようになるのではないかなあ？？
（説明文が間違ってたら、ごめんなさい。）

プログラム共通部その１	説明部
#! /usr/bin/perl # ↑Ｐｅｒｌの決め事 #ファイルの設定 $datafile = "count.txt"; $lockdir = "./lock2/cntlock"; $lockfile = "lockfile.loc"; #日付の設定 ($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time); $mmyy = "$mon"."$day"; #排他ディレクトリ作成 $lockflg=&lock; if ($lockflg == 0){ &error;} #カウンターファイル読込 open(IN, $datafile); flock(IN,1); @datas=<IN>; close(IN); #文字列分割 ($logday,$count) = split(/count=/,$datas[0]); #　countから改行消去 $count=~s/\n//g;	Perlの決め事 /usr/bin/perlはperl言語の実行ファイルを設定しています。プロバイダーにより、違うので、契約プロバイダーのホームページ等で確認してください。 perl文を書くと時の決まり事だと思ってください。ちなみに、＃はコメントですファイルの設定変数は、$で表すらしいです。変数にファイル名を代入しています。２番目の.lock2/cntlockは、排他用のディレクトリでこのＣＧＩを起動している間作成されるディレクトリです。この後作成ステップが来ます。３番目のファイルは、ファイル出力時用の（ダミー？）排他ファイルです。日付の設定（日付取得方法、変数代入の説明、文字列結合）当日日付を設定しています。カッコ内のtimeは現在の時刻を得る命令で、localtimeはそれを分解する命令です。たぶん配列で（秒、分、時、日、月、年、曜日、年日数、夏時間なら０以外やら）になる。配列変数は、括弧ないのそれぞれに対応して入力されるらしいです。例：($year,$tuki,$hi)=(2002,10,3)で、$year=2002,$tuki=10等が代入されます。配列変数は、@マークで表す。@HAI=("a","b","c")とすると、２番目のｂを表すには、$HAI[1]になる。$に注意。配列は０番目から始まる。曜日は、０が日曜で６が土曜、月は０が１月で11が１２月になる。年は、二桁で１９００年からの年を表すので注意。年日数は、１月１日からの日数。夏時間はパス。ダブルコーテーション”は、変数の値を表し、シングルコーテーション’は変数名の文字列になります。例：$a=123;$b="$a";$c='$a'; 上記だと、＄ｂの値は、123になり、$cの値は、$aという文字列になります文字の結合には、"."をつかいます左記は$mmyyに月と日を結合しています。排他ディレクトリ作成（サブルーチンとＩＦ文と条件説明）排他制御のフラグを編集しています。サブルーチンは、&であらわします。排他制御は、後述のサブルーチンlockを参照。フラグは、０なら10秒以上ロックファイルが存在していてエラー、１なら処理開始。ＩＦ文は、等しい場合は＝＝です。数値比較演算子には、==,!=,<,>,<=,>=,&&,\|\|,<=>があります。最後の<=>は値によって、-1,0,1を返すらしいです。文字比較演算子は、eq,ne,lt,gt,le,ge,=~,!~,cmpがあります。 =~は文字列を含むか、!~は文字列を含まないかで、比較の時 if($xx =~ /ABC/)て感じで文字列ＡＢＣを含むか聞くときはスラッシュでかこみます。スラッシュの中には、[A\|B\|C]と書くとAかBかCのどれかとか、[A-Z]でA～Zとか、いろいろある。 cmpは、-1,0,1を返すらしいです。（等しいは０で左が大きいと１右が大きいとー１）ソート処理等に使うと便利です。 if文等の比較の真・偽等は、偽の場合空文字"",か、0か、”0”だと偽でそれ以外は真です例：$xx="";if($xx){処理} だと、処理は、はしりません。また、$xx="123"と、$xxを文字列にしても、 if($xx == 123){処理｝とすると、かってに数値として比較して、処理がはしるらしいですエラールーチン$errorについては後述。カウンターファイル読込（ファイル入出力、flock,配列変数について。）ファイルをＯＰＥＮしています。 INというのは、ハンドルとかっていって大文字で書くらしいです。標準でＳＴＤＩＮ、ＳＴＤＯＵＴ，ＳＴＤＥＲＲとかっていう、標準入力、出力、エラーのハンドルが元々あるらしいです。オープン方法は、以下の通り open(IN,"xxx.txt"); 読込モード open(OUT,"> xxx.txt");　書込みモード open(F,"+< xxx.txt"); 読み書きモード open(OUT,">> xxx.txt"); 追加書込みモード他にも、外部コマンドへの使用やバッファリンクしない方法やらあるらしいが、パス。 flock関数は、ファイルを独占して、他の人がきたら、待たせたり、エラーにして返したりします。二つ目のパラメータで制御しています。　1 読込ロック（ブロックモード）　2 書込ロック（ブロックモード） 3 読込ロック（非ブロックモード） 4 書込ロック（非ブロックモード） 8 ロック解除ブロックモードは、次の訪問者を待たせて、非ブロックモードはエラーで返す事です。ただし、flockを使わないシステム等では、異常終了したりするらしい。ロック解除は、ＣＬＯＳＥ文で自動解除されるらしいです。ファイル書込でロックする場合は、オープン文は、読み書きモードにしてください。書込みモードでオープンすると、ファイルが最初に初期化されるらしいです。 (ファイル書込み時のロック） open (F,"+< xxx.txt"); 書込みモードだと、この時点でファイルを初期化するらしい。 flock(F,2); truncate(F,0); ファイルのサイズを０に変更するコマンドらしい。 seek(F,0,0); ファイルの読込位置、書込位置指定するコマンド。 3番目のパラがファイルの0:先頭 1:現在値 2:終わりからを表し 2番目のパラが何バイト移動するかを示す（マイナス値可能） flockしている間にだれかがファイルに書き込んだ可能性もある　　　　　　　　　　　　ため、seek関数をいれるらしい。 print F "データ"; close(F); これで、いいのだけど、同じ書込みの意味で、少しだけ処理を早くするには、 open (F,"+< xxx.txt"); flock(F,2); seek(F,0,0); print F "データ"; truncate(F,tell(F)); 最後にファイルの大きさを書込んだ大きさに変更する。　　　　　　　　　　　tell命令は、読込書込位置を得るコマンドで、　　　　　　　　　　　ファイルのポインターみたいなもの。　　　　　　　　　　　この場合は、書込んだ位置を示している。 close(F); しかし、このプログラム内では、別のロック方法を使ってたりしますＷファイルの中身を表すときは、<IN>のように、<>でくくる。文字列分割 (split文、ファイル内説明） splitは、文字列の分割する命令です。 @xxx=split(/分割パターン/,分割元文字列,分割リミット) スラッシュ/でくくった文字列で、分割元文字列を分割します。分割リミットを指定するとその数だけ分割します。リミットを省略すると無限に分割します。分割パターンを省略すると、一つ以上の空白、タブ、改行で分割します。 @datasは、配列関数で、データ内の1行を一つの配列として編集しています。例）ファイルの中身が aaaaaa bbbbbb 333333 だったとき、$datas[0]=aaaaaa,$datas[1]=bbbbbb,$datas[2]=333333になります。このプログラムのカウンターファイルの中身は、 1022count=1 1021addr=訪問者アドレス 1021addr=訪問者アドレス 1022addr=訪問者アドレスになってます。で最初の1行目がcount=で区切ってあって、前の1022(9月22日）が日付、後ろの1がカウント数です。 2行目移項は、訪問者の訪問した日付＋"addr="+（訪問者アドレス）になってます。で下記で、"count="で区切って$logdayに最終訪問者日付を、 $countにカウント数を編集しています。 $logdayは、このプログラムでは、使ってませんが、訪問者ログを消す時等の条件にもつかえたりします。 count.txtの初期値は０でしたが、分割で、たぶん$countは最初の一回だけ、\n改行のみがはいってしまいます。でも、\nを次のコマンドで消して、カウントをプラスする時に勝ってに０と解釈するはずです。 $countから改行消去 [改行は計算で無しと考えるといらんステップかも] （文字列の変換の説明） Perlでは文字列の変更を簡単に？できるらしいです。例）$xx="abcdefg"だとすると、 $xx=~s/bc/BC/g; のコマンドで、bcをBCに変換し、$XX="aBCdefg"になります。マッチングはm/abc/;になります。これをそのまま書くと特殊変数$_に対して行います。定義した変数の場合は、~=をつかって、$XX=~m/abc/;とします。 $_は省略した時に使用されるらしいです。 $_は、結構使えますが、プログラムが分かりにくくなるような気がします。例えば、while(<>)なんかも、$_=<IN>;としておくと使えたりします。他にも、特殊変数があります。 $!は、実行中のコマンドのエラーナンバーとか、 $/は入力レコードのセパレータ（普通は改行）とか他にもいろいろ。よくわからないので、詳しくは書きません。 (文字列のマッチング） $xx =~m/abc/; は、$xxにabcが含まれていたら真、含まないなら偽を返します。（文字の置換） $xx =~s/bc/BC/g; (上に書いた通り）最後のgはオプションで全て置換するという意味です。他には、 i 　英字の大文字、小文字区別無し置換 e　　新しい文字列をperlの実行文と考え、実行した値を返します。 o 変換を一回だけ行います。 eの例　$xx="12:10:11"; $xx=~/([0-9][0-9]):([0-9][0-9]):([0-9][0-9])/$13600+$260+$3/e; とすると、$xxには、秒数がはいります。上記でわかるようにs/[A-Z]/A/gとするとA～Zの文字をAに変換もできます。ただし、s/[A-Z]/[a-z]/gとすると、$xx=ABCが[a-z][a-z][a-z}になるので使えません。 ([]は一文字をあらわします。) そこで別の置換trを使います。 $xx=~tr/A-Z/a-z/ とすると、大文字を小文字に変換できたりします。 trのオプションは、 tr/A-C/ZZ/c; ABC以外の文字をZZに変換する。 tr/A-Z/abc/d; A-Zはabcに変換し以外の文字は、削除する。 tr/A-Z/ /cs: cと組合わせて大文字以外をスペース1個に変換。 (s は、置き換えの結果、同じ文字が連続したものを一文字にします。） $xx= $sky =~tr///; $skyの中の*の数を数えたりします。もし、同じ文字が何階も指定されていたら、最初の文字のみ有効例）tr/AAA/xyz/ は、Aをxに変換するだけです。
ＧＩＦカウンター専用プログラム部その１	説明
#コマンドパラメータ取込 @CmdLine=split(//,$ENV{'QUERY_STRING'}); #パラメータによる判定 if (@CmdLine[1] eq "+"){	コマンドパラメータ取込 (環境変数の説明）配列変数CmndLineに環境変数を分割取込しています。分割については上記「文字列分割」参照。分割する値が//なので一文字ずつ取込はず。 $ENV{'QUERY_STRING'}は環境変数です。 $ENVで始まるのが環境変数で、 'QUERY STRING'の部分が種類です。これは、ＨＴＭＬでコマンド実行時の "?"以降の文字列を表しています。その他の環境変数として、 HTTP_FORWARDED 要求したﾌﾟﾛｷｼｻｰﾊﾞｰの情報 HTTP_REFERER ﾌﾞﾗｳｻﾞで直前に参照したURL HTTP_USER_AGENT ﾌﾞﾗｳｻﾞ情報 PATH_INFO パス情報例「cgi-bin/xxx.cgi/iku/xxx.htm」でCGI を実行した時、「/iku/xxx.htm]が格納 REMOTE_ADDR ｸﾗｲｱﾝﾄのIP REMOTE_HOST ｸﾗｲｱﾝﾄのホスト名 REMOTE_IDENT ｸﾗｲｱﾝﾄのﾕｰｻﾞｰID REMOTE_USER ｸﾗｲｱﾝﾄのﾕｰｻﾞｰ名 REQUEST_METHOD METHODで指定したﾃﾞｰﾀ取得手段。GET,POST,HEAD,PUT,DELETE,LINK, UNLINK等 SCRIPT_NAME CGIスクリプト名 SERVER_NAME サーバー名 SERVER_PORT ｻｰﾊﾞｰもﾎﾟｰﾄ番号（80とか） SERVER_PROTOCOL ｻｰﾊﾞｰのﾌﾟﾛﾄｺﾙ名 (HTTP/1.0とか） SERVER_SOFTWARE ｻｰﾊﾞｰのソフトウエア名そのほかに AUTH_TYPE,CONTENT_LENGTH,CONTENT_TYPE, GATEWAY_INTERFACE,HTTP_ACCEPT PATH_TRANSLATED,HTTP_X_FORWARDED_FOR PATH があるらしい。パラメータによる判定上記で？以降のデータを取得して、 2番目のデータが+ならｶｳﾝﾄのﾌﾟﾗｽ、 count.txt更新を行います。なお、IFの閉じる}はズーート後にあります
プログラム共通部その２	説明部
#アクセスログの初期化 if ($#datas >= 500){@datas = ();} #訪問者アドレスの取得 $address = $ENV{'REMOTE_ADDR'}; #アドレスフラグ初期化 $addrflg = 0; #同一アドレス、同一日付チェック $linead="$mmyy"."addr=$address\n"; foreach $line (@datas){ if ($line eq $linead){ $addrflg = 1; last; } } #ロックファイルのロック・カウンターＵＰ・出力 if ($addrflg == 0){ open(LOC, $lockfile); for(;;){ flock(LOC,2) or last; $count++; $datas[0] = "$mmyy"."count=$count\n"; push(@datas,"$linead"); open(OUT,"+<$datafile") \|\| last; seek(OUT,0,0) \|\| last; print OUT @datas or last; truncate(OUT,tell(OUT)) \|\| last; close(OUT) \|\| last; last; } close(LOC); }	アクセスログの初期化もし、配列変数の最後の添え字が５００以上なら初期化しています。 $#は最後の添え字を表しています。　つまり、データ的には、501個で、１行目がカウント数で、後半でログ追加してるので 500人になって、その後一人来た時点で、データを消去しています。配列変数の初期化は、()を使います。ここで、$logdayと$dateを比較して、日付が変わったら、とか月が変わったら、初期化とかできます。訪問者アドレスの取得訪問者のIPアドレスを環境変数から取得しています。環境変数については、前述のgif画像カウンターの説明を参考してください。アドレスフラグ初期化後ほど、アドレスログを検索してカウンターのUPの条件となる、アドレスフラグの初期化 0なら、今日始めての訪問者　1なら今日２回以上の訪問者になります。同一アドレス、同一日付チェック (foreach文について) 比較用にアドレス部のデータを作り、$datasの各々の配列変数と比較し、同じなら、アドレスフラグに１をたてています。 foreach文は、配列変数を0番目から、順に無くなるまで、指定した変数（ここでは$line) とし、処理するコマンドです。注意しなければならないのは、下記でforeach内で$lineの内容を変更すると、 @datasの中身まで、変更されてしまうことです。つまり、$lineに値を編集しているわけではなく、$lineが変数そのものだということです。 foreach(1..10)とかってやると、foreach(1,2,3,4,5,6,7,8,9,10)と同じ意味になる。ロックファイルのロック・カウンターＵＰ・出力（forの無限ループ、push文,last;）（他の言語と一味違う論理演算子）アドレスフラグ＝０なら、カウンタープラスし、アドレス編集し、出力しています。ファイルの書込みについては、前述のファイル読込を参照してください。 flock文、seek文、truncate文も同様 push文は、配列変数の最後に配列を一つ加えるって言う意味です。 flock文で、出力ファイルではなく、別のファイル#lockfileを使用しているのは、出力ファイルを極力守るためです。LOCで排他をかければ、次の人は、LOCの書込み待ちをします。その間に、出力ファイル（count.txt)に出力するわけです。 flockを同時に訪問者がやった場合、壊れるのは、LOCでカウンターファイルには、被害がないかも。 for(;;)は、無限ループです。普通は、for($xx=1;$xx<=10;$xx++)のように初期値、実行条件、処理の順番に書きますが、全て省略すると、無限ループになるそうです。何故無限ループかっていうと、\|\|を使っているためです。 \|\|は、右の処理が偽なら、左の処理とかっていう意味らしいです。つまり、処理自体にも、真、偽をもっているらしいです。で、last;は、VBのbreak;と同じで、ループを抜けるって意味です。 goto文もあるらしいのですが、使わないほうが分かり安いので、この手法を使っています。 Perlの論理演算子（上が優先順位高い） $a && $b 　$aが偽なら、$a、そうでなければ、$b $a \|\| $b $aが真なら、$a、そうでなければ、$b ! $a $aが真でなければ真 $a and $b $aが偽なら、$a、そうでなければ、$b $a or $b $aが真なら、$a、そうでなければ、$b not $a $aが真でなければ真もっともよく使いそうなのは、\|\|で、コマンドを失敗した時に行う処理を左側にかくと、実行してくれるらしい。　ただし、下記の時、print文だと、\|\|は、何かと勘違いしているのか、　エラーになるので、orを使っている。　原因は不明だ。どうも、他のＨＰ見ると、or使ってるのが多いみたい。　上記は、もちろんif文や、while文で従来通りにも使える
ＧＩＦカウンター専用プログラム部その２	説明
#環境変数のﾊﾟﾗﾒｰﾀ"+"時の処理の終了 }	ＧＩＦカウンター専用プログラム１のＩＦ文の終了です。
プログラム共通部その３	説明部
&htmlout; #ロックファイルの削除 if (-e $lockdir){rmdir($lockdir);} #プログラム終了 exit; #------------メイン終わり------------------- #----- ロックディレクトリ用サブルーチン ----- sub lock { #　フラグ用ローカル(my)変数０（返り値） #（0ならロックディレクトリが作れない状態） #ローカルフラグの初期化 my ($flg) = 1; #１０秒間チェック $retry=10; while(!mkdir($lockdir,0755)){ if(--$retry<=0){$flg=0;last;} sleep(1); } #フラグの値を返します。 #（０が失敗、１が成功） #returnを省略すると最後の値が返り値 $flg; }	ＨＴＭＬ出力サブルーチンへ。ロックファイルの削除（ファイルの存在等をチェックする(-e),rmdir文） if文内の-eはファイル（ディレクトリ）が存在すれば真、存在しないなら偽を返します。ファイルのチェックにはその他に、 -r 読込可能であれば、 -w 書込み可能であれば -x 実行可能であれば、 -o 自分のものであれば、大文字にして、-R,-W,-Xは、実行ユーザーＩＤ，グループＩＤで可能であれば、 -O実行ユーザーＩＤのものであれば、 -z　サイズが0であれば、 -s サイズが0でなければ（ファイルサイズを返す） -f 通常ファイルであれば、 -d ディレクトリであれば、 -l シンボリックリンクであれば、　-p　名前つきパイプであれば、 -S　ソケットであれば、 -b　ブロック型スペシャルファイルであれば、 -c キャラクタ型スペシャルファイルであれば、 -u setuidビットが立っていれば、-g setgifビットが立っていれば、 -k skichyビットが立っていれば、 -t ファイルハンドルがtty　としてオープンされていれば、 -T テキストファイルなら、 -B バイナリファイルなら -M perl起動時のファイルの更新時刻からの日数。 -A perl起動時のファイルの参照時刻からの日数 -C perl起動時のファイルの作成時刻からの日数上記中盤のビットやらｽﾍﾟｼｬﾙﾌｧｲﾙやらは、よくわかりません。最後のperl起動時～等で、たとえば、 (-M $lockdir) * 86400 とすると、更新してからの秒を計算したり出来ます。 (86400=24時間60分60秒） rmdirはディレクトリの削除コマンド。成功時は１を返し、失敗時は、０を返す。もちろん、０の時は、$!(特殊変数エラー情報）を編集します。プログラム終了（exit(値）文） perlスクリプトを終了します。<BR> 値を終了コードとして返しますが、省略時、0が正常終了。それ以外が異常終了です。<BR> ロックディレクトリ用サブルーチン (サブルーチン説明(sub文）特殊変数@_　return） sub xxxx{処理}でサブルーチンを定義できます。 (xxxxがサブルーチン名）呼び出すときは、&xxxx; です。変数の受け渡しですが、&xxxx(3,5,6); とすると、特殊変数@_に配列変数として、 $_[0]=3,$_[1]=5,$_[2]=6になります。 @_は、コマンド毎に変更されたりしますので、 sub内の一番最初にローカル変数（次の説明参照）等に、編集しましょう。例） sub xxxx { local(@para) = @_; （省略） } ダメな例） sub xxxx { local(@para); local(@aaa); ここで@_の値が変わったりして。 @para= @_ 複数の配列変数を渡すときは、参照渡しが便利らしい。「名前」が参照渡し例） sub xxxx { local(list1, list2) = @_; print "[ @list1 ] [ @list2 ]\n"; } @xx = (1, 2, 3); @yy = (4, 5, 6); &xxxx(xx, *yy); 返り値はreturn（値）;ですが returnを書かないと、最後の値になります。左記ステップ最後参照。ローカルフラグの初期化（変数の扱いの種類について my文local文）変数には、グローバル変数。ローカル変数があります。 perlでは、普通に定義すると、グローバル変数（何処でも使える変数）になります。ローカル変数を定義するには、 local ($xxx);と my ($xxx)があります。 myは、定義したサブルーチン内だけでしか使えない。かつ、定義したサブルーチンから他のサブルーチンに飛んだ場合、飛んだ先でもつかえません。 localは、そのサブルーチン内だけですが、定義したサブルーチンから飛んだ先のサブリーチンでも使えます。１０秒チェック（while文,mkdir文sleep文） while(条件）{処理}は条件を満たす間処理を行います。 mkdir関数は、ディレクトリ作成コマンドです。 mkdir(lock2,0755)の0755の755はモードです。（モードについては「サーバー登録時に行う事」参照。成功は１、失敗は０を返す。 sleep(1）は1秒待つだけです。返り値サブルーチン終了。
ＧＩＦカウンター専用プログラム部その３	説明
# ------- ＧＩＦ用画像表示ルーチン ------ sub htmlout{ #カウンター変数画像取得 $figure=length($count); if ($CmdLine[0] gt $figure){ $GIF_Name="0.gif"; } else{ $GIF_Name=substr($count,$CmdLine[0]*-1,1); $GIF_Name.=".gif"; } #画像出力 print "Content-type: image/gif\n\n"; open(fp,"$GIF_Name"); flock(fp,1); while(<fp>){ print; } close(fp); } #エラーサブルーチン[ＧＩＦ画像用] sub error { if (-e $lockdir){rmdir($lockdir);} exit; }	ＧＩＦ用画像表示ルーチンカウンター変数画像取得（length文,substr文,について） lengthは文字の長さを求めます。 substr(文字列、位置、長さ）で、文字列のうち、位置番目から、長さ分文字をとってくる。位置は、0番目から始まる。 substr(文字列、位置）長さを省略すると、残りの全てを返す。位置がマイナスだと、後ろからのバイト数を表すらしい。 @CmdLine[0]には、カウンターの内何番目の文字をＧＩＦ画像で表示するかのパラメータ文字が入っていて、それが、CONTの文字数より大きければ"0.gif"という文字列を #GIF_Nameに編集している。画像出力 (Content-typeについて） $GIF_Nameの値の画像を出力している。画像をデータと考えて、画像ファイルを読み込み、読み込んだデータをprint分で出力しているだけです。 Content-type: image/gifは出力する形式をヘッダ部として指定して、出力しています。これ以外によく使う形式は、 text/html HTML文書（テキストカウンターで使用） text/plain　べた文書 image/jpeg　ＪＰＥＧファイル video/mpeg　ＭＰＥＧファイルエラーサブルーチン[ＧＩＦ画像用] (排他ディレクトリを強制的に消去してperlｽｸﾘﾌﾟﾄ終了。）
テキストカウンター専用プログラム部	説明
#------テキストカウンター用表示ルーチン------ sub htmlout{ #(カウンターの桁数設定) $figure=length($count); $ketasuu=5; #カウンターテキスト部作成 while($figure<$ketasuu){ $count="0".$count; $figure++; } #スタイルシート設定出力 #（$countを元に画面表示する。） print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD>\n"; print "<TITLE>COUNTER</TITLE>\n"; print "</HEAD>\n"; print "<BODY bgcolor=pink>\n"; print "<FONT color=black size=+4>"; print "<DIV style=\"color:#00ff99;\n"; print " border-style:none;\n"; print " background-color:transparent;\n"; print " height:auto;\n"; print " font-size:40pt;\n"; print " width:100%;\n"; print " filter:Glow(color=blue) DropShadow(color=green);\n"; print " font-weight:bold;\">\n"; print "<CENTER>$count</CENTER></DIV></FONT>\n"; print "</BODY>\n"; print "</HTML>\n"; } #エラーサブルーチン[テキスト用] sub error { if (-e $lockdir){rmdir($lockdir);} $count ="?????"; &htmlout; exit; }	テキストカウンター用表示ルーチンカウンターテキスト部作成まあ、表示する桁数分に変更してるだけ。 "0".$countで$countに０をくつけて桁数にしている。表示予定の桁数を超えたら、自動的に桁数が上がったりするＷスタイルシート設定出力ＨＴＭＬ文書として、カウンターを表示しているだけです。いろんな文字にして楽しんでください。本当はスタイルシートについても書こうかと思ったけど、めんどいのでパスします。注意してほしいのは、フレームで使うときはいいのですが、ＩＦＲＡＭ文で使う場合は、BODY部のbgcolorに注意してください。（透過する方法がないかと少しだけ試したのですが、ダメでした。）ネスケでは、スタイルシートが使えないので、（一部使えるって噂もあるけど、どれかわからん） <font color=????? size=?? >とかを変更してください。エラーサブルーチン[テキスト用] 排他ディレクトリのロックがなんらかの原因で、かかりっぱなしになった場合？？？？？が出るようにしています。何度、ＨＴＭＬ画面を開いても？？？？？が出るなら、 lock2の中のcntlockディレクトリを手動で削除するなりして、対応してください。