配列を定義し、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)を置きますが、それも機能しません。