Contrer la double subsitution

[Artix]

En recherchant des moyens d'éviter la double-substitution (par exemple, dans les timers, pour éviter que les commandes s'éxecutent dans un pseudo contenant des crochets) - j'ai trouvé ce moyen :

proc autoSecure {input} { return \{[string map {\{ \\\{ \} \\\} \\ \\\\} $input]\} }

J'aimerais savoir si vous avez d'autres solutions plus simples, ou des cas dans lesquels ma solution ne marcherais pas (surement avec des listes j'immagine)

[djkenny]

salut,
ta proc n est pas tout a fait bonne

Code :

proc charfilter {arg} {
  string map {"\\" "\\\\" "\{" "\\\{" "\}" "\\\}" "\[" "\\\[" "\]" "\\\]" "\"" "\\\""} $arg
}

celle la debug les " [ { ] }
dans l absolut la tienne doit fonctionner mais elle est trés mal codé.
++

[Artix]

L'interet de ma version, c'est qu'elle escape seulement les { } \ et englobe ça entre accolades
Je suis quasiment certain quelle fonctionne sur les chaines litérales, mais pas vraiment sur pour les listes (pourrait ajouter un niveau de listes, tout ça...)

[djkenny]

Code :

proc charfilter {arg} {
  list [string map {"\\" "\\\\" "\{" "\\\{" "\}" "\\\}" "\[" "\\\[" "\]" "\\\]" "\"" "\\\""} $arg]
}

;)
edit: bien que tcl le fasse d origine :)

[djkenny]

sinon pour utiliser juste les { } \ ça donne

Code :

proc charfilter {arg} {
  list [string map {"\\" "\\\\" "\{" "\\\{" "\}" "\\\}"} $arg]
}