指令:#
说明:注解符号Remark宣告
范例:#本程序是一个示范注解说明

指令:print
语法一:print Filehandle LIST
说明:这个Filehandle可把它看作在I(Input)/O(Output)间的一个桥梁,可以利用Filehandle来做出数据读入写出的动作。stdin是代表从哪边输入数据,例如从电脑的键盘输入,stdout是代表从哪边输出数据;例如从电脑的屏幕输出;stderr是代表从哪边输出错误的数据,例如从电脑的屏幕输出。而在Perl语言中有三个标准的Filehandle:
　　(一)STDIN(标准输入):是代表stdin的Filehandle
　　(二)STDOUT(标准输出):是代表stdout的Filehandle
　　(三)STDERR(标准错误输出):是代表stderr的Filehandle
　　如果要使用其他Filehandle的时候,就要用open这个函数来打开一个Filehandle,我们可以用print这个函数把LIST的数据输出给Filehandle。在为大家介绍print这个 函数之前,先让我们来看看print函数中特殊打印符号字符:

范例:
　　print STDOUT"i love perl\n";
　　将“i love perl"再加上换行显示于屏幕上。

语法二:Print LIST
说明:如果省略Filehandle的话,就会把Filehandle内定为STDOUT。也就是会将LIST的数据内容显示于屏幕上。
范例:
　　$Str1ng="perl";
　　print"i love $string\n";
　　会将“i love perl”再加上换行显示在屏幕上,而如果要让双引号内的变量失效的话,可以在变量前面加上\这个符号。例如如果是print“i love \$string”;的话,就会显示出“i love $string”这个字符串。

语法三：print
说明:同时省略Filehandle和LIST的话,就会以STDOUT为Filehandle,并会输出$_这 个内定输出变量的数据内容。如果$_变量是一个空字符串的话,就会显示出一个空字符串。
范例:
　　$_="i love perl\n";
　　print;
　　就会将"i love perl"再加上换行显示在屏幕上

指令:printf
语法一:printf Filehandle LIST
说明:在perl语言中也提供C语言中printf的语法,用法和C语言中的用法一模一样。如果把Filehandle省略的话,也一样会把STD0UT当成是内定的Filehandle。在为大家介绍printf函数之前,先让我们来看看printf函数中变换符号的字符：

范例:
　　printf〈"chmod%d%s＼n","7l1","cgi");
　　会将“chmod 7ll cgi”再加上换行显示于屏幕上。

指令:chop
语法：chop($string)
说明：把最后一个字符删除掉,常常用这个函数把换行的字符(\n)删除掉。
范例：
　　$string="hello!\n";
　　chop($string); #此时$string="hello!";
　　而这两行也可以写成chop($string="hello!＼n");

指令:split
语法:split(/pattern/,$string,limit)
　　其中/pattern是文字处理的模式,在下一小节中会有详细的语法介绍。而limit是代表要分割的个数,可以省略。
说明:用一个指定的文字处理模式来分割$string字符串。
范例:

　　在传送CGI应用程序数据的时候会先将数据编码,其中会将FORM中每个数据字段的数据内容用&这个符号隔开,所以在解码的时候就要以&这个符号为分割的字符,将每个数据字段分割出。例如:

　　而数据字段的名称和这个数据字段的值是用=这个符号来隔开,如果想取得数据字段的名称和所对应的值的话,就用要=这个符号来分割数据字段,例如:

指令:keys
语法:keys(%ARRAY)
说明:取出关联数组%ARRAY中全部的key。
范例:

指令:values
语法:values(%ARRAY)
说明:取出关联数组%ARRAY中全部的value。
范例:

指令:reverse
语法:reverse(@array)
说明:将数组@array中的元素由后到前重新排列。
范例:

指令:sort
语法:sort(@array)
说明:将数组@array中的元素由小到大排序,如果要由大到小排序的话,就要再加上reverse这个函数。
范例:

指令:length
语法:length($string)
说明:求出一字符串$string的bytes值。
范例:

指令:substr
语法:substr($string,offset,length)
　　其中offset代表起始字符的位置,length代表引用的字符串长度,如省略length的话代表从起始值到字符串的最后一个字符长度。而offset如果是负值的话,就会从字符串右边开始取出指定的字符串。
说明:在一字符串$string中取出想要的字符串。
范例:

