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

<!--#exec cgi="/perl/plcnt01p.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";
print $cntlast;

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. ให้ปรับปรุงไปใช้กับหน้าเว็บที่ท่านต้องการ