Manipulating multiple variables simultaneously

[arfer]

I want to trim multiple variables in a single line of code. For example, trimming the caret symbol (^) from the start and end of the variables a, b, c, d, e, f as below :-

Code: Select all

foreach var {a b c d e f} {set $var [string trim $$var ^]}

The second $ in $$var doesn't get substituted. It behaves as if I had used ${$var}. Is there any 'neat/clever' way to do this without resorting to the following code :-

Code: Select all

foreach var {a b c d e f} {set $var [string trim $[subst -nocommands -nobackslashes $var] ^]}

The problem being any dollar symbol in any one of more of the variable values will probably break the code.

[user]

Code: Select all

set $var [string trim [set $var] ^]

[arfer]

Thanks!

Though I feel a bit of a fool not managing to work that one out myself.

[nml375]

I suppose you could use upvar for this, but otherwize user's suggestion should do just well...