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

Question

你好，我有以下列表：

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

我想删除所有为空的元素。由于是列表的列表，我无法在单个循环迭代中完成。

有没有简单的方法来实现这个目标呢？

- vaichidrewar

---

你关心列表结构中的任何部分吗？例如，你想要整个列表被展平吗？还是只需要那些叶子节点为空字符串的部分？ - jk.

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}}}} \
              ]

- glenn jackman

Answer 2

你也可以尝试这个：

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

它不需要包含任何软件包。同样，它也可以重新应用。

- Larry Smith

Answer 3

来自Tclers Wiki（http://wiki.tcl.tk/440）：

将列表扁平化：

concat {*}$nested

可以多次应用：

proc flatten data { concat {*}$data }

set a {{a {b c}} {d {e f}}} ; # {a {b c}} {d {e f}} flatten $a ; # a {b c} d {e f} flatten [flatten $a] ; # a b c d e f

- abby sobh

Answer 4

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

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

- Hai Vu