Perl 正则详述

模式匹配，在字符串中寻找特定序列的字符

指定模式：由斜线包含，/def/即模式def。

匹配操作符 =~、!~

模式匹配的3种类型：

m//模式匹配，s///匹配并替换（类似linux的sed命令），

tr///逐一替换，翻译

+: 一个或多个相同的前导字符(模式). 如:/de+f/ 匹配的是def,deef,deeeef等。

如/d[eE]+/,匹配de,dee,dE,dEE,deE,dEe.

* 匹配0个,1个或多个相同字符

？ 匹配0个或1个该前一个字符

. 匹配除换行外的所有单个字符,通常与*合用

.* 所有任意数量字符。 与前一字符结合,可不出现字符。

贪婪规则和懒惰规则:

贪婪规则: 尽量匹配尽可能多的相同字符,如/ab+/ 在字符串中匹配abbc中匹配的将是abb 而不是ab.

若表达式中出现两个重复符号,perl 遵守贪婪规则

[grid@devrac1 ~]$ cat a1.pl

$_="a xxx c xxxx c xxxx d";

if ( $_ = ~ /a.*c.*d/){print "111111\n"};

[grid@devrac1 ~]$ perl a1.pl

111111

“.*”会和第二个c之前的所有字符符合。

* + ? 都是贪婪的

在重复符号后加个问号，可以让它变得不贪心：

/a.*?c.*d/;

"a.*?c"会和最少的a,c之间字符匹配

[grid@devrac1 ~]$ cat a1.pl

$data='abbbbbbbbbbbbg';

if ($data =~ /ab(.+?)g/){print "1111\n"};

[grid@devrac1 ~]$ perl a1.pl

1111

.+

.*? 0个或多个字符开始匹配

.+? 表示至少一个字符

.+?

??

[grid@devrac1 ~]$ cat a1.pl

$data='abbbbbbbbbbbbgabbbbbbbbg';

if ($data =~ /ab(.*)g/){print "$1\n"};

[grid@devrac1 ~]$ perl a1.pl

bbbbbbbbbbbgabbbbbbbb

这里的$1 表示模式1

懒惰规则：模式匹配只要找到一个就停止。不再继续匹配

[grid@devrac1 ~]$ cat a1.pl

$data='abbbbbbbbbbbbgabbbbbbbbg';

if ($data =~ /ab(.*?)g/){print "$1\n"};

[grid@devrac1 ~]$ perl a1.pl

bbbbbbbbbbb