Tcl腳本無法讀取「startreg（1）」：沒有這樣的變量

Question

我試圖運行一個Tcl腳本，它從輸入文件（其中幾何體被定義）創建一個幾何文件。該腳本可以像script.tcl inputfile那樣運行。 當我使用任何願望或命令tclsh的運行它（在Mac和Linux上），我得到這個錯誤：

 can't read "startreg(1)": no such variable 
     while executing 
    "if { $startreg($i)==0 && $stopreg($i)==0 } { 
      # All are material 1, change nothing 
      } else { 
      for {set iz $startz($i)} {$iz<=$stopz($i)} {incr i..." 
     invoked from within 
    "if [string compare $descrip regions]==0 { 
     # Get the mednum, start and stop regions 
     seek $fileid $startpos start 
     while { [eof $fileid] != 1 } { 
      ..." 
     (procedure "read_inputfile" line 214) 
     invoked from within 
    "read_inputfile " 
     invoked from within 
    "if [file exists $inputfile]==1 { 
     read_inputfile 
    } else { 
     puts "The file $inputfile doesn't exist!" 
     exit 
    }" 
     (file "~/EGS_Windows/preview3d.tcl" line 580) 

任何幫助/建議將不勝感激！ TA

Answer 1

你顯然沒有初始化那個變量。

% array set startreg {} 
% puts $startreg(1) 
can't read "startreg(1)": no such element in array 
% unset startreg 
% puts $startreg(1) 
can't read "startreg(1)": no such variable 

是startreg一個全局變量，你在一個進程忘了global startreg？

---

我發現另一個錯誤的堆棧跟蹤

if [string compare $descrip regions]==0 { 

你肯定希望周圍的狀況牙套，所以，當你希望執行它，則執行測試：

if {[string compare $descrip regions]==0} { 

這適用於所有if表達式，以及所有expr會話。見本維基頁面：http://wiki.tcl.tk/10225

在這種情況下，if {$descrip eq "regions"}更清晰。