perl语言的文字处理模式之三(4)

范例三:
　　$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;

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

perl语言的文字处理模式之三(4)

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

perl语言的文字处理模式之三(4)

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范