使用TCL剥离URI路径的一部分

我是编程和TCL的新手。我正在研究利用tcl的F5病毒

基本上，我需要做的是去掉下面URI路径的第一部分（/Version_13.0.001/）：

/Version\u 13.0.001/hs/user/123

将最终结果URI设置为：

/hs/user/123

以下是我的基本逻辑，我将如何将其纳入我的以下代码中

  if { ([HTTP::path] contains "Version_13") } {
    pool version_13_pool }

您可以使用或拆分路径，删除索引1处的目录名，然后使用或

文件连接

但是，执行正则表达式搜索和替换似乎更简单：

set path "/Version_13.0.001/hs/user/123"
set newpath [regsub {^/Version_13[^/]*} $path ""]
puts $newpath     ; # => /hs/user/123

在这里，我们在字符串的开头找到“/Version_13”，后跟非斜杠字符，并将其替换为空字符串

或者使用命令查找第二个斜杠的索引，并从那里开始取子字符串：

set newpath [string range $path [string first / $path 1] end]