From canada@kt.rim.or.jp Tue Mar 24 19:27:25 1998
Path: kt.rim.or.jp!t3.rim.or.jp!rim.or.jp!Q.T.Honey!netaidnews!news6-tokyonet!tokyonet.ad.jp!feed-tokyonet!bnn-news!usenet
From: canada@tt.rim.or.jpp (Masakatz Canada)
Newsgroups: fj.lang.perl
Subject: Re: access counter
Date: 24 Jan 1998 08:43:09 GMT
Organization: BNN Internet
Lines: 29
Message-ID: <6ac9it$jno@mega.bnn-net.or.jp>
References: <01bd2858$905eb1c0$e1579bd2@marron>
NNTP-Posting-Host: user51-34.bnn-net.or.jp
Mime-Version: 1.0
Content-Type: Text/Plain; charset=ISO-2022-JP
X-Newsreader: WinVN 0.99.7J PL01 (x86 32bit)
Xref: kt.rim.or.jp fj.lang.perl:2835

In article <01bd2858$905eb1c0$e1579bd2@marron>, marron@princess.club.or.jp says.
..
>こんにちわ。まろんです。

はじめまして。かなだです。

>perlで、GIFによるアクセスカウンターって出来るのでしょうか？？
>よく、Cとかで出来るのを知ってますが、perlだと可能なのでしょうか？？
>ただし、「fly」は使用しないとします。

GD.pm(http://www-genome.wi.mit.edu/ftp/pub/software/WWW/GD.html)
を使うという方法がありますが、GD.pmもflyと同じ
gd(graphics library)(http://www.boutell.com/gd/gd.html)を使います。
ただし、flyを使うよりはエレガントに記述できると思います。
＃UNIXUSER２月号に方法が載ってます(汗)

Perlで全て書きたいというのなら、

http://www2e.meshnet.or.jp/~s-hasei/wwwgif.htm

ここなんかが参考になると思います。数字のGIFファイルを10枚用意して
おいて、例えば「１２３４」なら４桁分の広さを表すGIFヘッダを出力、
そのあとに1,2,3,4それぞれのGIFのブロック部分（GIFヘッダとtrailarを
除いた部分）を、オフセットを変えながら出力、最後にtrailarを出力すれ
ば見かけは１枚のGIFファイルが出来上がります。アニメーションGIFも
同様の方法で作れるはずです。

かなだまさかつ
canada@tt.rim.or.jpp^H