Tclsh Array操作array set遍历array验证Array是否存在遍历ArrayArray Sizearray set array set Student {LiLei 29Gray 31Rose 23 }遍历array foreach {name age} [array get Student "L*"] {puts "Name: $name\tAge: $age" }验证Array是否存在 if [ar…

参考网站 创建自定义package 下面的例程定义了HelloWorld Package，HelloWorld定义了一个变量city，定义了两个函数getCityName和setCityName。 #!/usr/bin/tclsh8.5 # 文件名： HelloWorld.tclpackage provide HelloWorld 1.0namespace eval…