Tcl + Vérifier l'existence du fichier

Je suis en train de vérifier si un fichier existe ou pas en Tcl, mais je n'arrive pas à obtenir un résultat vrai. Même si je sais qu'il est présent.

while {true} {

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

    puts "File Not copied"

    }

J'ai toujours exécuter le Fichier n'est pas copié la ligne. J'ai fait une mis pour [file exists $file_name] et je finis toujours par 0. Mais je sais pour un fait que le fichier existe dans le répertoire courant. Des suggestions?

EDIT:

Une autre méthode que je suis en train de poursuivre, c'est que quand je fais un dir en utilisant le script tcl. Je vais avoir une sortie de tous les fichiers dans le répertoire. J'ai juste besoin de faire correspondre mon fichier avec la liste de sortie, et de satisfaire les if lorsqu'une correspondance a été trouvée ...

J'exécute le script à partir d'Un Emplacement, mais en utilisant le script de telnet à un point B. Quand je fais un fichier existe, il vérifie l'Emplacement d'Un lui-même. C'est mon problème ... car j'ai besoin d'être à la recherche dans l'Emplacement B ...

Ensuite, vous devez émettre ssh/ftp/whatever_protocol commandes pour interroger le répertoire distant.

OriginalL'auteur c0d3rs | 2010-11-15

  1. 7

    La file exists commande fonctionne toujours avec les systèmes de fichiers locaux. Si vous voulez vérifier si un système distant a un fichier, vous devrez exp_send il des instructions pour faire le vérifier pour vous. Malheureusement, je ne peux pas vraiment dire ce que vous avez à parler à partir de votre description, je ne peux pas les conseiller comment faire.

    Et que vous voulez un break après que puts "File copied" ligne sinon il va tous faire le tour de la boucle à nouveau. Vous ne voulez probablement pas que!

    Merci pour la réponse Donal. Concernant le code, j'ai juste écrit un peu rugueuse pseudo-code de simplement suggérer ce que je dis. Je vais regarder dans ces deux méthodes vous l'avez suggéré ..

    OriginalL'auteur Donal Fellows

  2. 0

    Donal raisonnablement mentionné exp_send comme un véhicule pour accéder à un système de fichiers distant. Si c'est un FTP contexte, bien que, je préfère un (pur-Tcl-sans-Attendre) solution basée sur Tcl FTP de la bibliothèque; je trouve cela plus portable, compréhensible et concis.

    OriginalL'auteur Cameron Laird