3.2 Perl สำหรับสร้างแฟ้ม
: โปรแกรมเล็ก ๆที่ใช้ในการสร้างแฟ้ม ตัวอย่างนี้มี 6 ระเบียน 5 เขตข้อมูล
Html ที่ใช้เรียก perl มาทำงาน<form action=http://www.isinthai.com/thaiall/perlcrt.pl method=post>
<input type=submit value=Create_dataperl.txt> perlcrt.pl
</form>
หรือ จะเรียกตรง ๆ ผ่าน URL ก็ได้เช่น http://www.isinthai.com/thaiall/perlcrt.pl
#!/usr/bin/perl
print"Content-type:text/html\n\n";
$filename = "/home/burin/public_html/dataperl.txt";
open(myfile,">$filename");
$dat = "3101001:Tom:Jojo:16000:A:\n";
print myfile $dat;
$dat = "3101002:Naja:Rujj:5600:R:\n";
print myfile $dat;
$dat = "3101003:Packman:Somsu:7000:L:\n";
print myfile $dat;
$dat = "3101004:Nichole:Jaiboon:15000:A:\n";
print myfile $dat;
$dat = "3101005:Suwi:Hancharn:10600:A:\n";
print myfile $dat;
$dat = "3101006:Nirund:Jiva:9700:A:\n";
print myfile $dat;
close(myfile);
print "<body bgcolor=#ddffff>Create 6 Records and 5 Fields : Finish";
ไม่มีความคิดเห็น:
แสดงความคิดเห็น