Shell Programming and Scripting

$ cat test_switch.tcl
#!/usr/bin/tcl
set foo "abc"

switch abc a - b {puts "No. 1"} $foo {puts "No.2"} default {puts "Default"}

switch abc  {
     a - b    {puts "No.1"}
     $foo     {puts "No.2"}
   default    {puts "Default"}
}

exit 0

$ ./test_switch.tcl
No.2
Default

switch {$foo} {
a - b { puts 1 }
$foo { puts 2 }
default { puts 3 } 
}

% switch
wrong # args: should be "switch ?switches? string pattern body ... ?default body
?"

switch -glob -- $input {
{to be*} { puts 1 }
{*Not to be} { puts 2 }
{*or*} { puts 3 }
default { puts 4 }
}