TCL 语言的 foreach 学习笔记

#for 表示循环   foreach
#例子
 for { set i 0 } { $i < 2 } { incr i} {
       puts " 我喜欢ac $i "
     }

 foreach 循环

 set vlan { 1 2 3 4 }
 set number { a b c d e f g } 
 foreach vlan1  $vlan {
      puts " 这是测试循环代码 $vlan "
   }


foreach  vlan1 $vlan number1 $number {
 
    puts "number1:$number->vlan1:$vlan1"
}


set numbers {1 2 3 4 5}
set values {a b c d e f g h}
foreach {i j k} $values {
	puts "$i--$j--$k"
}
foreach number $numbers {i j} $values {
	puts "$number--$i--$j"
}

（1）foreach还可以同时循环多个列表。每个列表都有一个与之对应的循环变量。在每次迭代时都会将list中的值分配给对应的varlist。list中的每个值会按顺序使用一次。最大迭代次数为list的最大元素数，从而保证list中的值一地你给会被迭代一次。如果列表中的值已经分配完毕，但是循环未结束，则使用空字符串填充对应的循环变量。
（2）list中的值每次可以迭代多个，只需要将varName指定为一个变量列表。每次迭代时会从list中取出列表中变量数量个值，依次分配给变量列表中的变量。当list中元素数量不足时会用空字符串填充

 

（1）总结：