perl中正则表达式.docVIP

perl中的正则表达式 原作者：张敬春 创建者：张敬春 原文出自： http://263./Lectures/002/Lecture-2.1.2/perl-reg.html 感谢AKA及作者。   9????Perl?中的正则表达式 正则表达式的三种形式?  正则表达式中的常用模式?  正则表达式的?8?大原则?  ??  ????　　正则表达式是?Perl?语言的一大特色，也是?Perl?程序中的一点难点，不过如果大家能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在?CGI?程序设计中就更能得心应手了。下面我们列出一些正则表达式书写时的一些基本语法规则。   --------------------------------------------------------------------------------  9.1?正则表达式的三种形式 首先我们应该知道?Perl?程序中，正则表达式有三种存在形式，他们分别是：  匹配：m/regexp;/?（还可以简写为?/regexp;/?，略去?m）  替换：s/pattern;/replacement;/  转化：tr/pattern;/replacemnt;/  这三种形式一般都和?=~?或?!~?搭配使用（其中?=~?表示相匹配，在整条语句中读作?does，!~?表示不匹配，在整条语句中读作?doesnt），并在左侧有待处理的标量变量。如果没有该变量和?=~?!~?操作符，则默认为处理?$_?变量中的内容。举例如下：  $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?字符串的行。  Perl?的正则表达式中如果出现?()?，则发生匹配或替换后?()?内的模式被?Perl?解释器自动依次赋给系统?$1,?$2?......?请看下面的例子：  $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;/replacement;/g?表示把待处理字符串中所有符合?pattern;?的模式全部替换为?replacement;?字符串，而不是只替换第一个出现的模式。 s/pattern;/replacement;/e?表示将把?replacemnet;?部分当作一个运算符，这个参数用的不多。  比如下面的例子：  $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?变成了?www44cgi88。  下面给出一个完整的例子：  #!/usr/bin/perl