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