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