1. วิธีการส่วนใหญ่ เหมือนกับ การเขียน counter อย่างง่ายที่สุด แต่แตกต่างกันที่ การแสดงผลเป็นภาพเท่านั้น
2. วิธีทำ counter แบบนี้ใช้แฟ้ม 4 แฟ้ม คือโปรแกรมนับ plcnt02p.pl แฟ้มเก็บเลขสุดท้าย plcnt01d.dat โปรแกรมล้างค่าเดิม plcnt01c.pl และหน้าเว็บที่ต้องการนับ เช่น plcnt02.htm หรือหน้านี้นั่นเอง
3. สังเกตุได้ว่า โปรแกรมล้างค่าเดิม และแฟ้มเก็บเลขสุดท้าย ผมยังใช้จาก บทเรียน การเขียน counter อย่างง่ายที่สุด
4. ทั้งสี่แฟ้มให้อยู่ ในห้องเดียวกัน ตัวอย่างนี้ให้อยู่ในห้อง perl แต่การใช้งานจริง จะขึ้นอยู่กับผู้เขียนในการจัดสรร
5. ห้อง perl ควรกำหนดสิทธิไว้เป็น chmod 777 perl จะได้ไม่มีปัญหากวนใจภายหลัง เรื่อง update แล้วไม่เกิดผล ซึ่งผมเจอปัญหานี้บ่อยมาก
6. แฟ้ม plcnt01d.dat ใช้เก็บเลขสุดท้าย และเป็นแฟ้มที่ไม่ต้องสร้างขึ้น แต่โปรแกรม plcnt01p.pl จะสร้างให้ ถ้ายังไม่ถูกสร้างในครั้งแรก
7. ผลการนับจะเป็นภาพ ไม่ใช่ตัวอักษร นะครับ ถ้าเป็นตัวอักษรจะอยู่ในบทก่อนหน้านี้
8. ในตัวอย่างนี้การอ้างอิงภาพจะอ้างจากห้อง /num เพราะเก็บภาพตัวเลขทั้งหมดในห้องนั้น

<!--#exec cgi="/perl/plcnt02p.pl"-->

copy โปรแกรมข้างล่างนี้ไปใส่ใน notepad แล้ว save ในชื่อ plcnt01p.pl
#!/usr/local/bin/perl
$filename = join '',"/data1/hm/thaiall.com","/perl/plcnt01d.dat";
# read last value
open(fn,"$filename");
$cntlast = <fn>;
close(fn);
$cntlast++;
# update plcnt01d.dat
unlink("$filename");
open(fn,">$filename");
print fn $cntlast;
close(fn);
# print on webpage
print "Content-type: text/html\n\n";
$lencnt = length($cntlast);
print "<img src=/num/naa.gif>";
for $i (0 .. $lencnt-1) {
print "<img src=/num/na",substr($cntlast,$i,1),".gif>";
}
print "<img src=/num/nab.gif>";

copy โปรแกรมข้างล่างนี้ไปใส่ใน notepad แล้ว save ในชื่อ plcnt01c.pl
#!/usr/local/bin/perl
$filename = join '',"/data1/hm/thaiall.com","/perl/plcnt01d.dat";
unlink("$filename");
print"Content-type:text/html\n\n";
print"clear ok";

ให้ทำตามโจทย์ต่อไปนี้
1. ให้ทำ counter เหมือนตัวอย่างเลยนะครับ
2. ให้ปรับปรุงไปใช้กับหน้าเว็บที่ท่านต้องการ
3. ให้ใช้ photoshop สร้างตัวเลขใหม่ และนำไปใช้ในหน้าเว็บของท่าน