tcl - 定义和循环遍历数组 tcl

Question

我需要一些帮助来定义数组以及在 TCL 中显示和循环它们。

这是我将如何在 php 中执行它们。

$date =array();
$size=0;
$date[$size] =$pre_event_date;
/* After doing some manpulation and calculations with $size */
for($i=0;$i<=$size;$i++){
    echo $date[$i];
}

我想用 tcl 做同样的事情。下面的代码合适吗？

set size 0
set date[$size] $pre_event_date
#After performing some manipulation
for {set i 0} { $i <=$size } {incr i} {
    puts "$date[$i]";
}

我也可以将 set $date 定义为数组。有些人喜欢:

set date array();

所以我编辑了我的代码，尝试使用 RSeeger 的数组实现进行一个简单的测试:

set date(0) 35
set date(1)  40
foreach key [array names date]{
   puts "${key}=$date($key)"
}

上面没有返回任何东西，可能有一些错误。
我也试过:
把 $date($key) 不带引号，但这也不起作用。

Answer 1

如果您想按数字(您的代码暗示)索引事物，请使用 list .它类似于 C 中的数组。

set mylist {}
lappend mylist a
lappend mylist b
lappend mylist c
lappend mylist d
foreach elem $mylist {
    puts $elem
}
// or if you really want to use for
for {set i 0} {$i < [length $mylist]} {incr i} {
    puts "${i}=[lindex $mylist $i]"
}

如果你想按字符串索引事物(或有一个稀疏列表)，你可以使用 array ，这是一个key->value的hashmap。

set myarr(chicken) animal
set myarr(cows) animal
set myarr(rock) mineral
set myarr(pea) vegetable

foreach key [array names myarr] {
    puts "${key}=$myarr($key)"
}