Perl文字处理模式(regularexpresion)相关的运算符及函数

开发 架构
Perl语言有很多值得学习的地方,这里向大家简单介绍一下Perl文字处理模式(regularexpresion)相关的运算符及函数,希望对大家学习有所帮助。

本文和大家重点讨论一下Perl文字处理模式(regularexpresion)相关的运算符及函数,在Perl程序写作中常会用到=~和!~这两个运算符及s和t这二个函数来和文字处理模式/pattern/搭配,至于如何搭配请看本文详细介绍。

Perl文字处理模式(regularexpresion)相关的运算符及函数

在Perl程序写作中常会用到=~和!~这两个运算符及s和t这二个函数来和文字处理模式/pattern/搭配,而成一个运算式,如果能够活用这些Perl指令的话,就可以很轻易地来处理一些字符串,当然在cgi程序设计中了就更能得心应手了。现在就让作者来介绍这些运算符及函数的用法:

--------------------------------------------------------------------------------

Perl指令:/pattern/文字运算

说明:如果在文字运算中没有使用=~或是!~运算符指定一个字符串来做运算的话,就会使用内定的输出变量$_来做/pattern/文字运算。

范例一:

$string="chmod711cgi";
$string=~/(\w)\s+(\d+)/;

第一个(\w+)是********数个字母,并将的找到的字符串指派给$1这个变量,而\s+********多个空白的字符串,最后(\d+)********个数值,并将所找到的字符串指派给$2这个变量。所以$1="chmod";$2=711;但是$string还是等于原来的字符串,没有改变。

范例二:

$_="chmod711cgi";
/(\w)\s+(\d+)/;

因为是把字符串指定给$_这个变量,所以可以不用=~这个运算符就会得到

$1="chmod";$2=711;而且$_还是等于原来的字符串,没有改变。

范例三:

$string="chmod711cgi";
@list=split(/s+/,$string);

以上一个或是多个空白字符来分割$string这个字符串,这是一个很常用的语法。此时@list=("chmod","711","cgi");

--------------------------------------------------------------------------------

Perl指令:=~相配运算符

说明:这是Perl语言中特有的语法,通常会和文字处理来作运算。

范例:

