Perl 中的模式匹配修饰符

修饰符	作用
/a	按照 ASCII 的语义展开
/u	按照 Unicode 的语义展开
/l	按照 Locale 的语义展开
/d	按照 “传统” 行为，即 Perl 自己的推断对字符意义做出最为妥帖的阐释
/i	进行大小写无关的匹配
/s	匹配任意字符
/x	加入空白符（便于模式的阅读

/a ：
对一些使用频率较高的字符集，Perl 提供了简写，但由于 Unicode 下字符集包含的字符远远多于 ASCII 下的字符集，为了让模式严格按照 ASCII 的范围来匹配，需要追加 ‘/a’ 来对模式进行修饰：

if (/HAL-[\d]+/) {
    # 匹配除了 ASCII 里面的 0 到 9 之外
    # 还能匹配其他语言中的数字字符，比如蒙古文或泰文计数
}

if (/HAL-[\d]+/a) {
    # 按照 ASCII 字符语义解释
}

/i：
用于实现大小写无关的模式匹配：

if (/yes/i) {
    # 匹配 YES、yes、Yes 等大小写组合
}

/s：将模式中的每个点号转换成字符集 [\d\D]，这样就能匹配到包括换行符在内的任意字符。

$_ = "I saw Barney\ndown at the bowling alley\nwith Fred\nlast night.\n";

if (/Barney.*Fred/s) {
    # 没有 /s 上面的判断就会失败
    # 因为点号（.）无法匹配换行符
}

/x：允许在模式里随意加上空白符从而更易阅读、理解：

if (/-?[0-9]+\.?[0-9]*/) {
}

if (/-? [0-9]+ \.? [0-9]* /x) {
}

多个修饰符可以组合在一起使用，只需要把它们接在一起写在模式末尾即可，并且不需要考虑先后顺序：

if (/barney.*fred/is) {
    # 同时使用 /i 和 /s
}