thaiall logomy background
coding : regist. evalsave.pl.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : evalsave.pl. ID : 0708
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
#!/usr/bin/perl
require 'parse.pl';
&parse_form;
$mainf="evalresult.txt";
print "Content-type: text/html\n\n";
print "<html><body bgcolor=#fffffd>";
print "แบบประเมิน : รหัส $v{'id'} วิชา ",substr($v{'subj'},0,6);
print " ตอนที่ ",substr($v{'subj'},6,2),"<br>";
if ($v{'q11'} eq "0") { $ok="Error"; print "ท่านไม่ได้ตอบคำถามที่ 1<br>"; }
if ($v{'q12'} eq "0") { $ok="Error"; print "ท่านไม่ได้ตอบคำถามที่ 2<br>"; }
if ($v{'q13'} eq "0") { $ok="Error"; print "ท่านไม่ได้ตอบคำถามที่ 3<br>"; }
if ($ok ne "Error") {
  open(STDIN,$mainf); 	
  @ar = <STDIN>;
  close(STDIN);
  foreach $r(@ar)	{  
    @rg = split (',',$r);    
    if ($rg[0] eq $v{'id'} and $rg[1] eq $v{'subj'}) { $ok='found'; }
  }   			
} 
if ($ok eq "found") { 
  print "<hr>วิชานี้ถูกประเมินไปแล้ว"; 
} else {
  $v{'qopen'} =~ s/,/./g;
  open (keepf,">>$mainf");
  print keepf "$v{'id'},$v{'subj'},$v{'q11'},$v{'q12'},$v{'q13'},$v{'qopen'}\n";  
  close(keepf); 
  print "<hr>การประเมินวิชานี้ เสร็จสิ้นสมบูรณ์";		
}
print "</body></html>";
จำนวน : 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