|
#!/usr/bin/perl require 'parse.pl'; &parse_form; print "Content-type:text/html\n\n"; if (length($v{'keyword'}) < "3") { &breakerror('Keyword ไม่เหมาะสม โปรดกรอกใหม่'); } $filename = "."; opendir(flist,"$filename"); @allf = readdir flist; closedir(flist); @allf = sort @allf; for $i (0 .. @allf) { if (length($allf[$i]) eq "17") { open(myfile,"$allf[$i]"); @getrec = <myfile>; close(myfile); $found = 0; $v{'keyword'} = lc $v{'keyword'}; foreach $r(@getrec) { if(lc $r =~ /(.*)$v{'keyword'}(.*)/) { $found = 1; } } if ($found eq "1") { push @ar,$getrec[0]; } } } @ar = reverse sort @ar; $tot = @ar-1; print'ผลการสืบค้น ใน Board<ol>'; for $i (0..$tot) { @rec = split (/:/,$ar[$i]); print "<li><a href=boardread.pl?id=$rec[0]>$rec[1]</a> "; print "<font color=#808080>$rec[2]</font>"; } print'</ol>'; |