thaiall logomy background
coding : counter. counter.pl.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : counter.pl. ID : 0904
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
#!/usr/bin/perl
print "Content-type:text/html\n\n";   
$filename = "counter.txt";
$filenamet = "tracker.txt";
open(file,"$filename");
&lockfile(file); @getrec = <file>; &unlockfile(file);
close(file);
($sec,$min,$hr,$day,$month,$year,$dofw,$dofy,$some) = localtime(time);  
$q = $ENV{'QUERY_STRING'};
if (!@getrec || $q eq "restart") {
  $cnt = 0;
  open(file,">$filenamet");
  &lockfile(file); print file $ENV{'REMOTE_ADDR'},",",$day+1,"\n";  &unlockfile(file);  
  close(file); 
} else {
  $cnt = $getrec[0] + 1;
}
open(file,">$filename");
&lockfile(file); print file $cnt; &unlockfile(file);  
close(file); 
print $cnt;
sub lockfile {
  local($file)=@_;
  flock($file,2);
}
sub unlockfile {
  local($file)=@_;
  flock($file,8);
}
จำนวน : 29 บรรทัด
าษาเฮชทีเอ็มแอล (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