perl中的正则表达式

《perl中的正则表达式》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、perl中的正则表达式原作者：张敬春创建者：张敬春原文出自：http://263.aka.org.cn/Lectures/002/Lecture-2.1.2/perl-reg.html感谢AKA及作者。9    Perl 中的正则表达式正则表达式的三种形式 正则表达式中的常用模式 正则表达式的 8 大原则       　　正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果大家能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在 CGI 程序设计中就更能得心应手了。下面我们列出一些正则表达式书写时的一些基本语法规则。

2、--------------------------------------------------------------------------------9.1 正则表达式的三种形式首先我们应该知道 Perl 程序中，正则表达式有三种存在形式，他们分别是：匹配：m/;/ （还可以简写为 /;/ ，略去 m）替换：s/;/;/转化：tr/;/;/这三种形式一般都和 =~ 或 !~ 搭配使用（其中 "=~" 表示相匹配，在整条语句中读作 does，

3、"!~" 表示不匹配，在整条语句中读作 doesn't），并在左侧有待处理的标量变量。如果没有该变量和 =~ !~ 操作符，则默认为处理 $_ 变量中的内容。举例如下：$str = "I love Perl";$str =~ m/Perl/; # 表示如果在 $str 中发现 "Perl" 字符串，则返回 "1" 否则返回 "0"。$str =~ s/Perl/BASH/; # 表示将变量 $str 中的 "Perl" 字符串替换为 "BASH"，如果发生此替换则返回 "1"，否则返回 "0"。$str !~ tr/A-Z/a-z/; # 表示将变量 $str 中的

4、所有大写字母转化为小写字母，如果转化发生了则返回 "0"，否则返回 "1"。另外还有：foreach (@array) { s/a/b/; } # 此处每次循环将从 @array 数组中取出一个元素存放在 $_ 变量中，并对 $_ 进行替换处理。while (;) { print if (m/error/); } # 这一句稍微复杂一些，他将打印 FILE 文件中所有包含 error 字符串的行。Perl 的正则表达式中如果出现 () ，则发生匹配或替换后 () 内的模式被 Perl 解释器自动依次赋给系统 $1, $2 ...... 请看下面的例子：$

5、string = "I love perl";$string =~ s/(love)/<$1>;/; # 此时 $1 = "love"，并且该替换的结果是将 $string 变为 "I ; perl"$string = "i love perl";$string =~ s/(i)(.*)(perl)/<$3>;$2<$1>;/; # 这里 $1 = "i"，$2 = " love "，$3 = "perl"，并且替换后 $string 变为 "; love ;"替换操作 s/;/;/ 还可以在

6、末尾加上 e 或 g 参数，他们的含义分别为：s/;/;/g 表示把待处理字符串中所有符合 ; 的模式全部替换为 ; 字符串，而不是只替换第一个出现的模式。s/;/;/e 表示将把 ; 部分当作一个运算符，这个参数用的不多。比如下面的例子：$string = "i:love:perl";$string =~ s/:/*/; #此时 $string="i*love:perl";$string = "i:love:

7、perl";$string =~ s/:/*/g; #此时 $string="i*love*perl"; $string =~ tr/*/ /; #此时 $string="i love perl"; $string = "www22cgi44";$string =~ s/(d+)/$1*2/e; # (/d+)代表 $string 中的一个或多个数字字符，将这些数字字符执行 *2 的操作，因此最后 $string 变成了 "www44cgi88"。下面给出一个完整的例子：#!/usr/bin/perlprint"请输入一个字符串!";$string = <