Perl 正则表达式匹配出现的冒号（如果存在）

Question

如果第一个单词包含“Blue”，我想正则表达式匹配字符串中的任何字母/数字/下划线字符以及双冒号。

例如，

Blue Red Yellow //return Red
Blue Red::Orange Yellow //return Red::Orange
Purple Red Yellow //return nothing
Blue R_E_D //return R_E_D 
Red Blue //return nothing 
Blue.ish Yellow //return Yellow

我试过/Blu\S+\s+(\w+)/它适用于除::案例之外的所有案例。 如何在检查w+以匹配双冒号以及如果存在时添加匹配项，而不必强制我的正则表达式仅在存在::时才匹配。

Answer 1

您可以使用捕获组并重复单词 char 或:

^Blue\b\S*\h+([\w:]+)

模式匹配：

• ^或者如果不是在开头使用\b
• Blue\b\S*匹配单词Blue和可选的非 whitspace cahrs
• \h+匹配 1+ 个空格
• ([\w:]+)在第 1 组中捕获 1+ 个单词字符或:

正则表达式演示

或使用\K清除匹配缓冲区：

^Blue\b\S*\h+\K[\w:]+

正则表达式演示

如果单词不能以冒号开头，但应在其间有::并且Bluebird也应匹配，如@ikegami的评论中所述：

\bBlue\S*\h+\K\w+(?:::\w+)*

正则表达式演示