指令:index
语法:index($string,$substring,position)
　　其中$substring是指要寻找的字符,position代表要从哪一个位置开始找起,如省略position的话就从头开始找起。
说明:返回所要找寻的字符在一字符串$string中的位置,如果在字符串中找不到字符的话,则会返回-l这个值。
范例:

指令:push
语法:push(@array,$string)
说明:在数组@array的最后一个元素后附加新的元素string到数组@array中。
范例:

指令:pop
语法:pop(@array)
说明:将数组@array的最后一个元素删除,并将删除的元素返回。
范例:

指令:unshift
语法:unshift(@array,$string)
说明:在数组@array的第一个元素前附加新的元素$string到数组@array中。
范例:

指令:shift
语法:shift(@array)
说明:将数组@array的第一个元素删除,并将删除的元素返回。
范例:

指令:join
语法:join($string,@array)
说明:在一数组@array的元素之间加上一指定的字符$string,并将结果返回。
范例:

指令:grep
语法:grep(/pattern/,@array)
说明:将符合文字处理模式(regular expression)的数组元素找出来。
范例:

指令:hex
语法:hex($string)
说明:将十六进制的数值转成十进制。
范例:

指令:rand
语法:rand($interger)
说明:常和函数srand搭配来取得一随机数,如果没有事先宣告stand函数的话,则取出的数值是一个固定值。这个语法会返回一个介于0和$interger之间的数值,如果$interger省略的话,则会返回一个介于0和1的数值。
范例:

