1. บทนี้ท่านจะรู้สึกไม่ยากเท่าใด เพราะตั้งใจให้รู้จักการเขียน perl ให้ดีขึ้นจากบทก่อน
2. ในบทก่อนเมื่อเขียน perl เสร็จแล้ว ก็สั่งประมวลผลทาง location หรือ address ของ browser ก็จะเห็นผลทันที ในบทนี้ก็ให้ใช้วิธีการเดิม
3. การส่งค่าให้ perl ในแบบ url จะใช้เครื่องหมาย ? ตามหลังชื่อโปรแกรม perl และตามด้วยค่าที่ต้องการส่งทันที ซึ่งจะอธิบายไว้พอเข้าใจถึงวิธีการเขียน และวิธีสั่งให้ perl ทำงานในแบบนี้

#!/usr/local/bin/perl
$buffer = $ENV{"QUERY_STRING"};
$buffer =~ tr/+/ /;
$buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$buffer =~ s/~!/~!/g;
print "Content-type: text/html\n\n";
print $buffer;

#!/usr/local/bin/perl
$buffer = $ENV{"QUERY_STRING"};
$buffer =~ tr/+/ /;
$buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$buffer =~ s/~!/~!/g;
print "Content-type: text/html\n\n";
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
   print $pair,"<br>";
}

#!/usr/local/bin/perl
$buffer = $ENV{"QUERY_STRING"};
$buffer =~ tr/+/ /;
$buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$buffer =~ s/~!/~!/g;
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
  ($name, $value) = split(/=/, $pair);
  $FORM{$name} = $value;
}
print "Content-type: text/html\n\n";
print 't1 =' , $FORM{'t1'},'<br>';
print 't2 =' , $FORM{'t2'};

#!/usr/local/bin/perl
$buffer = $ENV{"QUERY_STRING"};
print "Content-type: text/html\n\n";
print $buffer;
print "<hr>";
@keep04 = split '&',$buffer;
print $keep04[0],"<br>";
print $keep04[1],"<br>";
print "<hr>";
@keephaha = split '=',$keep04[0];
print $keephaha[1],"<br>";
@keephaha = split '=',$keep04[1];
print $keephaha[1],"<br>";
print "<hr>";
($name, $value) = split(/=/, $keep04[0]);
print $value,"<br>";
($name, $value) = split(/=/, $keep04[1]);
print $value,"<br>";

ให้ทำตามโจทย์ต่อไปนี้
1. ส่งค่า 1 ค่าแล้วนำมาพิมพ์
2. ส่งอย่างน้อย 3 ค่าแล้วนำมาพิมพ์
3. ส่งค่าอย่างน้อย 3 ค่าพร้อมชื่อตัวแปร แล้วนำมาพิมพ์