ผู้สอบผ่านประโยคบาลี ๒๕๔๙

#!/usr/bin/perl require "util41-47.cgi"; use CGI; $obj = new CGI; $keysearch = $obj->param( keysearch); $type = $obj->param( type); if ( $keysearch eq "" || $type eq "") { &makeFormInput; exit; } $typename = ( $type eq "name") ? "ชื่อ" : ( $type eq "lname") ? "นามสกุล" : "วัด"; open( PALI, "$file") || &weberror( "Can not open $file for read [$!]\n"); flock( PALI, 2); @allline = ; flock( PALI, 8); close( PALI); print "Content-type: text/html\n\n"; print qq( ผู้สอบผ่านประโยคบาลี ๒๕๔๙

หน้าแรก

ประกาศผลสอบบาลีสนามหลวงประจำปี ๔๑-๔๗

รายชื่อผู้สอบได้ประโยคบาลีสนามหลวง ประโยค ๑-๒ ถึง ป.ธ. ๙

ผลการค้นหา "$keysearch" มีรายละเอียดดังนี้

); $count = 0; foreach $line ( @allline) { $match = 0; ( $name, $mname, $lname, $age, $odage, $rsname, $scname, $id,$class,$year,$code) = split( "\t", $line); $match = 1 if ( $type eq "name" && $name =~ /$keysearch/); $match = 1 if ( $type eq "lname" && $lname =~ /$keysearch/); $match = 1 if ( $type eq "rsname" && $rsname =~ /$keysearch/); $match = 1 if ( $type eq "class" && $class =~ /$keysearch/); $match = 1 if ( $type eq "scname" && $scname =~ /$keysearch/); if ( $match) { $count ++; print qq( ); } } print qq(

ที่	ชื่อ	ฉายา	นามสกุล	อายุ	พรรษา	วัด	สำนักเรียน	เลขที่	ชั้น	พ.ศ.
$count.	$name	$mname	$lname	$age	$odage	$rsname	$scname	$id	$class	$year

); sub makeFormInput { print "Content-type: text/html\n\n"; print qq( ค้นหารายชื่อผู้สอบประโยคบาลีสนามหลวงได้ปี ๔๑-๔๗

ค้นหารายชื่อผู้สอบประโยคบาลีสนามหลวงได้ปี ๔๑-๔๗

การค้นหา วัด ชื่อวัดให้พิมพ์เฉพาะชื่อเท่านั้นไม่มีคำว่าวัด เช่น วัดปากน้ำ ต้องพิมพ์ ปากน้ำ
การค้นหา ประโยค เช่น ประโยค ป.ธ. 3-9 ต้องพิมพ์ ป.ธ.9 ( หรือ 3,4,5,6,7,8 ),ประโยค 1-2 ให้พิมพ์ ป.1-2
สำนักเรียน/คณะจังหวัด ให้พิมพ์ชื่อวัด เช่น วัดชนะสงคราม ส่วนจังหวัดพิมพ์เฉพาะชื่อจังหวัด เช่น นนทบุรี