Tcl脚本来纠正我的输出

Question

我写了一个Tcl代码，它给了我如下的输出。我非常接近我需要的东西。 代码：

for { set row 0 } { $row < 3 } {incr row } { 
set row[expr {$row + 1}] [lindex $sub_list $row] 
puts "row[expr {$row + 1}] [lindex $sub_list $row]" 
set pattern_number [llength [lindex $sub_list $row]] 
puts "pattern_number = $pattern number" 
set pattern_index [lindex $sub_list $row] 

    for {set p 0} { $p < $pattern_number} {incr p} { 
     set pattern[expr {$p + 1}] [lindex $pattern_index $p] 
     puts "pattern[expr {$p + 1}] [lindex $pattern_index $p]" 
    } 

} 

上面的代码的输出：

Row1 A B C D 
pattern number = 4 
pattern1 A 
pattern2 B 
pattern3 C 
pattern4 D 

Row2 P Q R S 
pattern number = 4 
pattern1 P 
pattern2 Q 
pattern3 R 
pattern4 S 

Row3 W X Y 
pattern number = 3 
pattern1 W 
pattern2 X 
pattern3 Y 

相反，我想要的代码给我的输出如下：

Row1 A B C D 
pattern number = 4 
pattern1 A 
pattern2 B 
pattern3 C 
pattern4 D 

Row2 P Q R S 
pattern number = 4 
pattern5 P 
pattern6 Q 
pattern7 R 
pattern8 S 

Row3 W X Y 
pattern number = 3 
pattern9 W 
pattern10 X 
pattern11 Y 

请建议我应该怎么办

Answer 1

1. 使用foreach
2. 不要复位变量

所以，你的代码就变成了：

set rownr 0 
set patnr 0 
foreach row $sub_list { 
    incr rownr 
    puts "Row$rownr $row" 
    puts "pattern number = [llength $row]" 
    foreach pattern $row { 
     incr patnr 
     puts "pattern$patnr $pattern" 
    } 
} 

如果您想进一步处理这一点，让我知道你需要这一点。
（我假设你并不是真的想动态地生成变量名称。）