perl: 正则表达式

正则表达式:

正则表达式在perl叫模式，是一个匹配某字符串的模板。

perl的正则表达式和shell/awk/sed/grep的差不多。

 

m/pattern/       运算模式匹配：

/pattern/就是m/pattern/的简写，

定界符//可以换成别的符号（[{<#$%等等，

如果用//开头的m可以省略，其他符号m不能省略。

定界符应该选择模式中不会出现的字符。

 

Perl中的正则表达式的修饰符：

/pattern/i     用i来匹配不用区分大小写。

/pattern/s     用s来匹配任意字符。

/pattern/x    用x来表示可以在模式中随意加上空白：

Pattern中的空白都回被忽略，可以用\s来匹配空白。

Perl中的注释也是空白。

 

if   (m{

    Pattern1   #comment1

    Pattern2   #comment2

}six) {

    …

}

 

Perl的反向引用：

\n 表示对哪个分组的引用，分组数为//中的左括号的位置。

/(.)\1/    表示匹配连续出现的两个同样的字符，\1是对第一组的引用。

/x(...)y1\/   表示x之后的三个字符在y之后再出现一次，也就是x...y...

/x(.)(.)\2\1/   分别对第一组和第二组的引用，\2表示对第二个分组的引用。

/x((.)(.)\3\2)y\1/   用到了三个分组。

 

新版perl可以使用反向引用：

\g{N}   用N表示哪个分组。

 

默认的匹配对象是$_。

“string” =~   /pattern/   #使用=~绑定操作符指定匹配的对象。

$res = <STDIN> =~/pattern/;    #如果匹配到$res=1,否则为空

 

捕获变量：

$n 用来表示 /pattern/ 中从左到右第n个括号中的内容。

$n这些捕获变量只有在下次匹配成功时才会被重置。

（？：pattern）使用？：表示这个括号不捕获，只是分组，$n不计数。

if ($str =~ /pattern/) {

    my $match = $1;    #将捕获的字符串保存起来以便以后使用。

} else {

    …         #如果匹配失败，$n保存的还是上次的值。

}

 

新版perl可以使用命名捕捉：

加标签的方法   /(?<LABEL>PATTERN) /

捕捉的结果进入特殊哈希%+

键：标签 ， 值：就是捕捉的字符串。

LABEL自己命名，访问的值为$+{LABEL}

新版的反向引用还可以用： \g{LABEL} 等效于 \k<LABEL>

 

自动匹配变量：

$& 用来存放/pattern/里实际匹配到的部分。

$` 用来存放匹配起始位置之前的字符串。

$'   保存了字符串中从来没有被匹配到的部分。

 

while (<>) {

    chomp;

    if (/YOUR_PATTERN_GOES_HERE/) {

        print “Matched:|$`<$&>$'|\n”;

    } else {

        print “No match: |$_|\n”;

    }

}

 

s/pattern1/pattern2/   运算替换操作：

s/pattern1/pattern2/；         #用pattern2替换掉pattern1匹配到的内容。

s///   替换成功返回真，否则返回假。

s操作的的定界符也可以是任意字符。

s#pattern1#pattern2#;

s{pattern1}{pattern2};

s[pattern1]<pattern2>;

 

s替换操作的修饰符：

s/pattern1/pattern2/g；    #g表示全局替换。

s/^\s/+|\s+&//g;    #去掉开头和结尾的空白。

i    表示不去分大小写

s    表示匹配任意字符。

m   可以匹配行内的换行符

 

s操作的默认字符串也是$_，还可以绑定操作符：

$filename =~ s#^.*/##s;    #去掉路径获取文件名

 

大小写转换：

下面操作适用于双引号内的字符串。

s/pattern1/\Upattern2/;    #将pattern2转换成大写。

s/pattern1/\Lpattern2/;    #将pattern2转换成小写。

s/pattern1/\Upattern2\Epattern3/;    #只将pattern2转换成大写。

s/pattern1/\Lpattern2\Epattern3/;    #只将pattern2转换成小写。

s/pattern1/\upattern2/;    #将pattern2的第一个字符大写。

s/pattern1/\lpattern2/;    #将pattern2的第一个字符小写。

 

贪婪量词：

尽可能匹配更多

*

+

？

{n}

{n,}

{n,m}

 

非贪婪量词：

尽可能匹配更少

*?

+?

？？

{n}?

{n,}?

{n,m}?

 

一次更新多个文件：

$^I    表示备份文件的扩展名。

 

在命令行进行编辑：

perl   -p  -i.bak   -w   -e  's/pattern1/pattern2/g'  fred*.dat

将所有fred*.dat文件中的pattern1全部改成pattern2，备份文件为*.bak.

 

~~  智能匹配:

use    5.010;

智能匹配优先级：

%a ~~ %b

%a ~~ @b

%a ~~ /Fred/

%a ~~ ‘Fred’

@a ~~ @b

@a ~~ /Fred/

@a ~~ 123

@a ~~ ‘Fred’

$name ~~ undef

$name ~~ /Fred/

123 ~~ ‘123.0’

‘Fred’ ~~ ‘Fred’

123 ~~ 456

 

自动在hash中匹配键：

say “I found a key matching‘Fred’.\n”

    if  %name   ~~   /Fred/;

 

比较两个数组大小：

say “The array have the sameelements!\n”

    if   @arr1    ~~    @arr2;

 

判断结果是否在集合中：

say “Ths $result is one ofthe input values @nums!\n”

    if @nums  ~~   $result;

 

split   /PATTERN/[, EXPR,LIMIT]]:

将模式作为分隔符拆分字符串到列表中，返回列表或列表长度,

split会保留开头的空白，忽略结尾的空白，

split默认用空白分割$_.

my@arr = split;   # ==   split /\s+/, $_;

 

join    EXPR, LIST:

将字符串expr作为分隔符插入到列表中组成一个新的字符串并返回。

 

pos

quotemeta

study

qr//