Tcl条件控制命令之if、switch

最新推荐文章于 2024-02-01 22:09:18 发布

_荣耀之路_

最新推荐文章于 2024-02-01 22:09:18 发布

阅读量8.7k

点赞数

分类专栏： Tcl 文章标签：条件控制 if switch

本文链接：https://blog.csdn.net/asty9000/article/details/90669958

版权

Tcl 专栏收录该内容

34 篇文章 96 订阅

订阅专栏

if

if expr1 ?then? body1 elseif expr2 ?then? body2 elseif ... ?else? ?bodyN?

以expr命令的方式计算表达式expr1，如果为真则执行body1中的命令，执行完成后if命令结束，如果为假则计算表达expr2的值，如果为真则执行body2中的命令，依次类推。在所有表达式都为假时，如果最后存在else，则执行else中的命令，如果不存在else则不执行任何命令。其中then可以省略。

set var 1
if {$var == 1} { puts "var is one" }
set var 2
if {$var == 1} then { puts "var is one" } else { puts "var is not one" }
if {$var == 1} { puts "var is one" } elseif {$var == 2} { puts "var is not two" } 
set var 3
if {$var == 1 || $var == 2} { puts "var is one or two" } else { puts "var is not one or two" }

switch

switch ?options? string pattern body ?pattern body ...?
switch ?options? string {pattern body ?pattern body ...?}

switch按顺序将string与模式pattern进行匹配。一旦找到与string匹配的pattern，就会执行紧随其后的body中的命令，并返回执行的结果。如果最后一个模式是default，则在前面所有的模式都不匹配时默认执行其后的body中命令。如果没有提供default并且没有匹配任何模式则switch命令返回空字符串。如果switch初始参数以“-”开头，则会被视为选项。目前支持以下选项：

exact

string与pattern进行精确匹配，默认使用此方式匹配。

glob

像string match命令一样使用glob-style方式匹配string与pattern。

regexp

以re_syntax命令一样使用正则方式匹配string与pattern。

nocase

string与pattern匹配时不区分大小写。

matchvar varName

只有在指定-regexp时才有效。这个选项指定了与正则表达式匹配的子字符串列表写到变量varName中。列表的第一个元素是与正则表达式匹配的整个子字符串。第二个元素是子字符串中匹配正则表达式的第一个括号的子字符串，以此类推。当匹配default分支时，会将空列表写入变量。此选项可以与indexvar选项同时指定。

indexvar varName

只有在指定-regexp时才有效。这个选项指定了与正则表达式匹配的子字符串索引列表写到变量varName中。列表的第一个元素是一个双元素列表，分别是与正则表达式匹配的子字符串的第一个字符，和其后的第一个字符的索引，与regexp名利的-indexes选项类似。第二个元素是子字符串中匹配正则表达式的第一个括号的子字符串的第一个字符，和其后的第一个字符的索引，以此类推。当匹配default分支时，会将空列表写入变量。此选项可以与matchvar选项同时指定。

标记选项结束。此选项后的参数会被视为string，即使是以“-”开头。如果pattern和body是在一起作为一个参数，则可以护绿此选项。

两种形式的switch略有区别，第一种形式pattern和body都是作为单独的参数，因此可以进行变量替换，但是body中的多行命令需要在行尾加上反斜杠。而第二种形式所有的pattern和body整体作为一个列表，因为被大括号包围，所以body中的多行命令不需要在每行最后包含反斜杠，但是不能进行变量替换。如果body为“-”表示此选项与下一个选项使用相同的body。如果下一个body也是“-”，则以此类推。

proc testSwitchDefault {str} {
	switch $str a { puts "matched a" } b { puts "matched b" } default { puts "unmatched!" }
}
testSwitchDefault a
testSwitchDefault b
testSwitchDefault c

proc testSwitchWitchGlob {str} {
	switch -glob $str {
		a* {
			puts "$str matched a*"
		}
		b*c {
			puts "$str matched b*c"
		}
		default {
			puts "$str matched nothing!"
		}
	
	}
	
}
testSwitchWitchGlob abc
testSwitchWitchGlob bac
testSwitchWitchGlob Abc

proc testSwitchWitchRegAndNocase {str} {
	switch -regexp -nocase -matchvar subStr -indexvar idx -- $str {
		a(.{2}) {
			puts "$str matched a*"
			puts $subStr
			puts $idx
		}
		b(.{2})c {
			puts "$str matched b*c"
			puts $subStr
			puts $idx
		}
		default {
			puts "$str matched nothing!"
			puts $subStr
			puts $idx
		}
	}
}
testSwitchWitchRegAndNocase abc
testSwitchWitchRegAndNocase bac
testSwitchWitchRegAndNocase Abc