tcl - TCL プロシージャを別のディレクトリにポイントする方法

Question

ファイルを受け入れる手順があります。これらのファイルを Tcl\bin フォルダーに保存しました。これらのファイルが別のフォルダー (おそらく共有フォルダー) にある場合。これらのファイルをこの手順への入力パラメーターとして取得するために、その特定のフォルダーを指定するにはどうすればよいですか?

                    proc test {File1 File2 }

Answer 1

相対または絶対ファイル パスを使用しているかどうかに関係なく、fileコマンドとそのオプションを使用して、アクセス権などの特定のものを検出できます。そこから、open / read / gets / closeコマンドを使用してそれらを読み込むだけで済みます。例:

#!/usr/bin/tclsh

set path "path/to/file/directory/"
set name "file.name"

if {[file exists $path$name]} {
    if {[catch { set handle [open $path$name] }]} {
        puts "Could not open $path$name"
    } else {
        set data [split [read $handle] "\n"]
        close $handle
    }
}