1. หากเข้าใจบทของการรับค่าจากฟอร์ม บทนี้ก็เรียกได้ว่าไม่ยากนัก ถ้าผู้ศึกษาเคยมีประสบการณ์ในการเขียนภาษา pascal หรือ c หรือ cobol ที่ได้จัดการกับแฟ้มแบบ text และเข้าใจโครงสร้างแฟ้มแบบนี้มาก่อน เช่นเพิ่ม ลบ หรือแก้ไข เป็นต้น
2. บทนี้จะทำการรับค่าจากฟอร์ม แล้วจัดเก็บลงแฟ้มใน 2 ลักษณะคือ เก็บทับลงไป หรือเพิ่มเข้าไป
3. ในบทนี้ผู้ศึกษาจะได้ทดสอบกับข้อมูลครบวงจร คือรู้จักการสร้างแฟ้ม เพิ่มระเบียนต่อท้าย และนำมาแสดง
4. การลบหรือแก้ไข ไม่ได้กล่าวถึงในบทนี้ แต่ถ้ามองในเรื่องการลบแฟ้มเดิมก่อนเพิ่มระเบียนแรกใหม่ ก็น่าจะชดเชย เรื่องลบระเบียนกับปรับปรุงได้
5. ตัวอย่างในบทนี้ได้ทดลองกับเครื่องของ hypermart แล้วใช้ได้ครับ เพราะเว็บนี้ใช้ hypermart เป็น host

<form method=post action=/perl/plsave1.pl>
<input type=text name=getvar>
<input type=submit value=submit>
<input type=reset value="clear it">
</form>

#!/usr/local/bin/perl
print"Content-type:text/html\n\n";
$dat = <STDIN>;
$filename = join '',"/data1/hm/thaiall.com","/perl/plsave.txt";
unlink("$filename");
open(myfile,">$filename");
print myfile $dat;
close(myfile);
print $dat," : finish"

#!/usr/local/bin/perl
print"Content-type:text/html\n\n";
$filename = join '',"/data1/hm/thaiall.com","/perl/plsave.txt";
print "<pre>";
open(myfile,"$filename");
@getrec = <myfile>;
close(myfile);
print @getrec;

<form method=post action=/perl/plsave3.pl>
<input type=text name=getvar>
<input type=submit value=submit>
<input type=reset value="clear it">
</form>

#!/usr/local/bin/perl
print"Content-type:text/html\n\n";
$dat = <STDIN>;
$filename = join '',"/data1/hm/thaiall.com","/perl/plsave.txt";
open(myfile,">>$filename");
print myfile $dat;
close(myfile);
print $dat," : finish"

<form method=post action=/perl/plsave4.pl>
<input type=text name=getvar1><br>
<input type=text name=getvar2><br>
<input type=submit value=submit>
<input type=reset value="clear it">
</form>

#!/usr/local/bin/perl
print"Content-type:text/html\n\n";
$dat = <STDIN>;
$dat =~ tr/+/ /;
$dat =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$dat =~ s/~!/~!/g;
$_ = $dat;
$dat = tr/~-~#-@A-Za-zก-ฮฯ-๙/ /cs;
$dat = $_;
$filename = join '',"/data1/hm/thaiall.com","/perl/plsave.txt";
@dd = split '&',$dat;
$v1 = split '=',$dd[0];
$v2 = split '=',$dd[1];
open(myfile,">>$filename");
print myfile $v1,":",$v2,"\n";
close(myfile);
print $dat," : finish"

ให้ทำตามโจทย์ต่อไปนี้
1. นำคำว่า this is me เข้าไปเก็บในแฟ้ม hi.txt
2. รับค่าจาก form 2 ตัว ไปเก็บในแฟ้ม hihi.txt
3. อ่านข้อมูลจาก hihi.txt มาแสดง
4. เพิ่มข้อมูลต่อท้ายแฟ้ม hihi.txt