Tcl argv的指引

argv是参数列表，从tclsh执行*.tcl文件后的第0位为*.log文件，以此类推—
如，在终端键入一行命令：
tclsh *.tcl *.log -pat_rang1 1000 -pat_rang2 2000

foreach item $argv ｛
set log_file [lindex $argv 0] # *.log
set pat_opt1 [lindex $argv 1] # -pat_rang1
set pat_opt2 [lindex $argv 3] # -pat_rang2
｝
if {[string compare $pat_opt1 “-pat_rang1”] == 0} {
set pat_rang1 [lindex $argv 2] # 1000
}
if {[string compare $pat_opt2 “-pat_rang2”] ==0} {
set pat_rang2 [lindex $argv 4] # 2000
}
string compare是字符串的比较，如果相同，即等于0，满足条件。