如何在 tcl 中使用 split 删除不需要的字符

Question

示例

Interface {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} IP-Address {} {} {} {} {} OK? Method Status {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {Protocol
FastEthernet0/0} {} {} {} {} {} {} {} {} {} {} {} unassigned {} {} {} {} {} YES unset {} administratively down down {} {} {} {
FastEthernet0/1} {} {} {} {} {} {} {} {} {} {} {} unassigned {} {} {} {} {} YES unset {} administratively down down

这是我想要删除其中的 {} 的 。
我假设了上述所有字符串接口变量

set interface [string trimright [string trimleft $interface "{}"] "{}"]

，但它不起作用。如何删除我的示例中的 {}？

Answer 1

这是你可以做的：

set y "Interface {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} IP-Address {} {} {} {} {} OK? Method Status {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {Protocol FastEthernet0/0} {} {} {} {} {} {} {} {} {} {} {} unassigned {} {} {} {} {} YES unset {} administratively down down {} {} {} {FastEthernet0/1} {} {} {} {} {} {} {} {} {} {} {} unassigned {} {} {} {} {} YES unset {} administratively down down"

set y [regsub -all ({}\ )+ $y ""]

这是结果：

Interface IP-Address OK? Method Status {Protocol FastEthernet0/0} unassigned YES unset administratively down down {FastEthernet0/1} unassigned YES unset administratively down down

Arpan

Answer 2

我同意杰克逊的观点，您的数据非常像是一个列表（结构化数据）。你能确定数据的结构是什么吗？如果可以，那么您可以获取列表中的数据并正确解释这些值...并且 {} 部分很可能是没有值的字段。对于（简化的）示例：

set data {
    Person Steve Smith employee
    Position employee Employee 40
}

while {[llength $data] > 0} {
    set type [lindex $data 0]
    set data [lrange $data 1 end]
    switch -exact -- $type {
        Person {
            set first_name [lindex $data 0]
            set last_name [lindex $data 1]
            set position_shortname [lindex $data 2]
            set data [lrange $data 3 end]
        }
        Position {
            set shortname [lindex $data 0]
            set hourperweek [lindex $data 1]
            set data [lrange $data 2 end]
        }
        default {
            error "Unknown data type $type"
        }
    }
}

显然，数据和代码有点后悔（我使用了非常简单的代码来让我在做什么变得显而易见），但这个想法应该是可以理解的。

话虽如此，我“感觉”你的数据在某种程度上是“错误的”......就像有几个地方缺少大括号（例如 FastEthernet0/0 和 0/1 都应该是 Protocol 的子级） ， ETC。）

Answer 3

你所看到的看起来像是 TCL 列表而不是字符串。因此，将数据视为列表，您可以这样做：

set data [list a b {} {} e f {} {} g {}]
puts $data

set res {}
foreach ele $data {
    if { $ele != {}} {lappend res $ele}
}

puts $res

Answer 4

我怀疑你正在这样做：从一个字符串开始并尝试将其拆分为单词，只有 Tcl 的 split 命令生成一个包含大量空值的列表：

set input "Interface                  IP-Address      OK? Method Status                ProtocolFastEthernet0/0            unassigned      YES unset  administratively down down    FastEthernet0/1            unassigned      YES unset  administratively down down"
set fields [split $input]  ;# ==> Interface {} {} {} ...

Tcl's split默认情况下按单个空白字符拆分（与按连续空白字符拆分的 awk 或 perl 不同）。

您可以选择一些让您的生活更轻松的选择：

1）使用 regexp 查找所有“单词”

set fields [regexp -inline -all {\S+} $input] 

2）使用 textutil 包作为 split 命令，其行为就像您期望的那样：

package require textutil
set fields [textutil::splitx $input]