在TCL中拆分字符串

Question

我在我们的F5服务器上编写了一个iRule，但是对于TCL我是一个完全的初学者。

我有一个HTTP::host变量，其中包含以下格式的主机名：application-dev.com

我想要做的就是将此字符串拆分为连字符，并将第一和第二部分设置为单独的变量。所以我最终会这样：

variable1 = application
variable2 = dev.com

我已经走到这一步了：

set hostSections [split [HTTP::host] "-"]

但无法找到有关如何将这些部分分配给单独变量的任何信息

Answer 1

您可以对旧版本的Tcl使用lindex（列表索引）：

set variable1 [lindex $hostSections 0]
set variable2 [lindex $hostSections 1]

由于列表是0索引的，0将指示列表的第一个元素。

在Tcl 8.5及更高版本中，您可以使用lassign缩短时间：

lassign [split [HTTP::host] "-"] variable1 variable2

两种方式都将值存储在变量名称variable1和variable2中。