thaiall logomy background
coding : board. boardsearch.pl.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : boardsearch.pl. ID : 0806
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
#!/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>';
จำนวน : 30 บรรทัด
าษาเฮชทีเอ็มแอล (HTML = HyperText Markup Language) คือ ภาษาคอมพิวเตอร์ที่ออกแบบมาเพื่อใช้ในการสร้างเว็บเพจที่เรียกดูผ่านทางเว็บเบราว์เซอร์ (Web Browser) เริ่มพัฒนาโดย ทิม เบอร์เนอรส์ ลี (Tim Berners Lee) ในปัจจุบัน HTML ล่าสุดคือ รุ่น 5 เป็นมาตรฐานหนึ่งของ ISO ซึ่งจัดการโดย World Wide Web Consortium (W3C) ในปัจจุบัน ทาง W3C ผลักดัน รูปแบบของ HTML แบบใหม่ ที่เรียกว่า XHTML รุ่นแรกคือ 1.0 (ม.ค.2543) ซึ่งมีโครงสร้างเป็นแบบ XML (eXtensible Markup Language)
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com