thaiall logomy background
coding : regist. registnew.pl.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : registnew.pl. ID : 0712
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
#!/usr/bin/perl
require 'parse.pl';
&parse_form;
print "Content-type:text/html\n\n";   
$filename="regist.txt";
open(myfile,"$filename");
@rm = <myfile>;
close(myfile);
foreach $r (@rm) {
  @rec = split(/,/,$r);
  if ($rec[2] eq $v{'id'}) { $found = 1; }
}
if ($found eq "1") {
  print "Already in database, error.";
} else {
  open(myfile,">>$filename");
  print myfile "$v{'ryear'},$v{'sem'},$v{'id'},";  
  foreach $k (keys %v) {    
    if ($v{$k} eq "on") { print myfile "$k,"; }
  }
  print myfile "\n";
  close(myfile);
  print "Add new record ok";
}
จำนวน : 24 บรรทัด
าษาเฮชทีเอ็มแอล (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