Counter คือ โปรแกรมเล็ก ๆ ที่ใช้ในการนับจำนวน Page View หรือ นับจำนวนผู้เข้าเยี่ยมชมเว็บเพจของเรา ในบทความนี้เราจะนำเสนอการสร้าง Counter ด้วยวิธีง่าย ๆ โดยใช้การเก็บข้อมูลในรูปแบบของ Text File

การสร้าง Counter แบบง่าย ๆ กับ Perl

#!/usr/bin/perl
# Easy Counter by dwthai.com
print "Content-type:text/html\n\n";
if(-e ("counter.txt")){
# ใช้ -e เพื่อตรวจสอบว่ามีไฟล์ข้อมูลอยู่หรือไม่ หากมีจะทำการอ่านค่าและบวกค่านับเพิ่มลงไป
open(COUNT,"counter.txt"); #เปิดไฟล์เพื่ออ่านอย่างเดียว
flock(COUNT,2);
$data=<COUNT>;  #อ่านค่าจากไฟล์มาเก็บไว้ที่ตัวแปล $data
flock(COUNT,8);
close(COUNT);
$data++;  #ทำการบวกค่าเพิ่มจากข้อมูลเดิม
open(COUNT,">counter.txt"); #เปิดไฟล์เพื่อทำการจัดเก็บข้อมูลในโหมดเขียนทับ
flock(COUNT,2);
print COUNT $data; #จัดเก็บข้อมูลใหม่ลงสู่ไฟล์
flock(COUNT,8);
close(COUNT);
print "ผู้เยี่ยมชมคนที่ : ".sprintf("%05d",$data);
# ทำการแสดงผลและทำการจัดค่าการแสดงผลเป็นเลข 5 หลัก (ใช้ sprintf())
}else{
#หากยังไม่มีไฟล์ข้อมูลให้ทำการสร้างไฟล์นั้นขึ้น โดยกำหนดค่าเริ่มต้นการนับไว้ที่ 1
$data=1;
open(COUNT,">counter.txt");
flock(COUNT,2);
print COUNT $data;
flock(COUNT,8);
close(COUNT);
print "ผู้เยี่ยมชมคนที่ : ".sprintf("%05d",$data);
# ทำการแสดงผลและทำการจัดค่าการแสดงผลเป็นเลข 5 หลัก (ใช้ sprintf())
}