tcl stringコマンドはregexpの逆参照で動作しません

Question

以下のコードを参考にして、例としてstring toupperを選択的に使用するbackrefeenceでregsubを使用しようとしています。私は私が期待しているものを得ていない。
以下の簡単な例を参照してください（私はstring toupper $string 0 0を使用することができますが、これは原理を示すためのものです）。見ることができるように

> puts [ regsub {^(.)} "min" "s\\1" ] 
smin 
> puts [ regsub {^(.)} "min" [ string toupper "\\1" ] ] 
min 

、文字列TOUPPERは動作しません。後方参照に適用されますが、backrefernceは二重引用符の操作に使用することができます。
私はTCL版を使用しています。 8.6

Answer 1

string toupperは機能していますが、あなたがしたいことはしません。 string toupper "\\1"は文字列\1であるため、regsubはあまり効果がありません。問題は、regsubには「代替サイトでこのコマンドを実行する」という方法がないことです。私はこれを何年も修正したいと思っていましたが、これを実際にやったことはありませんでした。

代わりに、文字列にコマンド置換でregsubに必要な、その後subst結果を、それを行うためには、まずstring mapとsubstにそうでない場合は、安全な文字列を作成する必要があります。幸いにも、それは実際にはかなりシンプルです。

私は離れますが、各ステージが何をしているかを正確に調べるしやすくするために、これを分割しました：

set str "here is an example with \$dollars, \[brackets\] and \\backslashes" 

# Quote all of Tcl's metacharacters; there's not that many 
set safer [string map {[ \\[ ] \\] \\ \\\\ $ \\$} $str] 

# Inject the command we want to run where we want to run it 
set withsubst [regsub {^(.)} $safer {[string toupper {\1}]}] 

# Perform the substitution 
set result [subst $withsubst]