คำหยาบคาย คือ คำที่ไม่เหมาะสม ที่อาจจะมีผู้ไม่ประสงค์ดี หรือมีพวกที่มีเจตนาอย่างอื่นเข้ามารบกวนภายในเว็บโปรแกรมของเรา เช่น โปรแกรม Webboard เป็นต้น หากเรานำเอาคำเหล่านั้นขึ้นแสดงบนหน้า webpage ของเราคงไม่ดีแน่ ในบทความนี้เราจะมาเรียนรู้การเขียนโปรแกรมแบบง่าย ๆ สำหรับใช้ในการกรอรคำหยาบ หรือทำการเซ็นเซอร์ก่อนการนำขึ้นแสดงบนหน้าเว็บเพจ

การเขียนโปรแกรมสำหรับกรองคำหยาบคาย

:: Example ::

#!/usr/bin/perl

# ข้อความที่ใช้่ในการทดสอบ ตรงนี้อาจจะได้มาจากการรับค่าจากแบบ Form ของโปรแกรมเราก็ได้
$string='เฮ้ย..ไอ้ขุนไกร เหตุอันใดมึงไม่ต้อนควายเข้าค่าย !!';

# เก็บคำหยาบคายต่าง ๆ ลงเก็บไว้ที่ ตัวแปร Array
@word=('กู','มึง','ไอ้','อี','ควาย');

# ทำการวนรอบเท่ากับจำนวนขนาดของ Array ที่เก็บคำหยาบ
foreach $xx (@word) { 

# ทำการค้นหาคำหยาบที่เรากำหนดไว้
# หากพบคำหยาบที่ตำแหน่งใดของข้อความ ให้ทำการแทนที่คำนั้นลงไปด้วยสัญลักษณ์ที่รากำหนด
#ในที่นี้ี้ใช้เครื่องหมาย ++ แทนที่ลงไปแทบคำหยาบที่ค้นพบ
$string=~s/$xx/++/gi;

}

print "Content-type:text/html\n\n";
print $string; # แสดงผล

ps. ขออภัยที่ต้องมีคำหยาบคายปรากฏในบทความ ทั้งนี้...เพื่อประกอบคำอธิบาย.