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