รหัสต้นฉบับเพื่อการศึกษา

ปรับปรุง : 2565-07-24 (รหัสต้นฉบับเพื่อการศึกษา)

File : pic.pl. ID : 0603

Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full

#!/usr/bin/perl
($name, $value) = split(/=/,$ENV{'QUERY_STRING'});    
$v{$name} = $value;
print"Content-type:text/html\n\n";   
print'<body>';
$f = join '','/home',$v{'file'};
@r = stat $f;
@fx = split("\/",$v{'file'});
$last = @fx - 1;
print"File Name: $fx[$last]";
if ($r[7]) { print" - Size: $r[7] Byte"; }
print"<br><img src=$v{'file'} border=5>";
print'<hr noshade color=#000099>END</body>';

จำนวน : 14 บรรทัด

ภาษาเฮชทีเอ็มแอล (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)

ปรับปรุงโปรแกรม source.pl : 2565-07-24

"ไม่เริ่มต้นในวันนี้ จะไม่มีทางสำเร็จในวันพรุ่ง" โดย โยฮัน ว็อล์ฟกัง ฟ็อน เกอเทอ

Thaiall.com

Truehits.net