小编c0d*_*3rs的帖子

我试图在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搜索...