thaiall logomy background
coding : beginat. menu.pl.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : menu.pl. ID : 1104
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
#!/usr/local/bin/perl
&getcookie;
print "Content-type: text/html\n\n";
print"<body><form action=setdefault.pl method=post>";
print"<select name=begin>";
print"<option value=thaiall.com ";
if ($v{'begin'} eq "thaiall.com") {print "selected";}
print">thaiall.com<option value=thainame.net ";
if ($v{'begin'} eq "thainame.net") {print "selected";}
print">thainame.net<option value=thaiabc.com $c";
if ($v{'begin'} eq "thaiabc.com") {print "selected";}
print">thaiabc.com</select>";
print'<input type=submit value="Save as default"></form>';

sub getcookie {
  use CGI qw/:standard/;
  use CGI::Cookie;
  %Cookies = fetch CGI::Cookie;
  foreach $r (keys %Cookies) {
    @rec = split(";",$Cookies{$r});
    ($name,$value) = split("=",$rec[0]);
    $v{$name} = $value;
  }
}
จำนวน : 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