指令:localtime
语法:localtime(time)
说明:可返回九个有关时间的元素,在写CGI应用程序的时候常会用到系统的时间,所以在此会详细介绍这个函数的用法。
范例:
　　($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
其中:

　　$date=`/usr/bin/date`;
　　而在perl5版本中,也可以用下面这一行指令来取得系统时间。
　　$date=localtime(time);

指令:die
语法:die LIST
说明:会把LIST字符串显示出来,并退出程序。常常和$!这个代表错误信息的变量一起使用。
范例:
　　Open(FILE'"$filename")||die"Cannotopenfile$!\n";
　　如果打开文件失败的话,就会显示出错误的信息,之后再退出程序。

指令:open
语法:open(Filehandle'"$fiiename")
　　其中$filename是一个指定打开的文件名。
说明:这是一个很常用的函数,可用于文件的打开(Read0niy)。在CGI程序设计中常常会打开一个文件来读取数据,所以笔者会详加说明这一个函数的相关用法。这个Filehandle可把它看作在I(Inpnt)/O(Output)间的一个桥梁,可以利用Filehandle来作出数据读入写出的动作。开始可用open这个函数来打开一个指定的文件,接下来可以使用<>来读取所打开文件的数据内容,最后一定要用close这个函数来关闭这个之前打开的Filehandle。要注意的是在CGI程序写作中,当用open这个函数来打开文件的时候,一定要在打开的文件前加上文件所在的绝对路径名称。
范例:
　　$filename=Vpath/cgi.txt";
　　open(FILE'"$filename")||die"Can not open $filename＼n";
　　#将数据指派给纯量变量$line(一行一行地)
　　while($line=<>){
　　　print"$line";
　　}
　　close(FILE);
　　就会把cgi.txt这个文件的内容显示出来。

语法二:open(Filehandle,"<$filename")
说明:这个语法也可以打开一个存在的文件(Read Only)。
范例:
　　$filename="/path/cgi.txt";
　　open(FILE,"<$filename")||die"Can not open $filename\n";
　　#将<>全部的数据内容都指派给数组@array
　　@array=<>;
　　close(FILE);
　　print"@array";
　　也会把cgi.txt这个文件的内容显示出来。

语法三:open(Filehandle,">$filemme)
说明:建立一个新的文件(Write Only),如果已经存在这个文件了,就会把旧文件名覆盖过去。并可用print Filehandle的方式将数据写到所打开的文件中。
范例:
　　$filename="/path/cgi.txt";
　　open(FILE,">$filename")||die"Can not open $filename\n";
　　print FILE"this is a new line1\n";　　#\n是换行字符
　　print FILE"this is a new line2\n";
　　close(FILE);
　　会把数据存在一个新文件中。

语法四:Open(Filehandle,">>$filename")
说明:数据用附加的方式写入一文件(Write Only),如果指定的文件名不存在的话,就会建立一个新的文件。
范例:
　　$filename="/path/cgi.txt";
　　open(FILE,">>$filename")||die"Can not open $filename\n";
　　print FILE"this is a newline1\n";
　　print FILE"this is a newline2\n";
　　close(FILE);
　　会把数据附加(append)到一个文件(cgi.txt)中。

语法五:Open(Filehandle,"|Unix Command")
说明:就会把在Fiiehandle的数据输出给Unix的指令来作处理。
范例:
　　$mailprog="/usr/ucb/mail";　#Unix系统上的寄信程序(要加绝对路径哦!)
　　$who="jcjung@tem.nctu.edu.tw";
　　open(FILE,"|$mailprog$who")||die"CannotFail!\n";
　　print FILE"想不想我呀?\n";
　　print FILE"要快一点回信哦!\n";
　　close(FILE);
　　就会通过Unix系统mail的程序,将FILE这个Filehandle的数据内容寄给$who这个变量所指定的收信人。我们可以利用open这个函数来设计一个来信批评指教的CGl应用程序,在本书中的下一章中会有详细的介绍。

指令:close
用法:close(Filehandle)
说明:用open这个函数来打开一个filehandle之后,一定要用close这个函数把所打开的Filehandle关闭。
范例:
　　open(Fiiehandle,"$filename");
　　close(Filehandle);

指令:pack
语法:pack("指定的格式",LIST)
说明:pack这个函数会将一个LIST变成所指定的二进制数据格式。在CGI程序分割解码过程中,会用到pack这个函数,所以笔者在此简单介绍这个函数的用法。
范例:
　　$string=pack("C",65);　　#此时$string="A";
　　将65这个ASCII码转换成一个unsigned字符,其中C就是指定要转换成unsigned字符的意思。

指令:read
语法:read(Filehandle,$string,length)
　　其中length是代表读入字符串的长度(bytes)。 说明:用read这个函数把Filehand1e中的数据依指定的字符串长度读入之后指派给$string这个变量。在CGI程序分割解码过程中,如果FORM的传送方式是设定为POST的话,就会将传送的数据设定为标准输入,所以会将数据内容指定给STDIN这个标准输入的Filehandle,而CGI环境变量$ENV{'CONTENT_LENGTH'}就是代表使用者送出数据内容的长度,因此我们要用read这个函数来取得使用者送出的数据内容。
范例:
　　read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
　　就会将STDIN这个标准输入Filehandle中的数据依指定的字符串长度读入,再指派给$buffer这个变量。

指令:exit
语法:exit
说明:退出执行的程序。
范例:
　　print"i love perl";
　　exit;
　　显示出“i love perl"之后,就马上退出这个程序。

指令:..区块运算符(Range Operator)
说明:这个运算符是Perl语言中特有的运算符,是一个很实用的运算符。
范例:
　　@digits=(1..9)；　　　　#此时@digits=(l,2,3,4,5,6,7,8,9)；
　　@digits=('10'..'05')；　#此时@digits=(01,02,03,04,05);
　　@char=('A'..'E')；　　　#此时@char=('A','B','C','D','E');
　　@total=(l..3,'A'..'B')；#此时@total=(1,2,3,'A','B');

指令:判别运算式?运算式1:运算式2　条件运算符(Conditional Operator)
说明:这个语法的意义和C语言一样,如果判别运算式的值是真(True)的话,则做运算1的 运算,如果判别运算式是假(False)的话,则做运算式2的运算。
范例:
　　$price=($age>60)?100:200;
　　如果$age大于60的话,则$price等于100;否则$price等于200.

指令:if假如
语法一:if(判别运算式){
　　　　　　程序叙述区块;
　　　　}
　　　上个语法在Perl中也可以写成:
　　　程序叙述区块if(判别运算式)；
范例:
　　print"请输入您的分数?\n"；
　　$score=<>;　#<>代表标准输入,会让使用者输入一字符串
　　chop($score);　　#将$score最后一个换行字符\n删除掉
　　if($score>=60){
　　　　print"您的分数及格了!\n";
　　也可以写成:
　　print"您的分数及格了!\n"if($score>=60);

语法二:if(判别运算式一){
　　　　　程序叙述区块一;
　　　　}else{
　　　　　程序叙述区块二;
　　　　}
范例:
　　print"请输入您的分数?\n";
　　$score=<>;
　　chop($score);
　　if($score>=60){
　　　　print"您的分数及格了!\n"
　　}else{
　　　　print"您的分数不及格!＼n";
　　}

语法三:if(判别运算式一){
　　　　　　程序叙述区块一;
　　　　}elsif(判别运算式二){
　　　　　　程序叙述区块二;
　　　　}else{
　　　　　　程序叙述区块三;
　　}
范例:
　　print"请输入您的分数?\n";
　　$score=<>;
　　chop($score);
　　if($score>60){
　　　　print"您的分数大于60分!\n";
　　}elsif($score$x?){
　　　　print"您的分数小于60分!\n";
　　}else{
　　　　print"您的分数刚好是60分!\n";
　　}

指令:unless假如非
语法一:unless(判别运算式){
　　　　　　　程序叙述区块;
　　　　}
　　　上个语法在Per1中也可以写成:
　　　程序叙述区块unless(判别运算式);

范例:
　　print"请输入您的分数?\n";
　　$score=<>;#<>代表标准输入,会让使用者输入一字符串
　　chop($score);#将$score最后一个换行字符＼n删除掉
　　unless($score<60){
　　　　print"您的分数及格了!＼n";
　　}
　　也可以写成:
　　print"您的分数及格了!\n"unless($score$x?);

指令:while当..
语法:while(判别运算式){
　　　　　程序叙述区块;
　　　}
　　上个语法在Perl中也可以写成:
　　程序叙述区块while(判别运算式);
范例一:
　　while($i<=10){
　　　　$sum+=$i;
　　　　$i++;
　　}
　　print"$sum\n";　　#此时$sum=55;
范例二:
　　$filename="/path/cgi.txt";
　　open(FILE,"$filename")||die"Can not open $filename\n";
　　#可以把<>视为在打开文件中某一行的数据
　　while($line=<>){
　　　　print"$line";
　　}
　　close(FILE);
　　就会把cgi.txt这个文件的内容显示出来。而这个范例可以把它改写成:
　　$filename="/path/cgi.txt";
　　open(FILE'"$filename")||die"Can not open $filename\n";
　　print"$line"while($line=<>);
　　close(FILE);
　　在这个范例中是把$filemme文件内的数据一行一行指派给$line这个纯量变量,再 把$line显示出来。如果没有将<>指派给一个纯量变量的话,则会有一内定的 输入变量$_被<>所指派。因为$_是一个内定的变量,所以如果使用print函数 的时候没有加上要输出数据的话,就会把$_的数据print出来。所以这个范例也可 以改写成:
　　$filename="/path/cgi.txt";
　　open(FILE,"$filename")||die"Can not open $filename\n";
　　while(){
　　　　Print;
　　}
　　close(FILE);

指令:do while 当..
语法:do{
　　　　程序叙述区块,
　　　}while(判别运算式);
　　在while和do while循环中最大的不同是在do while循环中,程序叙述区块至少会 被执行一次。
范例:
　　do{
　　　　$sum+=$i;
　　　　$i++;
　　}while($i<=10);
　　print"$sum\n";　　　　#此时$sum=55,

指令:until直到...才
语法:until(判别运算式){
　　　　　程序叙述区块;
　　}
　　上个语法在Perl中也可以写成:
　　程序叙述区块 until (判别运算式);
范例:
　　until($i>10){
　　　　$sum+=$i;
　　　　$i++;
　　}
. 　　print"$sum\n";#此时$sum=55;

指令:do until 直到...才
语法:do{
　　　　程序叙述区块;
　　　}until(判别运算式);
范例:
　　do{
　　　　$sum+=$i;
　　　　$i++;
　　}until($i>l0);
; 　　print"$sum＼n";#此时$sum=55;

指令:for循环陈述
语法一:for(初始化运算式,判别运算式;循环过程运算式){
　　　　　　程序叙述区块;
　　　　　}
范例一:
　　$sum=0;
　　for($i=l;$i<$i++){
　　　　$sum+=$i;
　　print"$sum\n";　　　　#此时$sum=55;
范例二:
　　@array=(3,6,9);
　　$number=@array：　　　#把数组@array的元素个数指派给$number
　　　　　　　　　　　　　#此时$number=3;
　　for($i=0;$i<$i++){
　　　　$sum+=$array[$i]：#把数组@array元素的值全部加起来
　　}
语法二:for$variab1e(@array){
　　　　程序叙述区块;
　　　　}
　　在Perl语言中的for循环陈述还可以使用这个语法,和循环陈述foreach的用法一 样。如果把$variable变量省略的话,就会将数组@array 的元素一个一个指定给 $_这个变量,这是比较精简的写法。
范例：
　　@array=(3,6,9);
　　for$int(@array){
　　　　$sum+=$int;
　　}
　　print"$sum\n";#此时$sum=18;
　　也可以写成:
　　@array=(3,6,9);
　　for(@array){
　　　　$sum+=$_;
　　}
　　print"$sum\n";#此时$sum=18;

指令:foreach 循环陈述
语法:foreach $variable(@array)(
　　　程式叙述区块;
　　　}
　　如果把$variable变量省略的话,就会将数组@array的元素一一指定给$_这个内定 的输出变量。
范例一:
　　@array=(3,6,9);
　　foreach $int(@array){
　　　　$sum+=$int;
　　Print"$sum\n";#此时$sum=l8;
　　也可以写成:
　　@array=(3,6,9);
　　foreach(@array){
　　　　$sum+=$_;
　　}
　　print"$sum\n";#此时$sum=18;
范例二:
　　%F0RM=("name"'"NCTU","value","TEM");
　　foreach $pair(sort keys%FORM){ 　　　　print"$pair is $FORM{$pair}\n";
　　}
　　这个范例在CGI程序写作中常常会用到。先用keys这个函数来求出关联数组中全部 的key,再用sort这个函数把全部的key由小到大排序,最后再把关联数组中的key和 所对应的值(value)一一显示出。而以上这个程序也可写成:
　　%FORM=("name"'"NCTU","vaiue","TEM");
　　@array=(sortkeys%F0RM);
　　foreach $pair(@array){
　　　　print"$pairis$F0RM{$pair}\n";
　　}

指令:last 退出循环陈述
语法:last
范例:
　　for($i=1;$i<=l0;$i++){
　　　　last if ($i==5);　#如果$i等于5的话就退出for循环
　　　　print"$i\n";
　　}
　　会把l到4之间的数值显示出来。

指令: /pattern/文字运算
说明:如果在文字运算中没有使用=~或是!~运算符指定一个字符串来做运算的话, 就会 使用内定的输出变量$_来做/pattern/文字运算。
范例一:
　　$string="chmod7llcgi";
　　$string=~/(\w+)\s+(\d+)/;
　　第一个(\w+)是代表找寻数个字母，并将所找到的字符串指派给$l这个变量,而\s+代表 找寻多个空白的字符串,最后(\d+)代表找寻数个数值,并将所找到的字符串指派给$2这 个变量。所以$l="chmod",$2=71l,但是$string还是等于原来的字符串,没有改变。
范例二:
　　$_="chmod71lcgi";
　　/(\w+)\s+(\d+)/;
　　因为是把字符串指定给$_这个变量,所以可以不用=~这个运算符就会得到$l="chmod", $2=711;而且$_还是等于原来的字符串,没有改变。
范例三:
　　$string="chmod71lcgi";
　　@list=split(/\s+/,$string);
　　以一个或是多个空白字符来分割$string这个字符串,这是一个很常用的语法。此时
　　@list=("chmod","7ll","cgi");

指令: =~相配运算符
说明:这是Perl语言中特有的语法,通常会和文字处理模式来作运算。
范例:
　　print"请输入一个字符串!\n";
　　$string=<>;　#<>代表标准输入,会让使用者输入一字符串
　　chop($string);　　#将$string最后一个换行的字符\n删除掉
　　if($string=~/cgi/){
　　　　print"输入的字符串中有cgi这个字符串!\n";
　　}
　　如果输入的字符串中含有cgi这个字符串的话,就会显示出这个信息。

指令:!~不相配运算符
说明:这也是Perl语言中特有的语法,通常会和文字处理模式来作运算。
范例:
　　print"请输入一个字符串!\n";
　　$string=<>;　#<>代表标准输入,会让使用者输入一字符串
　　chop($string);　　#将$stdng最后一个换行的字符\n删除掉
　　if($string!~/cgi/){
　　　　print"输入的字符串中没有cgi这个字符串!\n";
　　}
　　如果输入的字符串中没有含有cgi这个字符串的话,就会显示出这个信息。

指令:tr转换函数
语法:tr/SEARCHLIST/REPLACELIST/
　　其中SEARCHLIST是要转换的字符,REPLACELIST是转换成何种字符。
说明:tr(translate)就是转换的意思,会把符合转换的字符转换成要转换的字符。
范例一:
　　$string="test1ng";
　　$string=~tr/et/ET/;#此时$string="TEsTing";
　　$string=~tr/a-z/A-Z/;#此时$string="TESTING";
范例二:
　　$string="CGI+Perl";
　　$string=~tr/+//;#此时$string="CGI Perl";
　　在传送CGI数据的时候会先将数据编码,其中会将空白的字符转成+这个字符,所以 在解码的时候要把+这个字符还原成空白的字符。

指令:s取代函数
语法:s/PATTERN/REPLACE/eg
　　其中PATTERN是文字处理(Regular Expression)的模式,REPLACE是代表取代成何种文字 模式。而g是这个函数最常用的参数,代表要把所有符合文字模式的字符串 全部取代,如果省略这个参数的话,则只取代一个符合文字模式的字符串;而加上e这 个参数是代表要将REPLACE的部分当成一个运算式,如果没有这个需要的话,就不用加 上这个参数了。
说明:将符合文字处理模式的字符串取代成为要取代的字符串。
范例一:
　　$string="i;love;perl";
　　$string=~s/:/*/：　　　#此时$string="i*love:perl";
　　$string=~s/:/*/g;　　　#此时$string="i*love*perl";
　　$stiing=~s/*/+/g;　　　#此时$string="i+love+perl";
　　$string=~s/+//g：　　　#此时$string="i love perl";
　　上一行也可写成$string=~tr/+//;效果都会一样哦!
　　$string=~s/per1/cgi/;　#此时$string="i love cgi";
范例二:
　　$string="i love per";
　　$string=~s/(love)/<$1>/;
　　第一个()内所找到的字符串变成$1,在这个范例中,会把变量love这个字符串变成 <>,此时$string="i<>perl";

　　$string="i love per1";
　　$string=~s/(i)(perl)/<$1><$2>/;
　　在这个范例中,会把i变成<>,perl变成<>此时$string="<>love<>";

　　$striag="i love per1";
　　$string=~s/(\w+)/<$1>/g;
　　(\w+)代表找寻符合一个或是多个英文字符或是数值的字符串,之后再将找到的字 符串设成$l。因为加上g这个参数,所以会找到字符串中的这三个英文单字, 然后 再把这三个单字分别加上<>这个符号,此时$string="<><><>";
范例三:
　　$string="ww22cgi44";
　　$string=~s/(\d+)/$1*2/e;
　　(\d+)代表要找寻$string中一个或是多个数值的字符串,再将找到的字符串设成 $1。加上参数e是代表要把$l*2当作是一个运算式,所以$string="www44cgi44";
　　$string="www22cgi44";
　　$string=~s/(\d+)/$1*2/eg;
　　加上参数e,所以会把$1*2当作是一个运算式来看, 加上参数g就会把全部符合数 值的字符串经过运算式运算之后再把它取代,所以$string="www44cgi88";
范例四:
　　假设原本的字符串是$value="三八!",经CGI数据编码之后,这个字符串就会变成 $value="%A4T%A4K%21"。以下是一个解码的示范程序:
　　$value="%A4T%A4K%2l"；
　　$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($l))/eg;
　　在传送CGI数据的时候会把数据编码,其中会将特殊字符或是中文字符编码成以% 开头的连续两个十六进制数的字符串,所以要用s这个函数来找寻这个以%开头的 字符串。为了要把找到的字符串再做解码的处理, 所以要在%这个符号之后加上 ()这个符号, 表示会把找到的字符串记忆起来并指定给$1这个变量,而且要在() 中加上代表是连续两个十六进制数值的文字处理模式(Regular Expression),也 就是[a-fA-F0-9][a-fA-F0-9]。再用hex这个函数($1是代表符合的字符串)把十 六进制数值转成十进制的码,之后再用pack这个函数(以C为参数,是代表 unsigned char value的意思)把这个十进制码还原成原来的字符串。最后就会 把这个字符串解码成$value="三八!"。值得一提的是也可以把这个解码的程序 写成:

　　$value=~s/%(..)/pack("C",hex($l))/eg;

　　在此提供给读者参考。