Perl正则匹配替换带可选句号的指定单词并统一输出格式

问题排查与正则修改思路 #

你现有正则的核心问题出在词边界的位置错误：
原写法\b(vs|etc)[.]?\b将第二个\b放在了可选句号的外侧，由于.属于非单词字符，当.后接空格、标点等其他非单词字符时，.和后续字符之间不存在单词边界，会导致带.的vs./etc.完全无法被匹配。

最终可用正则 #

调整为以下写法即可满足所有需求：

s/\b(vs|etc)\b\.?/\L$1./gir

逻辑说明 #

• 匹配规则调整：将单词边界\b放在可选句号之前，仅限制vs/etc本身作为独立单词存在，避免匹配到vscode、etc123这类嵌入在其他单词中的片段；末尾的\.?兼容带/不带句号的两种场景，不管原字符串有没有句号，都会被完整纳入匹配范围
• 替换规则说明：替换时直接将捕获到的vs/etc转小写后统一加句号即可，因为原字符串中自带的句号已经被整个匹配覆盖并替换，不会出现重复加句号的问题

匹配验证 #

所有目标场景均可正确匹配并输出合法结果：

• 输入vs → 输出vs.
• 输入Vs. → 输出vs.
• 输入VS → 输出vs.
• 输入etc → 输出etc.
• 输入Etc. → 输出etc.
• 输入ETC → 输出etc.

内容的提问来源于stack exchange，提问作者Alex Ixeras