Perl 中的正则表达式

原帖地址:http://263.aka.org.cn/Lectures/002/Lecture-2.1.2/perl-reg.html

【正则表达式的三种形式】

首先我们应该知道 Perl 程序中，正则表达式有三种存在形式，他们分别是：
匹配：m/<regexp>/ （或 /<regexp>/ ，略去 m）
替换：s/<pattern>/<replacement>/
转化：tr/<pattern>/<replacemnt>/

这三种形式一般都和 =~ 或 !~ 搭配使用（其中 =~表示相匹配，在整条语句中读作does，!~表示不匹配，在整条语句中读作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中的所有大小写字母转换，如果转化发生了则返回"0"，否则返回 "1"。

另外还有：

foreach (@array)
{ 
    s/a/b/; 
} 
#此处每次循环将从@array数组中取出一个元素存放在$_变量中，并对$_进行替换处理。

while (<FILE>) 
{ 
   print if (m/error/); 
} 
#他将打印 FILE 文件中所有包含error 字符串的行。

请看下面的例子：


$string = "I love perl";
$string =~ s/(love)/<$1>/; # 此时 $1 = "love"，并且该替换的结果是将 $string 变为 "I <love>; perl"
$string = "i love perl";
$string =~ s/(i)(.*)(perl)/<$3>$2<$1>/;?

# 这里$1 = "i"，$2 = " love "，$3 = "perl"，并且替换后$string 变为 "<perl> love <i>"


替换操作 s/<pattern>/<replacement>/ 还可以在末尾加上 e 或 g 参数，他们的含义分别为：

s/<pattern>/<rep>/g?

#表示把待处理字符串中所有符合<pattern>的模式全部替换为<rep>字符串，而不是只替换第一个出现的模式。

s/<pattern>/<replacement>/e?

#表示将把<replacement>部分当作一个运算符，这个参数用的不多。


比如下面的例子：
$string = "i:love:perl";
$string =~ s/:/*/; ? ? ? ?#此时 $string="i*love:perl";
$string = "i:love: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 变成了"www44cgi44"。


下面给出一个完整的例子：

#!/usr/bin/perl -w 

print "请输入一个字符串!n";

my $string = <STDIN>; # <STIDN>;代表标准输入，会让使用者输入一字符串
chomp($string);    # 将$string最后一个换行的字符n删除掉

if($string =~ /perl/)
{
	print "输入的字符串中有 perl 这个字符串!n";
}

• 原则1:?正则表达式有三种不同形式(匹配(m/ /)，替换(s/ / /eg)和转换(tr/ / /))。
• 原则2:?正则表达式仅对标量进行匹配( $scalar =~ m/a/; 可以工作; @array =~ m/a/ 将把@array作为标量对待，因此可能不会成功)。
• 原则3:?正则表达式匹配一个给定模式的最早的可能匹配。缺省时，仅匹配或替换正则表达式一次( $a = 'string string2'; $a =~ s/string/ /; 导致 $a = 'string 2')。
• 原则4： 正则表达式能够处理双引号所能处理的任意和全部字符( $a =~ m/$varb/ 在匹配前把varb扩展为变量；如果 $varb = 'a' $a = 'as'，$a =~ s/$varb/ /; 等价于 $a =~ s/a/ /; ，执行结果使 $a = " s" )。
• 原则5： 正则表达式在求值过程中产生两种情况：结果状态和反向引用： $a=~ m/pattern/ 表示 $a 中是否有子串 pattern 出现，$a =~ s/(word1)(word2)/$2$1/ 则“调换”这两个单词。
• 原则6：正则表达式的核心能力在于通配符和多重匹配运算符以及它们如何操作。$a =~ m/w+/ 匹配一个或多个单词字符；$a =~ m/d/" 匹配零个或多个数字。
• 原则7： 如果欲匹配不止一个字符集合，Perl使用 "|" 来增加灵活性。如果输入 m/(cat|dog)/ 则相当于“匹配字符串 cat 或者 dog。
• 原则8： Perl用 (?..) 语法给正则表达式提供扩展功能。