tcl - TCL：SHELL環境変数でファイルの存在を確認してください

Question

シェル環境変数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"
}