Tclで " - "を無視する

Question

文字列内で " - "が検出されたときにsthを実行するコードを書いています。とき、私は実行します。

regsub -all "-" $code "m" code 

： - ： - "" 別の文字と私は交換してみました

bad option "-": must be -exact, -glob, -regexp, -command procname or -- 

switch [string index $code $j] { 
    "-" { set mem($ptr) [expr $mem($ptr) - 1] ; } 

しかし、Tclは、それはだとしてこれを解釈する "" switchオプションのプレフィックスとして

でも同じです：

bad switch "-": must be -all, -nocase, -expanded, -line, -linestop, -lineanchor, -start, or -- 

それも、私が\u2dを使用したときの動作：

知られている問題であり、特別なオプション --が導入されたことを解決するために

regsub -all \u2d $code "m" code 
switch $code \u2d {puts "hi" ;} 

Answer 1

。それはあなただけの一日の

switch -- [string index $code $j] { 
    "-" {set mem($ptr) [expr $mem($ptr) - 1]} 
}