thaiall logomy background
coding : board. boardread.pl.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : boardread.pl. ID : 0807
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
#!/usr/bin/perl
require 'parse.pl';
&parse_form;
print "Content-type:text/html\n\n"; 
if (!$v{'id'}) { &breakerror('ข้อมูลผิดพลาด โปรดกลับไปตรวจสอบ'); }
$filename = join '.',$v{'id'},'txt';
open(myfile,$filename);
@r = <myfile>;
close(myfile);      
$r[0] =~ s/</&lt;/g; 
$r[0] =~ s/>/&gt;/g; 
@rec = split (/:/,$r[0]);
print "<font color=#808080>$rec[2] IP:$rec[5] ";          
if ($rec[4] eq "on") { print " [ans]"; }
@stat = stat $filename;
@t = localtime($stat[10]+50000);
print "Size:$stat[7] Byte Create: $t[3]/",$t[4]+1,"/",$t[5]+2443;
print " Time: $t[2]:$t[1]:$t[2]</font>";
if ($rec[3] > "0") { 
 print "<img src=http://online.mirabilis.com/scripts/online.dll?icq=$rec[3]&img=5>"; 
}	
print "<br>Subject : $rec[1] <hr noshade color=#0000ff>";
$tot = @r;
for $i (1..$tot-1) { print $r[$i],"<br>"; }
print "<hr>";
print "<form action=boardreply.pl method=post>ตอบกะทู้ใหม่<br>";
print "<input type=hidden name=idstart value=$rec[0]>";
print "หัวเรื่อง <input name=subj maxlength=40><br>";
print "<textarea name=message rows=6 cols=60></textarea><br>";
print "e-mail <input name=email maxlength=40 value=yourname\@thaiabc.com>";
print "icq <input name=icq maxlength=10><br>";
print "<input type=submit>";
print "</form>";
จำนวน : 33 บรรทัด
าษาเฮชทีเอ็มแอล (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