TCL:通过SHELL环境变量检查文件是否存在

Question

我有一个 shell 环境变量 PATH_TO_DIR，我想在 TCL 脚本中检查文件 $PATH_TO_DIR/target.txt 是否存在。

我当前的解决方案是:

catch {exec /usr/local/bin/tcsh -c "echo  $PATH_TO_DIR/target.txt" } result

if {![file exists $result]} {
  puts "ERROR: the file $result is not exists"
}

我确信有一种更优雅的方式。
只用TCL命令如何解决？

Answer 1

set path_to_dir $::env(PATH_TO_DIR)
set file_name [file join $path_to_dir "target.txt"]
set native_file_name [file nativename $file_name]
if {![file exists $native_file_name]} {
  puts "ERROR: the file $native_file_name does not exist"
}