combining 'set' operations

[NewzUK]

Hi - is there a way I can combine these 3 operations for setting a variable into one line to simplify things?

Code: Select all

set mkw [gettok $line 4- 32]
set mkw [string map {"\[\[12\]" "\["} $mkw]
set mkw [string toupper $mkw]

Thanks in advance!

[Papillon]

Code: Select all

set mkw [string toupper [string map {"\[\[12\]" "\["} [gettok $line 4- 32]]]

[NewzUK]

ah thanks Papillon