thaiall logomy background
coding : keywordupdate. recadd.pl.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : recadd.pl. ID : 0404
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
#!/usr/bin/perl
&parse_form;
print "Content-type:text/html\n\n";   
if ($v{'id'} < 4000000 || $v{'id'} > 9999999 || !$v{'passwd'}) {
  print 'Invalid information : error';
  exit;
}
$filename = 'data.txt';
open(myfile,"$filename");
@getrec = <myfile>;
close(myfile);
foreach $rec (@getrec) {
  ($id,$passwd) = split(',',$rec);
  if ($id eq $v{'id'}) {
    print 'Duplicate information : error';
	exit;
  }
}
open(myfile,">>$filename");
print myfile "$v{'id'},$v{'passwd'},\n";
close(myfile);
print "Add new record : ok";

sub parse_form {
  @pairs = split(/&/,<STDIN>);
  foreach $pair (@pairs) {
    local($name, $value) = split(/=/, $pair);
    $name =~ tr/+/ /;
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;    
    $value =~ s/,/&#44;/g; 
    $v{$name} = $value;
  }
}
จำนวน : 35 บรรทัด
าษาเฮชทีเอ็มแอล (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