: โปรแกรมเล็ก ๆ ที่อ่านข้อมูลจากแฟ้มมาแสดง
Html ที่ใช้เรียก perl มาทำงาน<form action=http://www.isinthai.com/thaiall/perllst.pl method=post>
<input type=submit value=List_dataperl.txt> perllst.pl
</form>
หรือ จะเรียกตรง ๆ ผ่าน URL ก็ได้เช่น
http://www.isinthai.com/thaiall/perllst.pl
#!/usr/bin/perl
print"Content-type:text/html\n\n";
$filename = "/home/burin/public_html/dataperl.txt";
print "<body bgcolor=#ddffff><pre>";
open(myfile,"<$filename");
@getrec = <myfile>;
close(myfile);
$i = 1;
foreach $rec (@getrec) {
@r = split(/:/,$rec);
print $i,$r[0]," - ",$r[1],$r[2],$r[3],$r[4],$r[5],"\n";
$i++;
}
ไม่มีความคิดเห็น:
แสดงความคิดเห็น