Perl 網頁程式設計課程目錄

Perl 表單處理程式例子內容

以下是 Perl 資料處理的整個程式:

在你的 HTML 網頁放下表單, 給訪客填入資料. (讀者如不懂編寫表單的 HTML 文件, 請參考網頁設計書籍.)

以下是網頁表單的 HTML 文件:

<table cellspacing="0" cellpadding="10" width="100%" >
<tr><td>

<form action="http://YourDomain.com/cgi-bin/Perl.pl" method ="POST">
姓 名 :<input type="text" name="name" size="20"><p>
電 話 :<input type="text" name="phone" size="20"><P>
<Center><input type="submit"></Center>
</Form>

</td></tr>
</Table>

注 意 :
請在 FORM ACTION 指向你的 Perl 程式的正確 url.

呼叫儲存在 cgi-bin 目錄的 Perl 程式, 程式內容如下 :

#!/usr/bin/perl
print "Content-type: text/html\n\n";
#
#
### parse the form ######
#
### Read the data from form #####
#
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
#
### Split the string of data #######
#
@pairs = split(/&/, $buffer);
#
#### Review the tutorial again if not understand ###
#
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$FORM{$name} = $value;
}
#
################### End of Parse Form ########################
#
#
#### Get the data #######
#
$name= "$FORM{'name'}";
#
$phone= "$FORM{'phone'}";
#
#### Print out the data ##########
#
print "Your name is : $name";
print "<P>";
print "Phone no. is : $phone";
print "<P>";
print "$name, thank you for your information.";

注 意 :

這只是一個簡單的 Perl 表單樣本, 你可以設計你自己需要的表單, 資料欄的數目當然可以不只二個咁簡單啦!

讀者如不明白以上 Perl 程式如何運作, 請重新溫習本課程, 這裡不再作解釋了.

實 例
姓 名 :

電 話 :