如何从 tcl 列表中删除空元素

Question

你好 我有以下清单

% 设置 qprList {{{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} 12345 {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} 12345 {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} 12345 {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} 12345 {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}} {{}}}

我想删除所有空元素。由于列表列表是我无法在单循环交互中完成的。

有什么简单的方法可以实现这一目标吗？

Answer 1

该列表中没有空元素。看起来空的可以被认为是（a）字符串“{}”或（b）具有一个元素的列表，该元素是空字符串或空列表。

package require struct::list
set non_empty [struct::list filter \
                 [struct::list flatten $qprList] \
                 {apply {{x} {expr {[string length $x] > 0}}}} \
              ]

Answer 2

您也可以尝试这个：

set listwithoutnulls [lsearch -all -inline -not -exact $listwithnulls {}]

它不需要包含包。它也可以重新应用。

Answer 3

来自 Tclers Wiki (http://wiki.tcl.tk/440)：

要展平列表：

连接{*}$嵌套

可以多次应用：

proc 展平数据 {
连接{*}$数据
}

设置一个 {{a {bc}} {d {ef}}} ； # {a {bc}} {d {ef}}
压平 $a ； # a {bc} d {ef}
压平[压平$a]； # abcde f

Answer 4

我也使用 struct::list 因为我很懒：

package require struct::list
set non_empty [struct::list flatten -full $qprList]