如何在 TCL 中创建并迭代哈希值的哈希值?
如果我有这样的数据:
foo = {
a => {
aa => { aa1 aa2 aa3 }
ab => { ab1 ab2 ab3 }
ac => { ac1 ac2 ac3 }
}
b => {
ba => { ba1 ba2 ba3 }
bb => { bb1 bb2 bb3 }
bc => { bc1 bc2 bc3 }
}
c => {
ca => { ca1 ca2 ca3 }
cb => { cb1 cb2 cb3 }
cc => { cc1 cc2 cc3 }
}
}
如何通过一次插入一个叶节点数据项来创建这样的散列。就像是:
lappend foo(a)(ab) "ab1"
那么如何迭代所有数据元素呢?喜欢:
foreach key in foo {
foreach sub_key in foo($key) {
foreach elem in foo($key)($sub_key) {
puts "foo\($key\)\($sub_key\) is $elem"
}
}
}
编辑 :
不幸的是,我无法访问较新的“dict”结构。
假设您使用的是 Tcl 8.5+,则可以使用字典:
定义字典很简单:
set foo {
a {
aa { aa1 aa2 aa3 }
ab { ab1 ab2 ab3 }
ac { ac1 ac2 ac3 }
}
b {
ba { ba1 ba2 ba3 }
bb { bb1 bb2 bb3 }
bc { bc1 bc2 bc3 }
}
c {
ca { ca1 ca2 ca3 }
cb { cb1 cb2 cb3 }
cc { cc1 cc2 cc3 }
}
}
或者以编程方式定义它:
set foo [dict create]
foreach first {a b c} {
dict update foo $first subdict {
foreach second {a b c} {
foreach third {1 2 3} {
dict lappend subdict "$first$second" "$first$second$third"
}
}
}
}
并输出它:
dict for {key1 subdict} $foo {
dict for {key2 list} $subdict {
foreach elem $list {
puts "$key1\t$key2\t$elem"
}
}
}
edit:将数组解决方案(非字典)移至单独的答案。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)