Ajouter le mot "end" à la fin de tous les fichiers d'un répertoire

**ludol59** · 04/02/2008, 12h38

Bonjour à tous, j'ai un petit problème en tcl. J'ai dans un dossier à peu près mille fichiers auxquels je souhaiterais ajouter à tous, à la dernière ligne, le mot "end". J'ai pu recevoir de l'aide et on m'a conseillé ce programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
set repertoire "/hihi/haha/hoho/"
foreach fichier [exec dir $repertoire] {
    set id_file [open $fichier a]
    puts $id_file "end"
    close $id_file
}

Cependant, quand je tape ce programme, il me note "extra caracteres after close-quote" quand je finis la ligne "puts $id_file "end". Quelqu'un pourrait t il m'aider à y remédier? Merci d'avance.

**corentin59** · 04/02/2008, 13h14

avant d'aller plus loin, j'ai besoin de savoir :
1) sur quoi tu travailles (linux, windows, ...)
2) connais-tu le tcl ?
3) dans quoi tu tapes ce programme ?

**ludol59** · 04/02/2008, 14h21

Je suis tout à fait débutant en tlc. Je travaille sous windows, et je tape cela dans tkcon. Merci d'avance.

**ludol59** · 04/02/2008, 14h41

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
(bin) 17 % foreach fichier [exec dir $repertoire] {
set id_file [open $fichier a]
puts $id_file "end"
close $id_file
}

couldn't execute "dir": no such file or directory

voila ce qu'il me met maintenant

**ludol59** · 04/02/2008, 16h07

est ce que sous windows les "/" pour aller chercher un fichier dans des répertoires sont dans le même sens que sous linux?

**corentin59** · 04/02/2008, 16h18

sous tkcon, tapes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set repertoire "C:/chemin_du_repertoire_hihi/hihi/"
foreach fic [glob ${repertoire}*] {set idfile [open $fic a]; puts $idfile "end"; close $idfile}

En fait, je t'avais dit d'utiliser la fonction dir, j'avais fait l'essai sous Linux et ça marchait mais sous window, ça ne marche pas...
La fonction qu'il vaut mieux utiliser est "glob"