print"请输入一个字符串!\n";
$string=<stdin>#<stidn>********输入,会让使用者输入一字符串
chop($string);#将$string最后一个换行的字符\n删除掉
if($string=~/cgi/){

print("输入的字符串中有cgi这个字符串!\n";

}

如果输入的字符串含有cgi这个字符串的话,就会显示出这个信息。

--------------------------------------------------------------------------------

Perl指令:!~不相配运算符

说明:这也是Perl语言中特有的语法,通常会和文字处理模式来运算。

范例:

print"请输入一个字符串!\n";
$string=<stdin>#<stidn>********输入,会让使用者输入一字符串
chop($string);#将$string最后一个换行的字符\n删除掉
if($string!~/cgi/)
{

print("输入的字符串中有cgi这个字符串!\n";

}

如果输入的字符串中没有cgi这个字符串的话,就会显示出这个信息。#p#

--------------------------------------------------------------------------------

Perl指令:tr转换函数

语法:tr/searchlist/replacelist/

其中searchlist是要转换的字符;replacelist是转换成何种字符。

说明:tr(translate)就是转换的意思,会把符合转换的字符转换成要转换的字符。

范例一:

$string="testing";
$string=~tr/et/et/";#此时$string="testing";
$string=~tr/a-z/a-z/;#此时$stirng="testing";

范例二:

$string="cgi+Perl";
$string=~tr/+//;#此时$string="cgiPerl";

在传送cgi数据的时候会先将数据编码,其中会将空白的字符转成+这个字符。

--------------------------------------------------------------------------------

Perl指令:s取代函数

语法:s/pattern/replace/eg

其中pattern是文字处理(regularexpresion)的模式;
replace是代表取代成何种文字模式。
而g是这个函数最常用的参数,********所有符合文字模式的字符串全部取代,如果省略这个参数的话,则只取代一个符合文字模式的字符串中;
而加上e这个参数代表要将replace的部分当成一个运算式,如果没有这个需要的话,就不用加上这个参数了。
说明:将符合文字处理模式的字符串取成为要取代的字符串

Perl范例一:

$string="i:love:Perl";
$string=~s/:/*/;#此时$string="i*love:Perl";
$string=~s/:/*/g;#此时$string="i*love*Perl";
$string=~s/*/+/g;#此时$string="i+love+Perl";
$string=~s/+//g;#此时$string="ilovePerl";

上一行也可写成$string=~tr/+//;效果都会一样哦!

$string=~s/Perl/cgi;#此时$string="ilovecgi";

Perl范例二:

$string=~s/(love)/<$1>/;

第一个()内所找到的字符串变成$1,在这个范例中,会把变量love这个字符串变成<love>,此时$string="i<love>Perl";

$string="ilovePerl";
$string=~s(i)(Perl)/<$1><$2>/;

在这个范例中,会把i变成<i>Perl变成<Perl>,此时$string="<Perl>love<i>";

$string="ilovePerl";
$string=~s(\w+)/<$1>/g;

(/w+)********符合一个或是多个英文字符或是数值的字符串,之后再将找到的字符串设成$1。因为加上g这个参数,所以会找到字符串的这三个英文单字,然后再把这三个单字分加上<>这个符号,此时$string="<Perl><love><i>";

Perl范例三:

$string="www22cgi44";
$string=~s/(\d+)/$1*2/e;

(/d+)********寻$string中一个或是多个数值的字符串,再将找到的字符串设成$1。加上参数e是代表要把$1*2当作是一个运算式,所以$string="www22cgi44";

$string="www22cgi44";
$string=~s/(\d+)/$1*2/eg;

加上参数e,所以会把$1*2当作是一个运算符式来看;加上参数g就会把全部符合数值的字符串经过运算式运算之后再把它取代,所以$string="www44cgi88";

Perl范例四:

假设原本的字符串是$value="三八!",经cgi数据编码之后,这个字符串就会变成

$value="%a4t%a4k%21"。以下是一个解码的示范程序:

$value="%a4t%a4k%21";
$vlaue=~s/%([a-fa-f0-9][a-fa-f0-9]/pack("c",hex($1))/eg;

在传送cgi数据的时候会把数据编码,其中会将特殊字符或是中文字符编码以%开头的连续的两个十六进制数的字符串,所以要用s这个函数来找寻这个以%开头的字符串。为了要把找到的字符串再做解码的处理,所以要在%这个符号之后加上()这个符号,表示会把找到的字符串记忆起来并指定给$1这个变量,而且要在()中加上********续两个十六进制数值的文字处理模式(regularexpression),也就是[a-fa-f0-9][a-fa-f0-9]。再用hex这个函数($1是********的字符串)把十六进制数值转成十进制的码,之后再用pack这个函数(以c为参数,是********gnedcharvalue的意思)把这个十进制码还原成原来的字符串。最后就会把这个字符串解码成$value="三八!"。值得一提的是也可以把这个解码的程序写成:

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

【编辑推荐】

  1. Perl 字符匹配实例解说
  2. Perl文件句柄概念详解
  3. Perl二维数组用法全程剖析
  4. 畅谈Perl操作符用法
  5. Perl转义字符用法解析

 

 

责任编辑:佚名 来源: csdn.net
相关推荐

2019-10-12 15:42:36

CSS代码前端

2022-06-10 12:17:04

开源软件Linux文字处理程序

2013-09-02 12:46:55

Quip企业级移动

2009-02-23 20:47:16

Fedora 10文字处理办公软件

2010-07-20 14:52:51

Perl语法

2010-07-14 17:43:25

Perl运算符

2010-07-14 17:36:00

Perl运算符

2009-08-11 15:51:08

C#运算符算术运算符

2023-04-10 08:58:13

C#关系运算符

2009-08-12 15:02:49

C#赋值运算符简单赋值运算符

2009-08-12 15:20:18

C#赋值运算符复合赋值运算符

2010-02-03 15:40:11

C++地址运算符

2009-11-26 11:12:07

PHP运算符

2019-10-09 14:23:59

Python运算符代码

2009-08-12 10:20:52

C#位运算符

2010-05-20 13:56:49

MySQL运算符

2016-10-14 14:04:34

JAVA语法main

2009-08-12 09:30:10

C#??运算符

2024-02-26 15:17:20

2021-12-15 10:25:57

C++运算符重载
点赞
收藏

51CTO技术栈公众号