在 Tcl RegExp 上需要帮助

Question

我想匹配如下所示的模式，它是一个环境变量，后跟一个目录名称。我想完全匹配这两个词。如果匹配则返回 1。

$::env(WORK)/bill/

如何在 TCL 中使用 regexp 做到这一点？
我是新手，所以任何帮助表示赞赏。 谢谢。

我已经试过了，它可以工作：

if {![file isdirectory "${::env(WORK)}/bill/"]} {} else { return 1} 

使用 RE： 正则表达式 {^(bill)$} 用于第二个单词。第一个词，因为它是环境变量，所以我卡在那里

Answer 1

让我们看看我是否理解你的问题。你有一个 Tcl 字符串并且你想匹配一个模式 $::env(something)/somethingelse/ 识别 something 和 somethingelse 部分。

如果是这样，那么你想使用somethink like

set str {$::env(WORK)/bill/}
if {[regexp {\$::env\((.+)\)/(.+)/} $string -> envName dirName]} {
    puts $envName
    puts $dirName
}

你应该有

WORK
bill

打印在您的终端上。

在regexp 命令中，该模式包含在{} 中以避免Tcl 替换。它以转义的美元 \$ 开头，因为美元将匹配行尾。然后是文字::env。然后转义括号 \(...\) 以匹配数组语法。在它们中，我们有一个捕获原子(.+)，用于匹配任何重复一次或多次的字符，并报告。然后跟随文字斜线/.../ 和第二个捕获原子(.+) 以匹配目录部分。

-> 是一个变量的名称，它将包含$str 中与模式匹配的所有内容（您可以通过使用puts ${->} 打印它来查看它），但在这种情况下不需要它，所以我们使用奇怪的名字。

然后是两个 var 名称，envName 和 dirName，它们将分别报告第一个和第二个原子 (.+) 的匹配（括号除外）。

编辑对于非贪婪匹配，正如 Donal Fellows 所指出的，您可以使用 (.+?) 而不是 (.+)，我同意这是一个不错的添加。

我希望这能满足您的需求。