如何在TCL中使用正则表达式找出字符串中的一个或多个字符

Question

我需要一个简单的解决方案来确定某些字符是否在 Tcl 中的字符串中。 我的想法是用正则表达式来做到这一点。

我的字符串看起来像：“word_word-word_word_word-word”或“word.word.word.word-word”。 我的问题是，有时我得到包含 . _ 和 - 的字符串，然后我需要调用另一个过程来处理它。

现在又是一个问题，如何判断字符串中包含“_-_-”或“...-”以及 之间的任何单词_ . -

Answer 1

如果您只是想查看字符串是否按顺序包含 _、-、_、-之间有任意随机垃圾，我们可以通过两种方式做到这一点（您可以替换其他分隔符，但是 . 需要在正则表达式中进行特殊处理；[.] 或 >\. 就可以了）：

regexp {_.+-.+_.+-} $stringToMatchAgainst

string match {*_*-*_*-*} $stringToMatchAgainst

好的，从技术上讲，最后一个（是全局匹配）匹配的内容略有不同，但效果相似。

但是我不确定以上内容是您真正想要的。你猜你真的是在寻找这个单词吗？也可能是分隔符。

为了获取单词列表，我们使用了一种稍微不同的技术（不能使用 \w 因为它也匹配下划线，因为这在标识符中很常见）：

set wordList [regexp -all -inline {[a-zA-Z0-9]+} $stringToMatchAgainst]

如果您也在分隔符之后，最简单的方法是使用 textutil::split::splitx 来自Tcllib：

package require textutil::split
set tokenList [textutil::split::splitx $stringToMatchAgainst {([-_.])} ]

在最后一种情况下，输入字符串为 word_word-word_word_word-word 时，它会给出以下输出：

word _ word - word _ word _ word - word