新規記事投稿

フォロー記事投稿

記事のキャンセル

お世話になっています。三葉工房です。

　今日まで，アクセスカウンタの製作に取りかかって来ました。

実は，私のperlスクリプト製作の今回の最終地点は，バナー一体型アクセス
カウンタです。

　それは，画像を連結させ，
<img src="****.cgi">と言うタグで出力する技術が必要です。
ちなみににあ様のアクセスカウンタも画像一体型カウンタですが，ダウンロード
して解凍いたしました所，C言語で記述されていた様です。こないだの「うぇぶ
会議室」は，ようやく解凍出来ました。日本版のエクスパンダーでなければ，
開けない様です。
　残念ながら，うちのサーバーでC言語のスクリプトは，不可です。

ですから，perlでそれを実行させてます。
いろいろと，その画像一体型アクセスカウンタのスクリプトを探し回った所，


 T's CGI-BIN Tools - TcounT Ver.4.XX
からgif-cat.plと言うGIFファイル連結ライブラリをコピーで，手にする事が出来，それ
を自分で記述したスクリプトと併用すれば，簡単に画像一体型アクセスカウンタの実行が出来ます。
そして，ログファイルも作成しました。

その，アクセスカウンタのスクリプトは，cgi-libと gif-cat.plとそして，自分で
作成したライブラリで動いています。ライブラリの末尾に1;がなければエラーにされ
てしまうのですね。面白い事に，そのスクリプト内に3つ程のサブルーチンが記述され
ていまして，その実行記号(&サブルーチン名;)をスクリプト本体に記述せず例の手作り
のライブラリに記述されていてそのライブラリを呼んで，実行記号も読み取って本体の
サブルーチンを実行してしまうプログラムです。

本題に戻ります。実は，そのログファイルの件ですが，そのログのページを見て頂ければ
分かると思いますが，日別カウントの 2月27日のカウントが有りません。スクリプトが実行されない(訪問無し)日のカウントは書かれません。つまり，日が変わると日別カウント
のファイルに新たな日付けの行が追加され，その日(今日)のカウントが実行の度に増えて
行く方式です。ですから，実行の無い日のカウントは記録されないのです。その
実行の無い日のカウントも0でファイルに記録する方法ですが，それには，日付の引き算
が出来る事が必要になると思います。よく表計算では，dateと言う関数でA年月日からB年月日までは，どれくらいの日数があるかを計算出来ます。しかしperlでは，どうやらdate
と言う関数は無いようです。localtimeでは，実行した時の時間情報しか手に出来ません。ところで，その様にperlにてA年月日からB年月日までどれくらいの日数があるかと
言う計算はどのように行うのでしょうか。
ちなみにそのログのページは下記からリンク出来ます。


 ログファイル

次に，バナー一体式アクセスカウンタの作り方の件ですが，よく上がアクセスカウンタ
で下がバナーというカウンタとバナーが一体になっているのを見かけますよね。
それを作りたいのです。そのスクリプトは何処にも公開されていません。
ですが，画像連結プログラムを理解して，イメージマップも理解すれば夢では無いと思います。
先程のgif-cat.plの内容を読んだところ処理が数多く書かれていまして，どうやらGIF
を連結するプログラムの技術は大変らしいです。
　ですが，その話しは別にしてperlプログラムで，GIFファイルを連結して，一体化
されたGIFを作成するには，どの様に行うのでしょうか。

後，アクセスカウンタの貼られている掲示板は，こないだ悪質ないたずらがあった様な
ので，スクリプト名を変更してアクセス出来ない様にして公開出来ない事をお詫び申し上げます。



御忙しい所，度々すみませんが，どうか御回答宜しくお願いします。