は、なぜ私は、次のコードを持っているのerrorInfoとerrorCodeを

Question

にアクセスすることはできません。

$ cat ~/tmp/2.tcl 
set zero 0 
proc p1 {} { 
    if {[catch {expr 1/$zero} err]} { 
     puts "errorCode=$errorCode" 
     puts "errorInfo=$errorInfo" 
    } 
} 

p1 

私はそれを調達するとき、私はのerrorCodeにアクセスするときにエラーが出ます：

$ tclsh ~/tmp/2.tcl 
can't read "errorCode": no such variable 
    while executing 
"puts "errorCode=$errorCode"" 
    (procedure "p1" line 3) 
    invoked from within 
"p1" 
    (file "~/tmp/2.tcl" line 9) 

私が$ ::を変えてみましたerrorCode、しかし助けにはならなかった。

何が間違っていますか？

Answer 1

errorInfoとerrorCode変数はグローバルあるだろうそのあと部門で$::zeroを使用したいと思います。 globalコマンドを使用してスコープに入れるか、完全修飾名を使用してください（つまり、先に::）。

結果オプション辞書（8.5の新機能）から情報を選択する方が簡単かもしれません。

Answer 2

Tclから始まる8.5 [catch]は、グローバル変数errorCodeとerrorInfoを設定しません。（Donalは指摘しているとおり、それはまだ行われますので、$::errorCodeと$::errorInfoとしてアクセスできます）。さらに、それらの値を辞書に入れて、その名前を第3引数として指定します。次のコード

#!/usr/bin/tclsh 

set zero 0 
proc p1 {} { 
    if {[catch {expr 1/$zero} err opts] == 1} { 
     puts "errorCode=[dict get $opts -errorcode]" 
     puts "errorInfo=[dict get $opts -errorinfo]" 
    } 
} 

p1 

プリントTclの8.5.19に

errorCode=NONE 
errorInfo=can't read "zero": no such variable 
    while executing 
"expr 1/$zero" 

、及びTcl8.6.6で

errorCode=TCL READ VARNAME 
errorInfo=can't read "zero": no such variable 
    while executing 
"expr 1/$zero" 

。

あなたは、おそらく結果は

errorCode=ARITH DIVZERO {divide by zero} 
errorInfo=divide by zero 
    while executing 
"expr 1/$::zero"