tcl - 如何将 TCL 程序指向不同的目录

Question

我有一个接受文件的程序。我已将这些文件存储在 Tcl\bin 文件夹中。现在，如果我将这些文件放在不同的文件夹中，可能是共享文件夹。如何指向该特定文件夹以获取这些文件作为此过程的输入参数？

                    proc test {File1 File2 }

Answer 1

无论您使用的是相对文件路径还是绝对文件路径，都可以使用file命令及其选项来检测某些内容，例如访问权限。从那里你可以摆脱只使用打开/读取/获取/关闭命令来读取它们。例如：

#!/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
    }
}