-------------------------------------------------------------------------------
#!/usr/local/bin/perl
# Gif images should be named as 0.gif, 1.gif, ..., 9.gif
#
# Permission is granted to copy and redistribute this program if this notice
# remains intact.
#
# Written by inomoto@in.aitech.ac.jp 12 Feb. 1997
# based on the "Matt's cgi counter" at http://www.worldwidemart.com/
#
# If you find "&" preceded "lt" or "gt",
# replace these three letters by "<" or ">" respectively.
$| = 1;
$image = "directory of gif images";
$count = "directory and file name of count data";
# Get counter number and increment it
open(COUNT,"$count") || die "Can't open count data file for Reading: $!\n";
$c = <COUNT> ;
close(COUNT);
if ($count =~ /\n$/) {
chop($c);
}
$c++;
open(COUNT,">$count") || die "Can't open count data file for Writing: $!\n";
print COUNT "$c";
close(COUNT);
# Determine counter width
$num = $length = length($c);
# Set Individual Counter Numbers Into Associative Array
while ($num > 0) {
$CHAR{$num} = chop($c);
$num--;
}
# Output gif images to Web server
$j = 1;
print "<img src=$image/0.gif>";
print "<img src=$image/0.gif>";
while ($j <= $length) {
print "<img src=$image/$CHAR{$j}\.gif>";
$j++;
}
-------------------------------------------------------------------------------