Perl 语言编程 - Linux教程

m/\w+: (\s+ \w+) \s* \d+/x; # 一 个 词 , 冒 号 , 空 白 , 词 , 空 白 , 数 字 。m{\w+: # 匹 配 一 个 词 和 一 个 冒 号 。( # 分 组 开 始 。\s+ # 匹 配 一 个 或 多 个 空 白 。\w+ # 匹 配 另 外 一 个 词 。) # 分 组 结 束 。\s* # 匹 配 零 或 更 多 空 白 。\d+# 匹 配 一 些 数 字}x;我 们 会 在 本 章 稍 后 描 述 这 些 元 符 号 。( 本 节 本 来 是 讲 模 式 修 饰 词 的 , 但 是 我 们 却 因 为 对 /x 过于 兴 奋 而 超 出 了 我 们 的 控 制 。) 下 面 是 一 个 正 则 表 达 式 , 它 找 出 一 个 段 落 里 面 的 重 复 的 词 ,我 们 从 Perl Cookbook 里 直 接 把 这 个 例 子 偷 了 出 来 。 它 使 用 /x 和 /i 修 饰 词 , 以 及 后 面描 述 的 /g 修 饰 词 。# 找 出 段 落 里 面 的 重 复 的 单 词 , 可 能 会 跨 越 行 界 限 。# 将 /x 用 于 空 白 和 注 释 ,/i 以 匹 配 在 "Is is this ok?" 里 的 两 个 `is'# 用 /g 找 出 所 有 重 复 。$/ = ""; # "paragrep" 模 式while( ) {while ( m{\b # 从 字 边 界 开 始(\w\S+)# 找 出 一 个 字 块(154