神奇的Perl-正则表达式(5)

声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载

1.     转化

1、语法格式:

$字符串变量名!~tr/<pattern>/<replacemnt>/

<pattern>为需要替换的匹配模式串，<replacement>为替换的字符串。 把符合 <pattern>模式的字符串转换为 <replacement>。

2、示例：

1) 将小写字母全部转成大写

#perl4-6.pl

my $zmb="abcde";

$zmb!~tr/[a-z]/[A-Z]/;#将小写转换成大写

print $zmb;

输出结果如下:

ABCDE

2)  简单加密数字。

#perl4-7.pl

#简单加密数字，0加密成e，1加密成f，2加密成g...以此类推

my $passnum=<stdin>;

$passnum!~tr/[0-9]/[e-n]/;#将数字转换成字母，实现简单加密

print "\n";

print $passnum;

运行后，我们随意输入一串数字:834235902

输出简单加密的信息：mhighjneg

1.     捕捉正则变量

我们使用模式串匹配字符串时，有时需要捕捉匹配到的字符串。

 

 

2.1         使用数字反引用捕捉

使用$数字的形式表示匹配到的正则变量，括号匹配顺序为匹配模式串从左至右。$1代表第1对括号匹配到的字串，$2代表第2对括号匹配到的字串，$3代表第3对括号匹配到的字串，以此类推。

 

use 5.010;

my $names='deep and future';

if ($names=~m/(\w+)  (and|or)  (\w+)/){

    #2个(\w+)分别匹配and前和and后的字符串(不包括空格)

say "我获得了$1 and $3";

# future不被$2匹配，因为一个括号代表可捕捉位置,#$2模式串为and|or

}

输出: 我获得了 deep and future

再看一个更复杂的例子：

#perl4-8.pl

use 5.010;

my $names='Hello,Beijing';

if ($names=~m/(\w+)(,)(\w+)/){

    #2个(\w+)分别匹配逗号前和逗号后的字符串(不包括空格)，匹配位置分别为$1和$3

say "我获得了$1 and $3"; #$1为 Hello ,$3为 Beijing

}

#注意下面这次匹配，我们把逗号前的字符串和逗号放在一对括号内

if ($names=~m/((\w+)(,))(\w+)/){

    #我们从左到右开始解读模式串((\w+)(,))(\w+)

    #首先遇到一个左括号，我们找到它对应的右括号

    #发现遇到的第一对括号内容为 ((\w+)(,))

    # 接着寻找遇到的第二对括号 (\w+)

    #然后是第三对括号 (,)

    #最后是第四对括号 (\w+)

say "我获得了$2 and $4"; #$2为 Hello ,$4为 Beijing

}

输出结果如下：

我获得了Hello and Beijing

我获得了Hello and Beijing

使用$数字的形式表示匹配到的正则变量，括号匹配顺序为匹配模式串从左至右。$1代表第1对括号匹配到的字串，$2代表第2对括号匹配到的字串，$3代表第3对括号匹配到的字串，以此类推。