linux perl 单例模式,Perl入门笔记-正则表达式

Learning Perl

第七章 正则表达式

正则表达式，Perl里面称为模式(pattern),用来表示匹配某个字符串的特征模板。

正则表达式与shell的文件名匹配通配符(glob)不同。

使用简单模式

若要匹配对象$_的内容，把模式卸载一组斜线就可以了。

$_ = "abc ab sd ed";

if (/ab/) {

print "It matched.\n";

}

Unicode属性

Unicode字符能够理解自身含义，除了匹配字符本身外，还根据字符的属性来达成匹配。

每个属性都有一个名字，要匹配某个属性，只要把属性名放入\p{PROPERTY}里面。比如空白符，属性名为Space，可以用\p{space}来匹配：

if (/\p{Space}/) {

print "The string has some whitespace.";

}

如果匹配数字，可以用Digit属性:

if (/\p{Digit}/) {

print "The string has a digit.";

}

匹配连续两个十六进制字符

if (/\p{Hex}\p{Hex}/) {

print "The string has a pair of hex digits.\n";

}

匹配不包含特定属性的字符，使用大写P，表示否定意义。

关于元字符 .

简单的量词 * + ？

模式分组，小括号，可以反向引用来引用圆括号中模式匹配的文字，成为捕获组(capture group)。反向引用的写法是在反斜线后面接上数字编号，比如\1,\2。相应的数字表示对应顺序的捕获组。

圆括号包括的点号匹配任意非换行符，反向引用\1来再次匹配圆括号内的任意字符：

if (/(.)\1/) {

print "It matche same char next to itself.\n";

}

反向引用不必紧跟在对应的捕获组括号后面。

也可以用多个括号分成多个分组，每组都有自己的反向引用。

if (/a(.)(.)\2\1/) {

print "It matche after y.\n";

}

区分那个括号是第几组，可以依次点算做括号的序号。

\111反向引用会匹配尽可能大的组号。

Perl5.10后支持\g{N}的写法。N为反向引用的组号。相对反向引用(relative back reference)可以支持负数编号。

择一匹配

竖线(|)读成或，执行效率取决于正则表达式引擎内建的优化策略。

字符集指的是一组可能出现的字符。[]可以匹配任意一个个字符。

连字符-表示始末范围。脱字符^表示除了这些字符之外。

大写\D\W\S，可以表示非数字，非单词，非空白符。

习题

1. 写一个程序，从输入中读取数据，遇到包含cao字符串的行就打印该行。

2. 修改上题程序，从输入中读取数据，遇到包含cao或Cao字符串的行就打印该行。

3. 写个程序，只输出输入中含有点号的每一行，如果没有就忽略。

4. 写个程序，输出含有要求单词的行。

答案

1.

while (<>)

if (/cao/) {

print;

}

2.

while (<>)

if (/[cC]ao/}

print;

}

3.

while (<>)

if (/\./) {

print;

}

4.

while (<>)

if (/[a-z][A-Z]/) {

print;

}s