私はtest7.tclという名前のファイルが持っているのTcl

Question

ソースについての質問：

namespace eval ::dai { 
    variable name "ratzip" 
    variable birthday "1982" 
    proc hello {} { 
     variable name 
     variable birthday 
     puts "Hello, I am $name birthday is $birthday" 
    } 
} 

を、私は別のファイル、このようにtest8.tclと呼ばれるには、このファイルをソースにしたい：

source test7.tcl 

::dai::hello 

それは私にエラーが表示されます： "test7.tcl"ファイルを読み込めませんでした：そのようなファイルやディレクトリはありません

2つのファイルは同じフォルダの下にあります。

Answer 1

、これを使用する：

source [file join [file dirname [info script]] "test7.tcl"] 

注このが外側スクリプト内で定義された手順内部ない作業を行うこと（test8.tclあなたの場合は）ソースが終了した後に呼び出されるのが普通です。その場合、最も簡単な解決策は、外側のスクリプトの変数にinfo scriptの出力を保存することです（または最終的に最良のアプローチのためにすべてのファイルをただちに遅延させるのではなく）。

Answer 2

test8.tclのパスを基準にして、現在の作業ディレクトリのを基準にして、ソースとなるファイルのパスを指定する必要はありません。例えば。絶対パスを使用します。

source /path/to/test7.tcl 

Answer 3

使用source [file join [file dirname [info script]] test7.tcl] - あなたはsourceの実行ファイルのフルパス名から構築し、そのフルパス名を使用して、ターゲットファイルを調達することがありますそのように。これは実行中に現在のディレクトリが何であっても機能します。現在実行中のスクリプトと同じディレクトリにあるファイルをソースに