Tcl +检查文件是否存在

Question

我试图在Tcl中检查文件是否存在,但我似乎无法获得真实的结果.即使我知道它存在.

while {true} {

    if { [file exists $file_name] == 1} {               
        exp_send "copy file.txt destination \r"
        puts " File copied!"
    }

    puts "File Not copied"

    }

我总是执行文件未复制行.我做了一个put [file exists $file_name],我总是以0结束.但我知道该文件存在于当前目录中.有什么建议？

编辑:

我正在尝试的另一种方法是,当我dir使用tcl脚本时.我将获得目录中所有文件的输出.我只需要将我的文件与输出的列表匹配,并满足if找到匹配的时间...

我正在从位置A执行脚本,但是使用脚本telnet到位置B.当我存在文件时,它会检查位置A本身.这是我的问题...因为我需要在位置B搜索...

Answer 1

该file exists命令始终适用于本地文件系统.如果要检查远程系统是否有文件,您需要exp_send一些指示来为您进行检查.不幸的是,我无法从你的描述中说出你在说什么,所以我实际上无法建议如何去做.

并且你想要一个break在该puts "File copied"行之后,否则它将全部绕过循环.你可能不想那样!