Regex 如何在TCL中找出一个或多个字符在带有正则表达式的字符串中
我需要一个简单的解决方案来确定Tcl中的字符串中是否有一些字符。 我的想法是用正则表达式来实现 我的字符串看起来像：“Regex 如何在TCL中找出一个或多个字符在带有正则表达式的字符串中,regex,string,pattern-matching,tcl,Regex,String,Pattern Matching,Tcl,我需要一个简单的解决方案来确定Tcl中的字符串中是否有一些字符。 我的想法是用正则表达式来实现 我的字符串看起来像：“word\u word-word\u word-word”或“word.word.word.word”。 我的问题是，有时我得到的字符串包含和-，然后我需要调用另一个过程来处理它 现在又是一个问题，如果您只是想看看字符串是否包含，，，-之间的任何单词，那么如何判断字符串是否包含“-”或“..-”，-按照任意随机垃圾之间的顺序，我们可以用两种方法（您可以替换其他分隔符，但是需要在r
word\u word-word\u word-wordword.word.word.word-现在又是一个问题，如果您只是想看看字符串是否包含
-
之间的任何单词，那么如何判断字符串是否包含“-
”或“..-
”，-
按照任意随机垃圾之间的顺序，我们可以用两种方法（您可以替换其他分隔符，但是
需要在regexp中进行特殊处理；[.]
或\.
都可以）：
好的，从技术上讲，最后一个匹配（glob matching）匹配的东西稍有不同，但效果是相似的
然而，我不确定以上是你真正想要的。我猜你真的在找这个词
s？也可能是分离器
为了获得单词列表，我们使用了一种稍微不同的技术（不能使用\w
，因为它也匹配下划线，因为这在标识符中很常见）：
如果您也在寻找分隔符，最简单的方法是从Tcllib使用：
package require textutil::split
set tokenList [textutil::split::splitx $stringToMatchAgainst {([-_.])} ]
在最后一种情况下，输入字符串为word\u word\u word\u word-word
，它给出以下输出：
word _ word - word _ word _ word - word
如果您只是想看看字符串是否包含一个-
，-
，-
，-
，按顺序包含任意随机垃圾，我们可以用两种方法来实现（您可以替换其他分隔符，但是
需要在regexp中进行特殊处理；[.]
或.
都可以）:
好的，从技术上讲，最后一个匹配（glob matching）匹配的东西稍有不同，但效果是相似的
然而，我不确定以上是你真正想要的。我猜你真的在找这个词
s？也可能是分离器
为了获得单词列表，我们使用了一种稍微不同的技术（不能使用\w
，因为它也匹配下划线，因为这在标识符中很常见）：
如果您也在寻找分隔符，最简单的方法是从Tcllib使用：
package require textutil::split
set tokenList [textutil::split::splitx $stringToMatchAgainst {([-_.])} ]
在最后一种情况下，输入字符串为word\u word\u word\u word-word
，它给出以下输出：
word _ word - word _ word _ word - word
谢谢你的完美答案，这正是我想要的。谢谢你的完美答案，这正是我想要的。
word _ word - word _ word _ word - word