.:: ค้นหาในเวบนี้ ::.

#!/usr/local/bin/perl ################################## # Program Searchengine # # Program by Nattakorn Prasansin # # E-mail : natty@joymail.com # ################################## &formhtml; print "Content-type:text/html\n\n"; print ""; print ""; print ".:: ค้นหาในเวบนี้ ::."; print ""; print ""; print "\n"; print "\n"; print " "; print " \n"; print " "; print "

บ้านหนองคาย search : \n"; print "

"; print ""; print ".:: เวบที่ค้นหาเจอ ::.
"; print "คำที่ต้องการคันหา : $field{'Keyw'}
\n"; $apass=0; $bpass=0; $cpass=0; $mpass=0; $found =0; $i=0; $l=0; ############ ไฟล์ database ################### open (datafile ,"data.txt"); @data=; close(datafile); $key = $field{'Keyw'}; @line = split(//,$key); &leng; foreach $dat (@data) { $apass=0; $bpass=0; $cpass=0; ($url,$title,$det) = split(/##/,$dat); $i=0; @titl = split(//,$title); foreach $tle (@titl){ if ((uc $tle) eq (uc @line[$i])) { $apass++; $i++;} } $i=0; @deti = split(//,$det); foreach $de (@deti){ if ((uc $de) eq (uc @line[$i])) { $cpass++; $i++;} } if ((($apass eq $len) || ($cpass eq$len)) && ($len >0)){ @furl[$l+1]=$url; @ftit[$l+1]=$title; @fdet[$l+1]=$det; $l++; } } print "ค้นเจอ : $l
\n"; if ($l <= 0) { print "

ค้นหาคำที่คุณต้องการไม่เจอครับ.

"; } $stt = $field{'ppg'}*($field{'page'}-1)+1; if (($l - $stt) < $field{'ppg'}) { $edd = $l; }else { $edd = $field{'ppg'}*($field{'page'}-1)+$field{'ppg'};} for($lp=$stt; $lp <= $edd; $lp++) { print "

@ftit[$lp]
\n"; print "@fdet[$lp]

\n"; } print "
"; if (($l > $edd) || ($field{'page'} > 1)) { $i=1; for($pg=1; $pg <= $l; $pg=$pg+$field{'ppg'}) { if ($i eq 1) { print "[ "; } else { print "| "; } if ($i eq $field{'page'}) { print "page $i "; }else{ print "page $i "; } $i++; } print "]"; } print "

"; print "Nongkhai home for boy Search
\n"; print "none-copyright(c) tar_eng"; sub leng { $len=0; @line = split(//,$key); foreach $ln (@line){ $len++; } } sub formhtml { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @pairs = split(/&/,$buffer); foreach $pair (@pairs){ ($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $value =~ s/~!/~!/g; $field{$name}=$value; } @querys = split(/&/, $ENV{'QUERY_STRING'}); foreach $query (@querys) { ($name, $value) = split(/=/, $query); $field{$name} = $value; } }