Tcl文件存在錯過生成的文件

Question

在調試第三方Tcl腳本時，我遇到了一個非常奇怪的行爲：當腳本通過gunzip解壓現有文件時，Tcl文件存在'否認結果文件存在，即使它可以通過'ls'從shell中甚至通過Tcl'glob'來看到。我能夠複製在這個短（ish）腳本中的行爲：

#!/usr/bin/tclsh 

proc assert {msg asserted} { 
    if {!$asserted} { 
    puts "Assertion failed: $msg" 
    exit 1 
    } 
} 

set script_path [info script] 
set test_file [file join [file dirname $script_path] "test.tcl.gz"] 
puts "The test file is '$test_file'" 
assert "The test file does not exist" [file exists $test_file] 

set this_dir [pwd] 
set test_dir [file join $this_dir "test"] 
if {![file exist $test_dir]} { 
    file mkdir $test_dir 
} 
puts "The test directory is '$test_dir'" 
assert "'$test_dir' does not exist or is not a directory" [file isdirectory $test_dir] 

file copy $test_file $test_dir 
set working_file [file join $test_dir [file tail $test_file]] 
assert "Failed to to copy the test file to '$working_file'" [file exists $working_file] 

exec gunzip $working_file 
puts "After decompression, $test_dir contains:" 
foreach file [glob -dir $test_dir *] { 
    puts $file 
} 
set decompressed_file [file rootname $working_file] 
assert "$decompressed_file does not exist" [file exists $decompressed_file] 

我正在使用的測試文件只是腳本源的gzipped副本。它與腳本本身位於同一目錄中，如腳本所期望和檢查的那樣。下面是我運行它時得到的結果（tcl 8.5/CentOS 6.5）：

bash-4.1$ ./test.tcl 
The test file is './test.tcl.gz' 
The test directory is '/home/jbolling/tmp/test' 
After decompression, /home/jbolling/tmp/test contains: 
/home/jbolling/tmp/test/test.tcl 
Assertion failed: /home/jbolling/tmp/test/test.tcl does not exist 

任何人都可以解釋這種行爲嗎？有沒有辦法說服'文件存在'來識別解壓縮的文件？

Answer 1

在從別人的評論中得知原始腳本爲他們工作之後，發現了一些也適用於我的變體，並且在Tcl源代碼中查找了一些變體後，我得出結論：曾經使用過file exists對象，如果目錄內容可能在調用之間改變（通常不能排除），則通過file rootname在該對象或從其派生的對象上再次使用它是不安全的。

我沒有追溯它在源代碼中發生的位置，但我的Tcl解釋器顯然緩存了某處目錄列表的結果，因爲它不僅不能識別解壓縮文件的創建，它也不會認識到刪除的原始（即gunzip也執行）。另一方面，如果我使用文字字符串路徑執行file exists測試，或者使用與以前傳遞給file exists的任何文檔完全分離的Tcl對象，則結果如預期。它也可以，如果我強制轉換爲字符串，例如通過與

assert "$decompressed_file does not exist" [file exists [string trim $decompressed_file]] 

更換

assert "$decompressed_file does not exist" [file exists $decompressed_file] 

顯然緩存行爲是特定於實現的;我的實現是CentOS 6.5的Tcl 8.5.7，但我想這種行爲可能是普遍的，至少對於Tcl 8.5.7的Unix實現（這與macosx實現不同，即使OS X是Unix）。也可能是gunzip正在做一些不尋常的事情，導致這個問題，因爲我無法通過一個簡單的mv命令複製它。無論如何，儘管我沒有完全描述這個問題，但我認爲我現在已經足夠了解這個問題了。感謝那些評論 - 你引導了我富有成效的方向。

Answer 2

該手冊爲file exists指出命令

返回1，如果文件名存在，且當前用戶有搜索 特權導致它的目錄，否則爲0。

很明顯，該文件存在，所以我懷疑你運行腳本的用戶沒有權限查看它。我必須承認，我不太清楚「通向它的目錄的搜索特權」是什麼意思。

我建議再次嘗試使用位於公開目錄中的文件。

Answer 3

小問題，但看起來像這裏可能錯字......

if {![file exist $test_dir]} { 

應該是：

if {![file exists $test_dir]} {