上にカウンターを表示しています．
このカウンターは９９９９までカウントできます。
ブラウザの更新ボタンを押してみてください、カウンター値が上がっていきます。

#!/usr/bin/perl
require 'gifcat.pl'; 使用するサブルーチンの格納されているファイルを宣言
open(IN,"<n_cnt.dat") || &error; n_cnt.datはカウンタ値保存用ファイル
$cnt = <IN>; カウンタ値の読込み
close(IN); ファイルのクローズ
$cnt++; カウンタ値を１ＵＰ
if($cnt >= 10000) {$cnt = 0;} カウンタ値が10000以上であれば0にする
open(OUT,">n_cnt.dat") || &error; n_cnt.datを書込みオープン
print OUT $cnt; カウンタ値の書込み
close(OUT);
$k1000 = int($cnt / 1000); 1000のケタを計算
$cnt -= $k1000 * 1000;
$k100 = int($cnt / 100); 100のケタを計算
$cnt -= $k100 * 100;
$k10 = int($cnt / 10); 10のケタを計算
$k1 = $cnt - $k10 * 10; 1のケタを計算
print "Content-type: image/gif\n\n"; gifデータを送ることをブラウザへ通知
print &gifcat'gifcat("c1_$k1000.gif","c1_$k100.gif","c1_$k10.gif","c1_$k1.gif"); カウンター用gifファイルを合成して出力
exit; ここでプログラム終了
sub error {
    #エラー処理を書く 本来エラー処理を記述
    exit;
}

戻る