如何将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
    }
}