tcl - 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"
}