我想通过编写正则表达式来获取以 abc_ 或 xyz_ 开头的字符串中的单词。 这是我的脚本：
[regexp -nocase -- {.*\s+(abc_|xyz_\S+)\s+.*} $str all necessaryStr]
因此，如果我在 str1 和 str2 上应用上述编写的正则表达式，我想从 $str1 中获取“xyz_hello”，从 $str2 中获取“abc_bye”。
set str1 "gfrdgasjklh dlasd =-0-489 xyz_hello sddf 89rn sf n9"
set str2 "dytfasjklh abc_bye dlasd =-0tyj-489 sddf tyj89rn sjf n9"
但是我的正则表达式不起作用。我的问题是：
1) 我的正则表达式有什么问题？ 2) 用正则表达式找一些预定义前缀开头的作品好还是用字符串函数（字符串匹配左右）更好？
【问题讨论】：
标签： regex string tcl string-matching
在您的问题中不清楚什么是单词。是否允许进一步下划线？允许数字吗？ “仅由前缀组成的单词”怎么样，例如“abc_”还是“xyz”？
做出保守的假设（根据您的示例），您只需要英文字母表中的字母，至少还有一个字符，并且您不关心大小写，您可以简化您的正则表达式：
[regexp -nocase -- {\m(abc_|xyz_)[a-zA-Z]+} $str match]
这会将match 设置为匹配的单词。如果您对单词的定义与我的假设不同，您可以替换方括号的内容。
关于是否更喜欢正则表达式而不是字符串函数的第二个问题将取决于上下文，并可能导致主观领域。
需要考虑的一些事项：
我的建议是使用您最熟悉的那个。为您的代码编写一组良好的单元测试，然后仅当您在分析期间发现瓶颈时才进行优化。
【讨论】：
\m 或\y 以确保您匹配单词的开头——因为它会匹配“zzzabc_zzz "
根据您所写的内容，您似乎是以abc_ 或xyz_（无论如何）开头的单词，之后只有字母。匹配这个的一个很好的第一次尝试是这样的：
regexp -nocase -- {\y(?:abc_|xyz_)[a-z]+} $str match
它的特点是：
\y 表示这只匹配单词开头（理论上也是单词结尾，但我们在所有情况下都跟在一个字母后面！）(?:…) 正在分组而不捕获\w 或\S 而不是[a-z]，但这些确实会改变匹配内容的语义（\w 会告诉你程序标识符中通常允许哪些符号，\S 会给你非空格）。【讨论】：
我已经解决了： [regexp -nocase -- {.*\s+((abc_|xyz_)\S+)\s+.*} $str all requiredStr ]
但仍然想知道正则表达式是最好的解决方案还是字符串函数更好（更快、方便、灵活）。
【讨论】：