#!/usr/bin/tclsh
#默认输出到标准输出流
puts hello
puts stdout hello
#输出到标准错误流
puts stderr error
#输入必须指定输入流
gets stdin varible
puts $varible

#打开data文件,打开模式有r,w,a,r+,w+,a+
set fp [open data w]
puts $fp "hello world"
close $fp
set fp [open data r]
gets $fp test
puts  $test
close $fp

# TCL对象，对于整数，浮点数，bool,字符串，都是一个对象
#可直接给其赋值
set varible 1
set s "hello world"
# 列表，列表初始化时可以使用双引号或者大括号进行初始化
set list {hello world hah hah}
set list "hello world hah hah"
#访问列表元素，使用lindex
puts [lindex $list 0] #hello
#关联数组，类似map,key可以是数字，也可以是字符串
set map(a) 10
puts $map(a)

# if语句
if {expression1} {
  dosomting
} elseif {expression2} {
  dosometing
} else {
  dosomething
}
#for 语句
for {set a 10} {$a < 20} {incr a} {
   dosometing
}
#switch语句
switch switchingString {
   matchString1 {
      body1
   }
   matchString2 {
      body2
   }
   matchStringn {
      bodyn
   }
}